Question

VB 如何删除文本文件的最后一行

Answer 1

'添加按钮Command1，同时在C盘根目录放个文件c:\test.txt，然后添加下面代码
Private Sub Command1_Click()
    Dim strContent$, l&
    Open "c:\test.txt" For Input As #1
    strContent = StrConv(InputB$(LOF(1), #1), vbUnicode)
    Close #1
    strContent = Left(strContent, InStrRev(strContent, vbCrLf) - 1)
    Open "c:\test.txt" For Output As #1
    Print #1, strContent
    Close #1
    MsgBox "处理完毕！"
End Sub

Answer 2

用正则表达式的替换方法！

Answer 3

Private Sub Command1_Click()
F "c:\abc.txt"
End Sub

Sub F(ByVal Path As String)
On Error GoTo eHandler:
Dim Fc As String, Fn() As String, i As Integer
Open Path For Binary As #1
Fc = Space(LOF(1))
Get #1, , Fc
Close #1
Fn = Split(Fc, vbCrLf)
Do Until Fn(UBound(Fn)) <> ""
ReDim Preserve Fn(UBound(Fn) - 1)
DoEvents
Loop
If UBound(Fn) <= 0 Then
Open Path For Output As #1
Print vbNullString
Close #1
Else
ReDim Preserve Fn(UBound(Fn) - 1)
Open Path For Output As #1
For i = 0 To UBound(Fn)
Print #1, Fn(i)
Next
Close #1
End If
Exit Sub
eHandler:
MsgBox "Error # " & Err.Number & " was generated by " & Err.Source & Chr(13) & Err.Description, vbCritical, "Error", Err.HelpFile, Err.HelpContext
Err.Clear
End Sub

Private Sub Form_Resize()
Form1.WindowState = 2
Command1.Left = (Form1.Width - Command1.Width) / 2
Command1.Top = Form1.Height / 2

End Sub