一个VB数组算法
AA 0A 0F 02 44 12 34 89 55 83 AA 0D 0F 02 14 12 34 00 15 11 31 55 14 AA 0A 0F 02 44 12 34 89 55 83 AA 0B 0F 02 18 12 34 56 78 55 9D
这是接收到的数据,保存到一数组中;现在要依次分开为四个分别取出来,长度都是不固定的.并保存在一数组中;因为有4个AA开头的.由于VB数据要先定义长度才能赋值.所以一直没好办法解决,请帮一下.
[解决办法]
给你参考吧
Private Sub Command1_Click()
Dim a() As String, b() As String
Const t = "AA 0A 0F 02 44 12 34 89 55 83 AA 0D 0F 02 14 12 34 00 15 11 31 55 14 AA 0A 0F 02 44 12 34 89 55 83 AA 0B 0F 02 18 12 34 56 78 55 9D "
a = Split(t, "AA ")
b = Split(Trim(a(1)))
Print b(0), b(1), b(2), b(UBound(b))
End Sub
