103 lines
4.8 KiB
Plaintext
103 lines
4.8 KiB
Plaintext
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 |