如何知道一个文本文件里面的行数？用什么函数？

这用循环来读，加个计数的变量

dim i as integer
dim iFileNum as integer
dim str as string
  iFileNum =freefile
open 你的文件 for input as #iFileNum '这里要完整的路径和文件名
   do while not eof(iFileNum)
    i=i+1
    line input #iFileNum,str
     'if len(str)=0 then i=i-1'这一行你可以选用,其目的是忽略空行
    loop
close #iFileNum
   msgbox "该文件共 " & i & "行"

[[it] 本帖最后由 不说也罢 于 2008-11-7 19:46 编辑 [/it]]

统计回车换行符会快些

把读字符的代码一起写了,一举两得,你作为版主,尽量能给提问都参考的代码为宜,这样容易留住B友,聚集人气

'哪有这么多时间一个个把代码贴出来啊 直接给思路好些
'既然有要求了,还是给个代码吧
'把下面的代码放到一个标准模块里

Option Explicit
   Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Public Const EM_GETLINECOUNT = &HBA
'读取文本流
Public Function getTextStream(FileName As String) As String
    On Error GoTo ErrorHand
    Dim TempStr As String
    Dim FileNum As Long
    FileNum = FreeFile
    Open FileName For Input As #FileNum
    TempStr = StrConv(InputB(LOF(FileNum), #1), vbUnicode)
    Close #FileNum
    getTextStream = TempStr
    Exit Function
ErrorHand:
    getTextStream = ""
End Function
'方法1,此方法直接搜索字符串,比较通用
Public Function getStringCount(ByVal SearchIn As String, ByVal SearchFor As String) As Long
    Dim Number As Long
    Dim Pos    As Long
    Pos = InStr(1, SearchIn, SearchFor)
    Do While Pos <> 0
       Number = Number + 1
       Pos = InStr(Pos + 1, SearchIn, SearchFor)
    Loop
    getStringCount = Number
End Function
'方法2,此方法用Split,比方法1高效
Public Function getCrlfCount(ByVal SearchString As String) As Long
    Dim ret As Long
    Dim StrArray() As String
    StrArray = Split(SearchString, Chr(10))
    ret = UBound(StrArray)+1
    getCrlfCount = ret
End Function
'方法3,此方法统计TextBox数据行数
Public Function GetTextLines(txtHwnd As Long) As Long
   GetTextLines = SendMessage(txtHwnd, EM_GETLINECOUNT, 0, 0)
End Function
'测试,在C盘建立num.txt文件,内容如下:
当前密码:000905   200001        400001        600001        800000
当前密码:001105   200001        400001        600001        800000
结束密码:001921   200001        400001        600001        800000

测试结果:
方法1:print getstringcount(gettextstream("C:\num.txt"),chr(10))
结果:3
方法2:print getcrlfcount(gettextstream("C:\num.txt"))
结果:3

[[it] 本帖最后由 三断笛 于 2008-11-7 20:46 编辑 [/it]]

非常感谢版主和上面几位网友。再次感谢。

用Replace，替换掉空格，然后看长度变化。

我原创的方法。

好方法!   不过应该是替换回车符

好吧……