Question

vb读取txt文件行数问题

Dim a As String
Dim n As Integer
Open "c:\1.txtt" For Input As #1
n = 0
While Not EOF(1)
Line Input #1, a
n = n + 1
Wend
Close
MsgBox "文件有 " & n & " 条记录。", vbInformation + vbOKOnly

这段代码是我在网上找的，实现功能是获取txt的行数，但是我不明白这段代码什么意思，可以详细解释一下这段代码工作原理以及每一行什么意思么？

Answer 1

Line Input就是每次读取一行，n = n + 1就是每次读取一行时就把n递增1，所以程序运行完毕后n就是行数了。

还有更简单的方法：
Open "c:\1.txtt" For Binary As #1
MsgBox "文件有 " & UBound(Split(Input(LOF(1), #1), vbCrLf)) + 1 & " 条记录。", vbInformation
Close #1
三行即可

Answer 2

dim TT() as String
dim ss as Integer
open txt for input as #1
Do While Not EOF(1)
Input #1, TT(ss)
ss=ss+1
Loop
Close 1#
txt 是txt文件名 ss 就是行数

Answer 3