VB获取文本文件的最后一行怎么做到？

Question

文本文件就是TXT类的文件，怎么获取最后一行字符？

Answer 1

VB获取文本文件的最后一行，可以在循环中使用Line Input # 语句一行读文本文件，直到到达文件的结尾。

Line Input # 语句，从已打开的顺序文件中读出一行并将它分配给 String变量。

EOF 函数，返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 
或顺序 Input 打开的文件的结尾。

具体代码：

Private Sub Command1_Click()
    Dim i As Long
    Dim strj() As String
    ' è®¾ç½®â€œCancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    ' è®¾ç½®æ ‡å¿—
    CommonDialog1.Flags = cdlOFNHideReadOnly
    ' è®¾ç½®è¿‡æ»¤å™¨
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    ' æŒ‡å®šç¼ºçœçš„过滤器
    CommonDialog1.FilterIndex = 2
    ' æ˜¾ç¤ºâ€œæ‰“开”对话框
    CommonDialog1.ShowOpen
    ' æ˜¾ç¤ºé€‰å®šæ–‡ä»¶çš„名字
    Debug.Print CommonDialog1.FileName
    str = CommonDialog1.FileName
    Open CommonDialog1.FileName For Input As #1
        Do Until EOF(1)
            Line Input #1, s
            
        Loop
    Close #1
    Text1.Text = s
    Exit Sub
ErrHandler:
    ' ç”¨æˆ·æŒ‰äº†â€œå–消”按钮
    Exit Sub
End Sub

Answer 2

Dim A As String
Dim FSO As Object
Dim FSO_File As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO_File = FSO.OpenTextFile(App.Path & "/vm.txt", 1, False) '读取文件而不创建
Do While Not FSO_File.AtEndOfStream
A = FSO_File.ReadLine
Loop
FSO_File.Close
msgbox "最后一行是" & A本回答被提问者和网友采纳

Answer 3

顺序文件只能顺序读完
楼上的FSO可以实现。你可以Open来得更直接

Answer 4

如果从某段字符还可以，你问的问题 就有点严重了！