Question

vb接收数据解码问题

下位机会发送上来一串字符串，如“t298y03t298y03”
怎样才能在接受到数据时完成，text1.text=298 text2.text=03呢
我写的代码时这样的
Private Sub command1_Click()
If Winsock1.State = sckClosed Then
Winsock1.RemoteHost = "192.168.11.254"
Winsock1.RemotePort = 8080
Winsock1.Connect
End If
End Sub
'-----------------------------------
' 接受数据
'-----------------------------------
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim myStr As String
Dim buffer As String
Dim wendu As String
Dim yanwu As String
'调用GetData方法接收数据
Winsock1.GetData myStr
buffer = myStr
myStr = Fix(buffer / 10000)
wendu = Fix(myStr / 100)
wendu = wendu / 10
yanwu = myStr Mod 100
myStr = ""
Text1.Text = wendu
Text2.Text = yanwu
'Option1.Value = True
End Sub
求指正，指点，谢谢

Answer 1

使用Mid 函数来解析字符串。

Mid 函数

返回 Variant (String)，其中包含字符串中指定数量的字符。

Mid 函数示例

本示例使用 Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"   建立一个字符串。
FirstWord = Mid(MyString, 1, 3)   ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4)   ' 返回 "Demo"。
MidWords = Mid(MyString, 5)   ' 返回 "Funcion Demo"。

追问

这样做不会溢出吗？
每次收到的字符串长度有点不一样的

追答

从接收的字符串看，似乎是数字夹在字母间，可将字符串接收后先将除数字外所有字母替换为一个单一的非数字字符，这是用Replace函数实现。而后可用Split函数将字符串拆分成数字组成字符串的数组，按需取出。

追问

我是新手啊，有点听不懂了。。。

追答

下位机会发送上来一串字符串，如“t298y03t298y03”

下位机是按约定的数据帧发送的，请仔细阅读下位机的通信协议及数据帧规约，搞懂这些才能解决实时通讯和控制。

Answer 2

你这样处理不好，因为数据有长有短，还有字符，容易混乱。

追问

我知道这样不行，数据会溢出，而且会乱码，可是我不知道怎么解决，所以来提问啊

追答

所以最好根据特征去判断。比如我们输入了t298y03

那么我们去找 t 和y的位置，然后去取字符串

str1 = "t298y03"

a = InStr(str1, "t")

b = InStr(str1, "y")

Text1 = Mid(str1, a + 1, b - a - 1)

Text2 = Right(str1, Len(str1) - b)