txt中数据如下
1 2.0
36 5.24
数据间有空格，要求分别读取到text中，用如下代码实现不了，如何分别读取到text中，读完一行转下行
Dim a(5) As String
Open "C:\Documents and Settings\Administrator\桌面\vb.txt" For Input As #1
i = 0
Do While Not EOF(1) ' 循环至文件尾.
Line Input #1, a(i) ' 读入一行数据并将其赋予某变量.
i = i + 1
Loop
Close #1
Text1 = a(0)
Text2 = a(1)
text3=a(2)
text(4)=a(3)
1 2.0
36 5.24
数据间有空格，要求分别读取到text中，用如下代码实现不了，如何分别读取到text中，读完一行转下行
Dim a(5) As String
Open "C:\Documents and Settings\Administrator\桌面\vb.txt" For Input As #1
i = 0
Do While Not EOF(1) ' 循环至文件尾.
Line Input #1, a(i) ' 读入一行数据并将其赋予某变量.
i = i + 1
Loop
Close #1
Text1 = a(0)
Text2 = a(1)
text3=a(2)
text(4)=a(3)
dim arr() as string
arr=split(str," ")然后就分开了