7,762
社区成员
发帖
与我相关
我的任务
分享文件的读写,数据的添加
对一个已经的存在的文件,要进行数据的添加,比如在一个已经存在的文件里添加一条数据:
symbol (33.20,2157,"符号",123)
用什么方法最好呢?
symbol (33.20,2157,"符号",123)
用什么方法最好呢?
...全文
请发表友善的回复…
发表回复
northwolves 2005-11-02
- 打赏
- 举报
Private Sub Command1_Click()
Open "c:\xxxx.txt" For Binary As #1
Put #1, LOF(1) + 1, "symbol (33.20,2157,""符号"",123)"
Close #1
End Sub
Open "c:\xxxx.txt" For Binary As #1
Put #1, LOF(1) + 1, "symbol (33.20,2157,""符号"",123)"
Close #1
End Sub
fishmans 2005-11-02
- 打赏
- 举报
open "d:\ddd.txt" for append as #1
print #1,"33.20,2157,"符号",123"
close #1
print #1,"33.20,2157,"符号",123"
close #1
clear_zero 2005-11-02
- 打赏
- 举报
1.打开文件，成添加状态
2.写入文件
3.关闭文件
filestring = App.Path & "\a.txt"
Dim ofs As FileSystemObject
Set ofs = New FileSystemObject
Dim txtStream As TextStream
Set txtStream = ofs.OpenTextFile(filestring, ForAppending)
txtstream.WriteLine(写入的内容) '这个函数写入后自动换行
txtstream.Write(写入的内容) ‘这个函数不自动换行
txtStream.Close
Set ofs = Nothing
2.写入文件
3.关闭文件
filestring = App.Path & "\a.txt"
Dim ofs As FileSystemObject
Set ofs = New FileSystemObject
Dim txtStream As TextStream
Set txtStream = ofs.OpenTextFile(filestring, ForAppending)
txtstream.WriteLine(写入的内容) '这个函数写入后自动换行
txtstream.Write(写入的内容) ‘这个函数不自动换行
txtStream.Close
Set ofs = Nothing
adaoke_captain 2005-11-02
- 打赏
- 举报
说详细点?
winehero 2005-11-02
- 打赏
- 举报
什么意思？是要在文本文件末尾添加字串？
