솔루션에 fp5,fp13 포함

Epole.fp5/패치문서/TextFile1.txt

@@ -0,0 +1,103 @@
+ 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