Question

VB中，如何将一个字符串以3个3个的存入数组中

例如字符串：0113634387468401546680406464646存入数组后是：011 ，363,438、、、、、、、、

Answer 1

Dim tArr(20) As String, s as String, i as Integer, j as Integer
s = "0113634387468401546680406464646"
j = 0
For i = 1 To Len(s) Step 3
tArr(j) = Mid(s, i, 3)
j = j + 1
Next