Question

vb 如何把txt文件的最后一行内容删除？

注意：从只删除最后一行内容开始依次往上删除。
如：
123.txt文件中内容有

VB框架为

点“删除最后一行”命令后能把最后一行“123456789”删除，更新123.txt文件的内容并在text1.text中重新读取123.txt的内容显示，依次类推逐个删除至第一行，文件空时不出错就行。
请大侠解释每条语句，谢谢





Answer 1

方法一
readline 读取我就不说了,我只说你读取的时候可以把读取的行数,放入一个全局变量中line_n,在按按钮操作的时候只要,重新打开该文本,并依次 writeline 前 line_n-1到文件即可
方法2
'split函数
arrs=split(text1.text,vbcrlf)
'然后 ubound(arrs)获得行数
l_n=ubolund(arrs)
'最后写入 arrs(0)到 arrs(l_n-1)行到文件后并读取即可

追问

没看懂，能否把代码写清楚呢？

追答

Private Sub Command1_Click()
arrs = Split(Text1.Text, vbCrLf)
Set fso = CreateObject("scripting.filesystemobject")
If UBound(arrs) >= 1 Then
Set file = fso.OpenTextFile("1.txt", 2, True)
For i = 0 To UBound(arrs) - 1
file.writeline arrs(i)
Next
file.Close
MsgBox "成功删除了行:" & arrs(UBound(arrs))
Else
MsgBox "只有最后一行了", vbExclamation, "别删了"
End If
Text1.Text = ""
Set file = fso.OpenTextFile("1.txt", 1) '写对应的文件位置
Do While file.AtEndOfStream True
s = file.readline
If Text1.Text = "" Then
Text1.Text = s
Else
Text1.Text = Text1.Text & vbCrLf & s
End If
Loop
file.Close
End Sub

Answer 2

1. 你可能txt最后一行是空行

2. 读入text中清除最后一行 Text1 = Left(Text1.Text, Len(Text1.Text) - 1)

3. 然后再写入txt就OK了