multiple1902 方法新颖

还是C好

刚好要用到，谢了

请问下 三断笛 版主，方法三怎么调用？

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA

Public Function GetTextLines(txtHwnd As Long) As Long
   GetTextLines = SendMessage(txtHwnd, EM_GETLINECOUNT, 0, 0)
End Function

[bo]Private Sub Command1_Click()
    MsgBox GetTextLines(Text1.hwnd)
End Sub[/bo]

其实得到行数的方法效率都不高，而这个尤其不高。

哪里有换行只有读到了才会知道，所以至少要把文件读一遍。不存在低于这个时间复杂度的方法。

所以，文件大，那就尽量找低级的简单的代码来实现；文件小，用哪种方法无所谓。就好像我习惯用FSO把一个文本文件全读入再处理，反正文件小。