수다닷컴

Public Function Parsing(sInput As String, sWord As String, lWord As String) As String
Parsing = Mid$(sInput, InStr(sInput, sWord) + Len(sWord))

Parsing = Left$(Parsing, InStr(Parsing, lWord) - 1)
End FunctionPrivate Sub Command1_Click()
Dim a, b, c, d As String
Dim i As Stringa = Parsing(ch1 3.25 ch2 3.02 ch3 3.69 ch4 3.24 next, ch1, ch2)
b = Parsing(ch1 3.25 ch2 3.02 ch3 3.69 ch4 3.24 next, ch2, ch3)
c = Parsing(ch1 3.25 ch2 3.02 ch3 3.69 ch4 3.24 next, ch3, ch4)
d = Parsing(ch1 3.25 ch2 3.02 ch3 3.69 ch4 3.24 next, ch4, next)
i = a & vbTab & vbTab & b & vbTab & vbTab & c & vbTab & vbTab & d & vbTab & vbTab
Text1.Text = i
End Sub
이거 사용해서 간단한 예제도 해보고 여기서 문장을 변수로 만들고 그것을 다시 플렉스 그리드 안에도 넣어보고 응용 하던중에 갑자기 통신관련 해서 데이터를 받고 처음과 같이 위의 파싱 함수 저는 아래와 같다고 생각하고 사용을 했는데 변수 = parsing(변수 또는 텍스트 .text, 끈어서 나올 첫번째 경계 부분, 끈어서 나올 마지막 경계 부분이라고 생각 을 하고 설정 하고있는데 Private Sub Timer3_Timer()
j = Val(Label12.Caption) + 1 // 카운터를 해주고있습니다.
Label12.Caption = j
Dim aa, bb, cc, dd, ee As StringMSComm1(0).InputLen = 0 // 통신으로 받는 값을ee라는 변수 값으로 지정 해줬습니다.
While MSComm1(0).InBufferCount 0
ee = MSComm1(0).Input
Wend
aa = Parsing(ee, ch1, ch2) //ch1 3.25 ch2 3.02 ch3 3.69 ch4 3.24 next 참고로 이와같이 하이퍼터미널에서 보내집니다.
dd = j & vbTab & vbTab & aa & vbTab & vbTab
hit1.Text = hit1.Text & dd & vbCrLfEnd Sub여기서 시리얼 통신을 해서 받아오는 자료를 변수로지정 변수에서 의 자료를 CH1~CH2 사이의 값을 제가 가지고 올려고 하고있습니다 그런데 요 앞의 컨트롤과 같은 개념으로 접근해가는데 ㅎ ㅋ 값이 도저히 안나오는데 제가 틀리게 알고있는 부분좀 가르켜 주시면 감사하겠습니다. ㅠ.ㅠ 뎃글이나 쪽지로 혹시 가능하시면 네이트온 아이뒤좀 가르켜주시면 정말 ㅠ.ㅠ 감사하겠습니다.

신청하기