Question

vb 如何读取txt文件最后一行结束

我编写了一个读txt的程序 但是不知道怎么结束，当结束的时候都出错，qc之前已经定义为1

Private Sub Command2_Click()
Select Case qc
Case 1
Open "bzjh.txt" For Input As #1
Input #1, a, b, c, f, d
中间执行一部分程序
qc=qc+1
case2
中间执行一部分程序后
Input #1, a, b, c, f, d
再执行一部分程序
qc=qc+1
case3
这次点击按钮时没有Input #1, a, b, c, f, d
在执行命令的中间 如果 在case2 的时候已经到最后一项则停止
qc=qc-1
End Select
End Sub
这样怎么停止啊？？我用Do While Not EOF(1)直接就没响应，用if eof（1）也不起作用，有什么办法吗？？ 急啊，最好是留个qq 谢谢
能给个例子吗？谢谢

Answer 1

绝对是EOF，我用过，
你试试返回值，看True还是False表示到达末尾……

While用法应该是：

While
[Statement]
[Exit While]
[Statement]
Wend

还有
Do
...
Loop

没有"Do While"……

Answer 2

用lof（）取出长度再比较试试