Question

请问vb如何将一个字符串中以若干个空格间隔的数据，分别显示在list上？

Answer 1

需要先将多个空格转变为一个空格，然后再用split分割，再添加到list中
private function killspace( mystr as string) as string
mystr=replace(mystr, " "," ") '用一个空格替换两个空格
if instr(mystr," ") then killspace = killspace(killspace)'还存在两个连续的空格，则继续替换
end function

Private Sub Command1_Click()
Dim mystr As String, a() As String
mystr = killspace(Text1)
a = Split(mystr)
For i = 0 To UBound(a)
List1.AddItem a(i)
Next
End Sub

Answer 2

Private Sub Command1_Click()
Dim a, b As String
Dim C, I As Integer
a = Text1.Text
B = Replace(a, " ", ",")
C = Split(a)
For i = 0 To UBound(C)
List1.AddItem c(i)
Next i
End Sub
在文本框输入以空格间隔的数据就好了

Answer 3

用split 函数 取各个空格间的字符，再添加到list钟即可

Answer 4

先用split分割成数组，然后循环赋值到list上就行了。