Question

vb 读取textbox数据赋值给数组

数据
17.8 -17.8 88.1
29.8 -29.8 90.1
33.8 -43.8 104.1
45.8 -45.8 106.1
39.9 -39.9 100.2
每行回车结束
数据之间8个空格
每读取一行数据就赋值给数组a(0)=17.8,a(1)=-17.8,a(2)=88.1 输出数组
然后读下一行数据！~赋值给 a(0),a(1),a(2)输出，直到行结束
用循环怎么做啊？

Answer 1

二维数组还是一维的，可以用Split来实现
Dim a() As String
Dim b() As String
Dim i As Integer
Dim j As Integer
a = Split(Text1.Text, Chr(13) & Chr(10))
For i = 0 To UBound(a)
b() = Split(a(i), " ")
Next i

Answer 2

Private Sub Command1_Click()
Dim a
a = Text1.Text
a = Replace(a, vbCrLf, " ", , , vbBinaryCompare)
a = Split(a, " ")
For i = 0 To UBound(a)
MsgBox a(i)
Next i
End Sub