vb 读取txt文本的行数

方法一:

DimIAsLong
DimsAsstring
I=0
Open"d:\a.txt"ForInputAs#1
DoWhileNotEOF(1)
LineInput#1,S
I=I+1
Loop
Close#1
I就是行数.

方法二:

PrivateSubForm_Load()
Open"d:\你的文件.txt"ForBinaryAs#1
s=Split(Input$(LOF(1),1),vbCrLf)
Close#1
MsgBox"共有"&UBound(s)+1&"行"
End
EndSub

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

函数理解: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号文件的所有内容。