UC知道vb如何向文本文件中添加内容
来源：百度知道 编辑：UC知道 时间：2024/05/15 23:06:36
问题是这样得，有一个name.txt文件 窗体上有一个文本框text1和两个按钮cmd1和cmd2，在text1中填上内容后点击按钮1实现向name.txt中添加text1.text，点击cmd2后实现将name.txt中对应text1.text的内容删除。这个功能该如何实现？？着急啊！在线等！
cmd1的单击代码
——————————————————————————————————
open "(这里输入name.txt的完整路径，比如c:\windows\name.txt,引号别漏了,括号不要)" for output as #1 '打开name.text如果已经存在，那么就用新的替换旧的，假如你不想替换而希望在文本末继续写，那就把for output改成for Append
print #1,text1.text 'text1的内容加入到name.text中
close #1 '关闭name.text，说白点就是保存啦
——————————————————————————————————
cmd2的单击代码
——————————————————————————————————
open "(这里输入name.txt的完整路径，比如c:\windows\name.txt,引号别漏了，括号不要)" for output as #2
close #2 '删除？那就什么也不输入，就是空白的了
——————————————————————————————————
写文件采用追加模式即可：实例代码如下：
Dim i As Integer, n As Integer, a(6) As Integer
n = 6
Open "D:\1122.txt" For Append As #1
Randomize
For i = 1 To n
a(i) = Int(Rnd * 1000 + 1)