如何将txt内的数据读取到变量中？

Question

例如，现有一txt文本，有一行记录（0.132, 0.295, 0.38, 10, 0.8, 0.67, 300, 1.2, 4000, 0.1, 10）要把这一行记录读到11个变量中，每个字段对应一个变量。
这个该如何实现？

Answer 1

方法一:
Dim f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11, i
Open "c:\1.txt" For Input As 1
    Do Until EOF(1)
        Input #1, f1, f2, f3, f4, f5, f6, f7, f8, f9, f10, f11
    Loop
Close
Print f1; f2; f3; f4; f5; f6; f7; f8; f9; f10; f11
方法二:
Dim a, tmp, i
Open "c:\1.txt" For Input As 1
    Do Until EOF(1)
        Line Input #1, tmp
        a = Split(tmp, ",")
    Loop
Close
For i = 0 To UBound(a)
    Print a(i)
Next中