关于Winscok_DataArrival数据接收后分析的问题！

Question

使用静态变量
static Analyse as string

Answer 1

Dim Analyse As String
    Dim Longer As Integer
    Dim ww As String    
    Analyse = Message
    Longer = InStr(Analyse, ",")
    If Longer > 0 Then ww = Mid(Analyse, Longer + 1)
    Longer = InStr(ww, ":")
    If Longer > 0 Then ww = Mid(ww, 1, Longer - 1)

Answer 2

winsock1.getdata Analyse,vbString
start=instr(Analyse,",")
endnum=instr(Analyse,":")
if start>0 and endnum>0 then
   compstr=mid(start+1,Analyse,endnum)  '这是分析后得到的字符串
end if

Answer 3

用split函数
aa=split(analyse,",")
bb=split(aa(1),";")
bb(0)就是你要的