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

Question

这个问题和你头一个问题很相似
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

Answer 1

如果这个文本文件被读到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为结果