Question

vb如何向文本文件中添加内容

问题是这样得，有一个name.txt文件 窗体上有一个文本框text1和两个按钮cmd1和cmd2，在text1中填上内容后点击按钮1实现向name.txt中添加text1.text，点击cmd2后实现将name.txt中对应text1.text的内容删除。这个功能该如何实现？？着急啊！在线等！

Answer 1

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 '删除？那就什么也不输入，就是空白的了
——————————————————————————————————

Answer 2

先用一个按钮
private
sub
command1_click()
open
"c:\1.txt"
for
output
as
#1
print
#1,text1.text
close
#1
end
sub
直接写入，会覆盖原来的所有数据
private
sub
command1_click()
open
"c:\1.txt"
for
append
as
#1
print
#1,text1.text
close
#1
end
sub
追加写入，写在原来的数据后面，不会破坏原来的数据。
如果没有"c:\1.txt",这两种方法都会自动新建此文件

Answer 3

写文件采用追加模式即可：实例代码如下：

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)
    Print #1, a(i)
  Next i
Close #1

Answer 4

Private Sub Command1_Click()
Open App.Path & "\name.txt" For Append As #1
Print #1, Text1
Close #1
End Sub

Private Sub Command2_Click()
Dim s As String
Open App.Path & "\name.txt" For Input As #1
s = StrConv(InputB$(LOF(1), #1), vbUnicode)
Close #1
s = Replace(s, Text1, "")

Open App.Path & "\name.txt" For Output As #1
Print #1, s
Close #1
End Sub

Answer 5

写文件采用追加模式即可：实例代码如下：
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)
Print #1, a(i)
Next i
Close #1