Quote:
Public Sub ParseRecv(RX As Variant)
Dim start As Integer
Dim pos As Integer
start = 1
pos = 3000
'the example data: ~@heng~~21~~male~~Holland~~~@Thread~~23~~male~~Filipine~~
Do Until pos = 0
pos = InStr(start, RX, "@")
If (pos <> 0) Then
If Mid(RX, pos - 1, 2) = "~@" Then
newjob = Mid(RX, pos + 1)
For i = 0 To 12
SaveJob(i) = Split(newjob, "~~")(i)
If Len(SaveJob(12)) Then Form1.InitMax = SaveJob(12)
Next i
Call client_addtodatabase(SaveJob(0), SaveJob(1), SaveJob(2), SaveJob(3), SaveJob(4), SaveJob(5), _
SaveJob(6), SaveJob(7), SaveJob(8), SaveJob(9), SaveJob(10), SaveJob(11))
End If
End If
start = pos + 1
Loop
after i implement this InStr, my server able to receive all the data.