Dim A$, B$(), n%, i%
' 获得字符 A 的具体值
If Len(A) >= 12 Then
n = Len(A) \ 12
If Len(A) Mod 12 >= 1 Then n = n + 1
ReDim B(1 To n)
For i = 1 To n - 1
B(i) = Mid$(A, (i - 1) * 12 + 1, 12)
Next i
B(n) = Mid$(A, (n - 1) * 12 + 1)
Else
MsgBox "原始字符宽度不够 12。", 0 + 64, "系统提示"
End If
' 字符型数组 B 中已经按要求分成了 12 的宽度了。但 B(n) 可能会不足 12 个宽度。
' 获得字符 A 的具体值
If Len(A) >= 12 Then
n = Len(A) \ 12
If Len(A) Mod 12 >= 1 Then n = n + 1
ReDim B(1 To n)
For i = 1 To n - 1
B(i) = Mid$(A, (i - 1) * 12 + 1, 12)
Next i
B(n) = Mid$(A, (n - 1) * 12 + 1)
Else
MsgBox "原始字符宽度不够 12。", 0 + 64, "系统提示"
End If
' 字符型数组 B 中已经按要求分成了 12 的宽度了。但 B(n) 可能会不足 12 个宽度。