这个字串怎么赋值到字符串数组？

Question

这个字串怎么赋值到字符串数组？
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 循环可以吗？谢谢！

Answer 1

For i=0 to 8
 debug.print mid(tData ,i*16,16)
Next

Answer 2

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

Answer 3

dim arr() as string
redim arr(15) as string
for i=0 to 7
arr(i)=mid(tdata,i*16+1,16)
next

Answer 4

现在,应该OKPS:我是让你按照CathySun118(斯年)的思路写,不是让你着搬他的代码

Answer 5

好像这样可以：
    For i = 0 To 7
      If i = 0 Then
         Debug.Print Mid(tData, 1, 16)
      Else
         Debug.Print Mid(tData, i * 16 + 1, 16)
      End If
    Next 可否循环时把截取的字符丢掉，进行退减来获取呢？还有没有更高效的办法啊，谢谢