VB写txt数据，追加

请问如何在一定的格式下把文件存入到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

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

在看下 ，+个 回车 open"c:\a.txt" for append as #1 '引号里面是txt文本的路径 ， append 是追加写入 print#1,vbcrlf print#1,text1 ' text1 是vb 里面的 text1 文本控件 close#1

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