VB写txt数据，追加

2025-02-23 14:38:51

推荐回答（4个）

回答1：

文件有多大啊？反正我用一个4MB的文件测试，耗时不到0.01秒。文件路径和文件名自己修改。
代码如下。文件末尾追加的是自然数序列，数字个数随机。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command1_Click()
Open "d:\1.txt" For Append As 1
Dim i As Integer
For i = 1 To Int(Rnd * 100)
Write #1, i
Next
Close
End Sub

回答2：

对于有一定格式的TXT文件进行追加、删除及插入操作，不管文件多大，通过读取文件到内存数组，然后进行相应的操作效率最高。

建议：对于有一定格式的数据，用数据库的形式操作最为方便。

回答3：

把你的output方法改成append 方法就可以了。

回答4：

Private Sub Command1_Click()
Open "1.txt" For Append As #1
Dim i As Integer
For i = 1 To 10
print #1, i
Next i
Close #1
End Sub