Question

vb 写数据到txt记事本

假设有文本目录C:\88.txt 如何把text1.text中的数据添加到该文本中？并且每添加一次都用########分开,以便下次不断添加数据,例如格式：

adwadwqdwadwad
wadwad

###################################
fewfefesf
efesfes
esfesf
###################################
f4ewfew
ewfewf
ewfewfew
ewfew
###################################
fsgsgdsfgfdgdfgfdgdfg
dfgsdgf
###################################

Answer 1

'以下是调用方法
Private Sub Command1_Click()
Dim Str
Str = Text1.Text & vbCrLf
Append "c:\88.txt", Str & "#######################"
End Sub
'以下是自定义Append函数用于写入文件(不覆盖)
Public Function Append(ByVal File, Optional ByVal Text)
Open File For Append As #1
Print #1, Text
Close #1
End Function

Answer 2

open "C:\88.txt " for appeng as#1
print#1,text1.text
print#1,###################################
closed#1

追问

您好！ 代码无法使用啊！！

追答

哦，写错一个字母，呵呵，是open "C:\88.txt " for append as#1
print#1,text1.text
print#1,###################################
close#1
呵呵呵

Answer 3

顺序文件操作
1、打开
open pathname for mode as #filenumber
mode:input 打开文件读信息；Output 打开文件写信息； Append 打开文件添加信息到末尾；
2、写信息：write #filenumber,信息；
print #filenumber,信息
3、读信息：input #filenumber,放信息的变量；
line input #filenumber,放信息的变量
strdata=input(数字，#filenumber) ,从指定文件中读取数字个字符信息给strdata
4、关闭文件：close #filenumber
注：不要文件号关闭所有以 Open 打开的文件,可用freefile()获取文件号
建议你使用xml 格式存储数据更好