VB中如何获得一个txt文本文件的行数?

[vbhh]

大家好:
有一问题:
如何获得一个txt文本文件到底有多少行?
能帮助解决一下吗......

Thank you very much!

vbhh 2/22 14:48

[Firing_Sky]

这个问题和你头一个问题很相似
Set fs = CreateObject("Scripting.FileSystemObject")
Set txtfile = fs.CreateTextFile("Firing_Sky.txt", True)
i=0
while txtfile.AtEndOfStream=false then
txtfile.skipline
i=i+1
loop
txtfile.Close

[Firing_Sky]

i就是所求的值

[benbenlittle]

如果这个文本文件被读到textbox中就更简单了只需用一个api函数就行了Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
linecount=SendMessage(text.hwnd,EM_GETLINECOUNT,0,ByVal 0&)
text.hwnd 表示textbox的句柄
linecount为结果