如何读这个文件，将其中数据写入变量中。

Question

data.txt
1       1       8       29
1       1       14      29
1       1       11      28
0       0       11      28
0       0       14      29
0       0       12      28
我是这样写的。
Do Until EOF(1)
    Input #ifno2, iSetVehicleDir(i), iSetTaskDir(i), iSetTask(i), iSetVehicleVelocity(i)
    Debug.Print iSetVehicleDir(i), iSetTaskDir(i), iSetTask(i), iSetVehicleVelocity(i)
    i = i + 1
Loop
不行，请赐教。  谢谢。
没有参考书了，只能上网问，实在让人见笑。

Answer 1

lineinput 读一行出来再分割

Answer 2

Line Input # 语句
      从已打开的顺序文件中读出一行并将它分配给 String变量。语法Line Input #filenumber, varnameLine Input # 语句的语法具有以下几个部分：部分 描述 
filenumber 必要。任何有效的文件号。 
varname 必要。有效的 Variant 或 String 变量名。 
说明通常用 Print # 将 Line Input # 语句读出的数据从文件中写出来。Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上。

Answer 3

Private Sub Command1_Click()
  Dim da(20, 4)
  Open "data.txt" For Input As 1
  Do While Not EOF(1)
    s = s + 1
    Input #1, da(s, 1), da(s, 2), da(s, 3), da(s, 4)
  Loop
  Close
End Sub

Answer 4

呵呵，for input 写成了for output 打死也读不出来啊。见笑了