 Case "MARGINX" : StyleList(CurIdx).MarginX = Line.Substring(Seppos + 1).ToUpper
                            Case "MARGINY" : StyleList(CurIdx).MarginY = Line.Substring(Seppos + 1).ToUpper
                            Case "PICSTYLE" : StyleList(CurIdx).picstyle = Line.Substring(Seppos + 1).ToUpper
                            Case "PRINTFONTOFFSET" : StyleList(CurIdx).PrintFontOffset = Line.Substring(Seppos + 1).ToUpper
                            Case "PRINTBG" : StyleList(CurIdx).Printbg = Line.Substring(Seppos + 1).ToUpper
                            Case "SCALEX" : StyleList(CurIdx).ScaleX = Line.Substring(Seppos + 1).ToUpper
                            Case "SCALEY" : StyleList(CurIdx).ScaleY = Line.Substring(Seppos + 1).ToUpper
                            Case "BAKX" : StyleList(CurIdx).bakx = Line.Substring(Seppos + 1).ToUpper
                            Case "BAKY" : StyleList(CurIdx).baky = Line.Substring(Seppos + 1).ToUpper
                            Case "BAKW" : StyleList(CurIdx).bakw = Line.Substring(Seppos + 1).ToUpper
                            Case "BAKH" : StyleList(CurIdx).bakh = Line.Substring(Seppos + 1).ToUpper
                            Case "VIEWIMAGE" : StyleList(CurIdx).Viewimage = Line.Substring(Seppos + 1).ToUpper
                            Case "FILTER" : StyleList(CurIdx).Filter = Line.Substring(Seppos + 1).ToUpper
                            Case Else
                                dr = StyleList(CurIdx).PATTERNTABLE.NewRow
                                dr(0) = CStr(Findkey & Line.Substring(0, Seppos)).ToUpper
                                dr(1) = Line.Substring(Seppos + 1).ToUpper
                                StyleList(CurIdx).PATTERNTABLE.Rows.Add(dr)
                        End Select
 

 Public Function PARSE_시공년월(ByVal srcstr As String) As Boolean
        '/선로명의 길이는 예측되지 않는다 동적 컨트롤 생성을 사용한다.
        '/선로명의 길이는 예측되지 않는다 동적 컨트롤 생성을 사용한다.
        Me.CLEAR_ITEM(S시공년월)
        Dim Log As String = "\Parse_시공년월.txt"
        If srcstr = "" OrElse Not Me.cb_yymm.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If

        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SRC() As Char = srcstr.ToCharArray

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)
        For i As Integer = 0 To Wlen - 1   '//모든문자를 할당한다.
            Try
                Me.S시공년월(i).MyText = SRC(i)
            Catch ex As Exception
                Exit For
            End Try
        Next
        Return True
    End Function
    Public Sub PARSE_선로명패턴(ByVal Srcstr As String)
        Dim Log As String = "\Parse_선로명패턴.txt"
        Dim Wlen As Short = Srcstr.Length : If Wlen <= 0 Then Return
        Dim Src() As Char = Srcstr.ToCharArray
        Dim SepPos As Short = Srcstr.IndexOf(";")

        '길이패턴여부를 확인했으므로 패턴을적용한다.[STYLE1LINEPATTERN9]
        Dim Pname As String = "LINEPATTERN" & Wlen

        ' Me.길이패턴연습(Srcstr, Pname, Log, "L", S선로명)
        '//패턴1이 끝났다 패턴2를 찾는다.
        '//패턴2는 style1LInepatternII문자숫자형식
        Pname = "LINEPATTERNII" & PATTERN_ENC(선로명)
        Me.문자패턴연습(Srcstr, Pname, Log, Me.S선로명)


    End Sub
    
     Public Function PARSE_전산번호(ByVal srcstr As String) As Boolean
        '/선로명의 길이는 예측되지 않는다 동적 컨트롤 생성을 사용한다.
        Me.CLEAR_ITEM(S전산번호)
        Dim Log As String = "\Parse_전산번호.txt"
        If srcstr = "" OrElse Not Me.cb_kwang.Checked Then
            AddLog(Admin, "Zero Length - Return", Log)
            Return False
        End If

        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SRC() As Char = srcstr.ToCharArray

        AddLog(Admin, "Length=" & Wlen & "   Sep=" & SepPos, Log)
        '/선로명의 길이는 예측되지 않는다 동적 컨트롤 생성을 사용한다.
        For i As Integer = 0 To Wlen - 1   '//모든문자를 할당한다.
            Try
                S전산번호(i).MyText = SRC(i).ToString
                Me.S전산번호(i).Visible = True
            Catch ex As Exception
                Exit For
            End Try

            'MsgBox("전산번호=" & S전산번호(i).MyText)
        Next
        Return True
    End Function
    Public Sub PARSE_전산번호패턴(ByVal srcstr As String)

        Dim Log As String = "\Parse_전산번호패턴.txt"
        Dim Wlen As Short = srcstr.Length
        Dim SepPos As Short = srcstr.IndexOf(";")
        Dim SrC() As Char = srcstr.ToCharArray

        Dim Pname As String = "JNUMPATTERN" & Wlen
        ' Me.길이패턴연습(srcstr, Pname, Log, "S", S전산번호)

        Pname = "JNUMPATTERNII" & PATTERN_ENC(srcstr)
        Me.문자패턴연습(srcstr, Pname, Log, S전산번호)
    End Sub