读一个文件，想直接读最后一行最快的方法是什么呀？

Question

数据库比较容易文件就难了
因为至少你要知道它的行数

Answer 1

是什么文件呀数据库或文本文件

Answer 2

Private Sub Command1_Click()
    Dim Bool As Boolean
    Dim NextChar As Integer
    Dim MaxSize As Long
    Dim Mychar As String
    Bool = False
    Open "e:\123.txt" For Input As #1   ' Open file for input.
    MaxSize = LOF(1)   ' Get size of file in bytes.
'   The loop reads all characters starting from the last.
    For NextChar = MaxSize To 1 Step -1
    Seek #1, NextChar   ' Set position.
    Mychar = Input(1, #1)   ' Read character.
    If Mychar = Chr(10) And NextChar <> MaxSize Then
        Seek #1, NextChar - 1
        Mychar = Input(1, #1)
        If Mychar = Chr(13) Then
            Seek #1, NextChar + 1
            Line Input #1, Mychar
            Exit For
        End If
    End If
    Next NextChar
    Close #1   ' Close file.End Sub你可以参考一下，匆忙之中写的，没有考虑的很仔细，大概思路是将文件定位到最后，然后往回数，但碰到第一个换行符时，就说这是最后一行了，就用line input 好了先去吃饭了