关于文件打开

Question

我有一个文件1.txt
里面有三行数据
aaaa
bbb
ccc
如何通过程序用循环的方式读取
谢谢

Answer 1

Dim i as Integer
Dim strArry[1 to 3] as Stringi=1
Open "1.txt" For Input As #1
   Do While Not EOF(1)
      Line Input #1, strArry[i] 
      i=i+1
   Loop
Close #1

Answer 2

dim strTmp as stringOpen "c:\1.txt" for input as #1
while not eof(1)
    line input #1,strTmp
    debug.Print strTmp
wend
close #1