一个极简单的问题：如何将一段字符串按空格分段赋值给相应的变量

Question

Private Sub Command1_Click()
Dim i As Integer
Dim strAll As String
Dim strCity() As String
    strAll = "1245673234 sadf 2 0994"
    strCity = Split(strAll, " ", , vbTextCompare)
    For i = 0 To UBound(strCity)
        List1.AddItem strCity(i)
    Next
End Sub

Answer 1

我手边没有msdn，不知道split是不是那样用，能否讲一下split？

Answer 2

to  xxlroad(土八路) :兄台的程序写的很好，不过我的目的不是验证你的程序是否能执行，多谢！

Answer 3

我的目的是将字符传按空格分割，然后插入table相应的字段里。多谢你的帮助，不过我对split的用法还是不清楚，能否讲解一下，非常感谢！