如何得出一个文本文件的行数？

Question

chr$(10)
chr$(13)
这些就是换行符了,数出这些个数应该行了!

Answer 1

open filename for input as #1
i=0
do until eof(1)
  line input #1,str1
  i=i+1
loopi即为文本文件的行数

Answer 2

superzhou(学海无涯),其实我也是这么做的，
还有什么好办法吗？

Answer 3

Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFile行数=UBound(Split(StrConv(LoadBytes,vbUniCode),vbCrLf))+1

Answer 4

如果行太多(上万),效率都很低!
建议:
引用 Microsoft Scripting Runtime !(FSO)
Dim xx As New Scripting.FileSystemObject
Dim yy As Scripting.TextStream
Set yy = xx.OpenTextFile("d:\test.txt")
yy.ReadAll
VBA.MsgBox yy.Line