vb 读取txt文本的行数

方法一:

Dim I As Long
Dim S As String
I=0
Open "d:\a.txt" For Input As #1
Do While Not EOF(1)
Line Input #1,S
I=I+1
Loop
Close #1
I就是行数.

 

方法二:

Private Sub Form_Load()
Open "d:\你的文件.txt" For Binary As #1
s = Split(Input$(LOF(1), 1), vbCrLf)
Close #1
MsgBox "共有" & UBound(s) + 1 & "行"
End
End Sub

每行存数组   然后看数组的元素个数 这样写代码很简单 也容易理解 执行效率不是很差 应该还可以 算是好代码了

 

 

函数理解:input(LOF(1),1)

在VB里input(LOF(1),1)
里面的LOF(1)和外面的那个1分别代表什么意思?
简单的说就是 input(LOF(1),1) 中的两个1分别代表什么?

如果改成input(LOF(2),2)那是不是都指2号文件,读取2号文件所有的内容?

那当然……
=================
Input(LOF(1),1)

此时的 Input 是一个函数，返回指定文件中的指定个字符。

LOF 函数返回文件长度，参数为文件号。
Input 函数，第一参数为返回字符数，第二参数为文件号。

简言之，两个1都指第1号文件。

这个语句的意思是读取1号文件的所有内容。