中科新闻网音乐能陶冶人的性情:一个VB程序的问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 01:35:21
接收到的信息如下：
“…0，0，0，0，0，17，16，15，14，13，12，0，0，7，0，0，0，0…
0，0，0，27，26，25，24，23，22，0，0，7，0，0，0，0，0…”
我想提取出其中的“17－7”，“27－7”这两段信息，把它们分别放进不同的TextBox里面，请问要如何写这个程序？谢谢
我写的是一个搜索无线网络设备地址的程序，全部信息如下：
“2,0,10,0,6,0,1,0,0,0,17,0,2,0,1A,0,3,0,1,0,0,0,18,0,2,0,A,0,81,0,24,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,27,0,26,0,25,0,24,0,23,0,22,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,AA,0,2,0,A,0,81,0,24,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,14,0,3E,0,0,0,27,0,26,0,25,0,24,0,23,0,22,0,2,0,E6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,62,0,”其中“27－7”和“27－E6”是两个无线网络设备的IEEE地址，位置是固定的
Dim bArr() As String
Dim strArr As String
strArr = "2,0,10,0,6,0,1,0,0,0,17,0,2,0,1A,0,3,0,1,0,0,0,18,0,2,0,A,0,81,0,24,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,27,0,26,0,25,0,24,0,23,0,22,0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,AA,0,2,0,A,0,81,0,24,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,14,0,3E,0,0,0,27,0,26,0,25,0,24,0,23,0,22,0,2,0,E6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,62,0"
bArr() = Split(strArr, ",")
Dim txt1 As String, txt2 As String
Dim i As Long
For i = 0 To 14
txt1 = txt1 & bArr(52 + i) & "," '这里你可以把分隔符","换成其他的字符
Next i
For i = 0 To 14
txt2 = txt2 & bArr(134 + i) & ","'这里你可以把分隔符","换成其他的字符
Next i
Text1.Text = txt1
Text2.Text = txt2