分割字符串

Question

怎么将字符串如 str="N00000210002213" 分割为一个有n=len(str)个元素字符数组，
如：
char(0)=N,
char(1)=0
char(2)=0
.
.
.
char(n-1)=3

Answer 1

先将字符串复制给一个BYTE数组,然后再按照你需要的长度将数组元素拿出来合并

Answer 2

Private Sub Form_Load()
    Dim rlt() As String, str As String
    str = "N00000210002213"
    ReDim rlt(Len(str))
    For i = 0 To Len(str) - 1
        rlt(i) = Mid(str, i + 1, 1)
        Debug.Print rlt(i)
    Next
End Sub

Answer 3

dim a() as string ,i as integer,str as string
str= "N00000210002213"
ReDim a(len(str))
for i=0 to len(str)-1
  a(i)=Mid(str,i+1,1)
next

Answer 4

Private Sub Form_Load()
    Dim rlt() As String, str As String
    str = "N00000210002213"
    ReDim rlt(Len(str)-1)
    For i = 0 To Len(str) - 1
        rlt(i) = Mid(str, i + 1, 1)
        Debug.Print rlt(i)
    Next
End Sub