Работа с текстом

[s_vitalik]

У меня возникла проблема с отделением текста, например:
Мне нужно отделить команду 2 от #Chanal и дальше сообщение...
вот что выходит 2#Chanal Сообщение
Все это нужно отделить и поместить в разные переменные.
Если кто знает то такими командами общается QChat
И еще возникла проблема с Winsock-ом. При получении информации, приходит только кусок а не все сообщение: 2#Chanal вместо 2#Chanal Сообщение.

Просба отправлять на мыло, please

[ПЕТР]

Ну вот примерно так
[/code]
Dim i As Long, p As Long
Dim s1 As String
Dim nn As Long, s As String, mes As String

s1 = "2#Chanal Привет"
i = InStr(s1, "#")
If i > 0 Then
nn = Val(Mid(s1, 1, i - 1))
p = i
i = InStr(p, s1, " ")
If i > 0 Then
s = Mid(s1, p + 1, i - (p + 1))
mes = Mid(s1, i + 1)
End If
End If
MsgBox ("nn=" & nn & " s=" & s & " mes=" & mes)


[code][/code]

[GoGosha]

Лично я при работе с винсоком использовал железный способ:
Сначала передается длинна сообщения, а потом уже само сообщение