vb里的数组问题

来源：百度知道 编辑：UC知道 时间：2024/05/22 06:32:47
数组1里是CA E5 FA 4A 01 01 2E F3 AC CA FA E5 C2 01 12 E2 AC，如何以分成CA E5 FA 4A 01 01 2E F3 AC 和数组CA FA E5 C2 01 12 E2 AC，就是说以AC为界，分隔，是用spilt函数么？
是这样的，数组a（1）=CA,a（2）=E5,......
要分成上边两个数组，spilt不是用在字符串的么？数组也可以？

代码如下：

Dim A(xxxx)

Function GetArry(ByVal lint As Integer, lSign As String) As String
Dim AllStr As String, GetStr() As String
For i = 0 To lint
AllStr = AllStr & A(i) & Space(2)
Next i

GetStr = Split(AllStr, lSign)
If UBound(GetStr) > 0 Then
For j = 0 To UBound(GetStr)
GetArry = GetArry & GetStr(j) & vbCrLf
Next j
End If
End Function

可以，用 “CA ” （CA加一个空格） 分界

位数固定的话可以用left right
不固定split也可以吧
Dim Key
Key=Split(数组1,"AC")
分1 Key(0)&" A C"
分2 Key(1)&" A C"

a = "CA E5 FA 4A 01 01 2E F3 AC CA FA E5 C2 01 12 E2 AC"
s = Replace(a, "AC ", "AC" & vbCrLf)
Print s

这方法也行..