怎样才能得到一个文件中记录的数量？

Question

log格式 (顺序读写的文件，写字板可以打开)

Answer 1

“给个记录加一个编号”是加在这个文件中么？比如像：
 DDD
 EEE
 FFFF
 变成1 DDD
2 EEE
3 FFFF这样吗？ 

Answer 2

'    Purpose:
'     Author:吴文智
'       Date:2001-11-13
'Description:要试用本例请在窗体中填加一个按钮
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Command1_Click()
    Dim strOldFileName As String
    Dim strNewFileName As String
    Dim strLine As String
    Dim strAll As String
    Dim lngCount As String
    
    strOldFileName = "c:\autoexec.bat"
    strNewFileName = "c:\autoexec.bak"
    
    Open strOldFileName For Input As #1
    lngCount = 0
    strAll = ""
    
    Do While Not EOF(1)
        Line Input #1, strLine
        lngCount = lngCount + 1
        strLine = CStr(lngCount) & " " & strLine & vbCrLf
        strAll = strAll & strLine
    Loop
    Close #1
    
    MsgBox "记录数合计:" & lngCount, vbInformation
    
    Open strNewFileName For Output As #2
    Print #2, strAll
    Close #2
    
    MsgBox "带有记录号的文件已存成" & strNewFileName, vbInformation
End Sub

Answer 3

  我告诉你一个快些的办法：将这个文件导入到ACCESS数据库中，然后再按格式导出！绝吧，这个方法对万条以上记录的文件最有效了。具体代码我找不到了，不过这个思路是绝对可以的！

Answer 4

可以是可以，好像复杂了些吧！FileSystemObject里没有办法用吗？

Answer 5

想要用FileSystemObject？看看这个帖子吧，我给他建议用FileSystemObject，结果...好几十分钟呢！你等么？
http://www.csdn.net/expert/topic/358/358535.shtm

Answer 6

这个想法有创意！我太欣赏了。不过限于工作要求，我可能不能采用000000000000的建议。不过我很喜欢。用 uguess的方法吧！

Answer 7

Dim x As New Scripting.FileSystemObject
Dim y As Scripting.TextStream
Set y = x.OpenTextFile("d:\xxxx.txt", ForReading)
y.ReadAll
VBA.MsgBox y.Line

Answer 8

  Dim FSO As New Scripting.FileSystemObject
  Dim Fle As Scripting.TextStream
  Set Fle = FSO.OpenTextFile("c:\dd.txt", ForAppending)
  MsgBox Fle.Line, vbInformation, "Ok"

Answer 9

文件的每一行作为一个记录，
如:
Line Input #1,"名字:","分数","班级"
for classnum=1 to allclassmember
Line Input #1,"我","92","3班"  '这里用三个数组变量代替
next
读出时每一行既为一个记录,第一行为字段名.

Answer 10

文件为非文本文件，有些函数是不可用的如FSO.OpenTextFile

Answer 11

用 open "c:\joking.txt" for output as #1
       do until eof(1) 
         get#1 ,i,content ' i 为记录数
             i=i+1
       cols #1