UC知道VB写txt数据，追加
来源：百度知道 编辑：UC知道 时间：2024/06/28 17:36:25
请问如何在一定的格式下把文件存入到txt的文本文档内。后台操作
在VB界面操作添加删除数据。是否可以支持TXT？
如何解决呢？
不要VB调用txt打开因为文件不小打开添加的时候比较慢所以想追加
格式例如：
1
2
3
先给五十分解决后再给五十分。聊表心意·
为后来人写下吧。。我找到自己要的答案了。
新建一个按钮输入
Private Sub Command5_Click() '写文件
Open "sgxldt.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub
再新建一个txtbox 输入你要输入的内容即可·sgxldt.txt这里要修改成你的文档标识。。我是写了个游戏答题器所以写的这个。
不过还是要谢谢你们。
在VB界面操作添加删除数据。是否可以支持TXT？
如何解决呢？
不要VB调用txt打开因为文件不小打开添加的时候比较慢所以想追加
格式例如：
1
2
3
先给五十分解决后再给五十分。聊表心意·
为后来人写下吧。。我找到自己要的答案了。
新建一个按钮输入
Private Sub Command5_Click() '写文件
Open "sgxldt.txt" For Append As #1
Print #1, Text1.Text
Close #1
End Sub
再新建一个txtbox 输入你要输入的内容即可·sgxldt.txt这里要修改成你的文档标识。。我是写了个游戏答题器所以写的这个。
不过还是要谢谢你们。
文件有多大啊？反正我用一个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
对于有一定格式的TXT文件进行追加、删除及插入操作，不管文件多大，通过读取文件到内存数组，然后进行相应的操作效率最高。
建议：对于有一定格式的数据，用数据库的形式操作最为方便。
把你的output方法改成append 方法就可以了。
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