打开某一个文件之后，如何读取从某一行到某一行的数据（比如说从第11行到35行之间的数据）?

Question

打开某一个文件之后，如何读取从某一行到某一行的数据（比如说从第11行到35行之间的数据），用line input好像不行！不知用何方法可以实现啊?

Answer 1

Open "A11001.txt" For Input As #1
Do While Not EOF(1)
   Line Input #1, strLine         '一行一行顺序读出
Loop如果你只要读取第11行到35行之间的数据，可以加一个For循环，当i>=11 and i<=35时

Answer 2

试试下面的：
Private Function ReadFileLine(cfile As String, cLine As Integer) As String
    Dim s As String
    Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream
    Set file1 = fsoTest.GetFile(cfile)
    Set ts = file1.OpenAsTextStream(ForReading)
    s = ts.ReadAll
    Dim Str() As String
    Str = Split(s, vbCrLf)
    ReadFileLine = Str(cLine - 1)
    Set ts = Nothing
End FunctionPrivate Function FileLineCountA(cfile As String) As Integer
Dim s As String
Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream
Set file1 = fsoTest.GetFile(cfile)
Set ts = file1.OpenAsTextStream(ForReading)
s = ts.ReadAll
Dim Str() As String
Str = Split(s, vbCrLf)
FileLineCountA = UBound(Str) + 1
Set ts = Nothing
End Function