VB6.0读取TXT的问题

Question

就是循环读取，第一次读取第一行，第二次读取第二行，直到TXT的所有行都读取了才结束，该怎么写？（加分）

Answer 1

Dim TextLine
Open "TESTFILE" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Debug.Print TextLine ' 在调试窗口中显示数据。
Loop
Close #1 ' 关闭文件。

他是自动读过第一行，指向第二行的，所以顺序读下去就可以了

Answer 2

dim txt as string
Open "C:\Autoexec.bat" for Input as #1
Line Input #1,txt
do while Not Eof(1)
list1.additeam txt
Line Input #1,txt
loop
close #1