VB如何写入文本文件时保留以前的内容 不胜感激

来源:百度知道 编辑:UC知道 时间:2024/06/16 01:43:09

Private Sub Command1_Click()
Open App.Path & "/01.txt" For Binary As #1
Text1 = Input(LOF(1), 1)
Close #1
End Sub

Private Sub Command2_Click()
Open App.Path & "/01.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
======
窗替上填加一个文本框,text1,将multiline属性设置为true
======
Command1_Click 是读出内容
Command2_Click 是保存

将原文本内容读出,新的内容附加在读出后的内容后面,再保存。

直接用Open "x.txt" For Append As [#]filenumber打开文件续写即可。

最简单的方法是在读文件时采用Append方法,即
Open "file" for Append as #1
...
Close #1
Append方法是指向文件尾部添加的方法。
Output是覆盖的方法。