如何读取*.txt文件中指定的行

Question

Function ReadLineTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   MyFile.WriteLine "Hello world!"
   MyFile.WriteLine "The quick brown fox"
   MyFile.Close
   Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadLineTextFile = MyFile.ReadLine    ' Returns "Hello world!"
End Function
上面这个函数只能读取第一项的值，请问我怎么指定到第二项的值？

Answer 1

大哥,知道写一个过程并调试到没有或很少bug要多少时间不?20点啊,不成比例哦
哎,长分怎么这么慢啊
Public Function ReadLine(FileName As String, LineNumber As Long) As String
    '读FileName中第LineNumber行的内容，使用FSO
    On Error GoTo ErrHandler
    Dim FSO As New FileSystemObject
    Dim FStr As Scripting.TextStream
    Dim ret As Long
    Dim lCount As Long
    If FSO.FileExists(FileName) Then
        Set FStr = FSO.OpenTextFile(FileName, ForReading)
        Do While Not FStr.AtEndOfStream
            lCount = lCount + 1 '滑到行LineNumber
            If lCount = LineNumber Then
                ReadLine = FStr.ReadLine
                Exit Do
            End If
            FStr.SkipLine
        Loop
        FStr.Close
        Set FStr = Nothing
        Set FSO = Nothing
    End If
    Exit Function
ErrHandler:
    MsgBox Err.Description, vbOKOnly + vbExclamation, Err.Number & "-" & Err.Source
End Function

Answer 2

例:Msgbox ReadLine("c:\testfile.txt", 2)'当然那,你第2行要有哦,没有的话,嘿嘿黑

Answer 3

可以直接用ReadLine("c:\testfile.txt", 2)吗？能不能帮我在上面的函数中写一下。

Answer 4

yun........................................................................................................................................................................................................................................................................

Answer 5

Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)For i = 1 to 3 objTextFile.ReadLine NextstrLine = objTextFile.ReadLine Wscript.Echo strLineobjTextFile.Close 

Answer 6

先通过第 1 、2 和 3 行。这就是该代码块实际进行的工作。第一次执行循环时，它调用 ReadLine 方法，这个操作读取文本文件的第 1 行然后自动移动到文件的下一行（第 2 行）。第二次执行循环时，读取第 2 行，然后移动到第 3 行。第三次执行循环时，读取第 3 行，然后移动到第 4 行，即要的行。循环结束。再次调用 ReadLine 方法，只有这一次将该行的内容存储在变量 strLine 中