ufukes
Üye
- Katılım
- 12 Eki 2010
- Mesajlar
- 17
- Puanları
- 1
- Yaş
- 43
kodun son hali aşağıdaki gibi oldu altı çizili satırda hata veriyor.
0.0.0(02624233) sayaçtan bu bilgiyi okuduktan sonra hata veriyor.
Dim i As String
Dim stmp As String
Do
Buffer = Buffer & ComData.Input
i = InStr(Buffer, vbCrLf)
If i > 0 Then
stmp = Left(Buffer, i - 2)
Buffer = Mid(Buffer, i + 2)
i = InStr(stmp, "(")
If i > 0 Then
stmp2 = Mid(stmp, i)
stmp = Left(stmp, i - 1)
i = InStr(2, stmp2, "(")
vsgrid.AddItem stmp & vbTab & IIf(i = 0, stmp2, Left(stmp2, i - 1)) & vbTab & IIf(i = 0, "", Mid(stmp2, i))
Else
vsgrid.AddItem stmp
End If
Else
Exit Do
End If
Loop Until Buffer = ""
0.0.0(02624233) sayaçtan bu bilgiyi okuduktan sonra hata veriyor.
Dim i As String
Dim stmp As String
Do
Buffer = Buffer & ComData.Input
i = InStr(Buffer, vbCrLf)
If i > 0 Then
stmp = Left(Buffer, i - 2)
Buffer = Mid(Buffer, i + 2)
i = InStr(stmp, "(")
If i > 0 Then
stmp2 = Mid(stmp, i)
stmp = Left(stmp, i - 1)
i = InStr(2, stmp2, "(")
vsgrid.AddItem stmp & vbTab & IIf(i = 0, stmp2, Left(stmp2, i - 1)) & vbTab & IIf(i = 0, "", Mid(stmp2, i))
Else
vsgrid.AddItem stmp
End If
Else
Exit Do
End If
Loop Until Buffer = ""