方法一:
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
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号文件的所有内容。原文链接：https://www.f2er.com/vb/259075.html