这个字串怎么赋值到字符串数组？
这个字串怎么赋值到字符串数组？
Dim tData As String
tData= "680041680F85612345001100000128571299840000012486161539000001273220491885612345000000000009990000000001125F120F228F004F125F120F228F500000000000020000603E16 "
'掉前面的22个字符和后面的4个字符，这些字符是信息头(680041680F856123450011)校验符(3E)及信息结束符(16)
tData = Mid(tData, 23, Len(tData) - 26)
这样一来：
tData 就等于： "00000128571299840000012486161539000001273220491885612345000000000009990000000001125F120F228F004F125F120F228F50000000000002000060 "
刚好剩下128个字符，我想把上面的字符 16 个字符为一组放到一个字符数组中，格式如下：
0000012857129984
0000012486161539
0000012732204918
8561234500000000
0009990000000001
125F120F228F004F
125F120F228F5000
0000000002000060
请问怎么处理比较方便，如果用For ...Next 循环可以吗？谢谢！
[解决办法]
For i=0 to 8
debug.print mid(tData ,i*16,16)
Next
[解决办法]
Dim tData As String
tData = "680041680F85612345001100000128571299840000012486161539000001273220491885612345000000000009990000000001125F120F228F004F125F120F228F500000000000020000603E16 "
'掉前面的22个字符和后面的4个字符，这些字符是信息头(680041680F856123450011)校验符(3E)及信息结束符(16)
tData = Mid(tData, 23, Len(tData) - 26)
Dim arr(7) As String
Dim i As Long
For i = 0 To 7
arr(i) = Mid(tData, i * 16 + 1, 16)
Debug.Print arr(i)
Next
[解决办法]
dim arr() as string
redim arr(15) as string
for i=0 to 7
arr(i)=mid(tdata,i*16+1,16)
next
