追写新数据到txt文件？

[qhhyq]

各位:
我输出txt文件的代码如下:

On Error GoTo Err3
FileNumber = FreeFile '打开文件并追写新数据
Open strOuttmpFile For Output As #FileNumber
Print #FileNumber, strDateTime
Print #FileNumber, Form1.List1.Text
Close #FileNumber

但这样只是建立新文件,原数据就没了!
我的目的: 打开(或建立)文件并追写新数据。
如果strOuttmpFile 不存在,则新建立；存在,则追写新数据到文件尾!

我看到 MSDN 上的 Open 语句 的语法格式如下：

Open pathname For mode [Access access] [lock] As [#]filenumber

[Len=reclength]

请问，追写新数据到文件尾的代码如何写？

谢谢！

[完美人生2013]

不是有个For Append吗，试一下！

[qhhyq]

谢谢　aljcn　！
我的代码通过了
On Error GoTo Err2
FileNumber = FreeFile '打开文件并追写新数据到文件尾
Open strAllDataFile For Append As #FileNumber
Print #FileNumber, strDateTime
Print #FileNumber, Form1.List1.Text
Print #FileNumber,
Close #FileNumber

借此再请教一个问题，用一个open　语句能否同时读写　txt　文件？
比如我每次要把　Form1.List1.Text　的内容写入到　第　３　行处，即更新到文件前部，但不是最前，因为　第　１　，２行为参数，保持不变！

[ErikChen1985]

Random

[qhhyq]

谢谢　ErikChen1985() 　！

　　　我只会写：

　　　Open strAllDataFile For Random As #FileNumber
　
　　　比如根据第一行参数（只为４位数字），把新数据写到指定的行上？

　　　　谢谢
！

[wxrwan]

Open strOuttmpFile For Append As #FileNumber

[qhhyq]

谢谢　各位!

On Error GoTo Err2
FileNumber = FreeFile '打开文件并追写新数据到文件尾
Open strAllDataFile For Append As #FileNumber
Print #FileNumber, strDateTime
Print #FileNumber, Form1.List1.Text
Print #FileNumber,
Close #FileNumber

借此再请教一个问题，用一个open　语句能否同时读写　txt　文件？
比如我每次要把　Form1.List1.Text　的内容写入到　第　３　行处，即更新到文件前部，但不是最前，因为　第　１　，２行为参数，保持不变！

[qhhyq]

继续追问 7 楼的问题 !

谢谢各位了!

[cn唐三藏]

谢谢

[wowosky]

不能修改,只能重写,我得到的答案
郁闷中

[思诺赛克]

up

[二两就醉]

Open strOuttmpFile For append As #FileNumber

or use FileSystemObject object in Refreences.

[一笑拔剑]

如果你要作这个的话可以使用fso来完成

[qhhyq]

继续追问 7 楼的问题 !

谢谢各位了!

[of123]

不能，Print # 语句所形成的是顺序文件，只能重写或追加到末尾。

[of123]

虽然都叫 .txt 文件，顺序文件和随机文件的内部格式是不一样的。

[Tiger_Zhao]

不可以用顺序文件的方式修改文本文件。

①如果每行的字节数一样长，用随机文件的方式打开文件，通过行长计算第3行的位置，Seek 定位后写数据。

②用读方式打开文本文件A，用写方式打开临时文件B；循环读取A的每一行：是第3行就用新数据写到B，否则原样写入B；最后用B覆盖A。

[qhhyq]

感谢 of123() ,Tiger_Zhao(VB老鸟) !

请问 Tiger_Zhao(VB老鸟) 能否就你所提方法中的第 2 种:
②用读方式打开文本文件A，用写方式打开临时文件B；循环读取A的每一行：是第3行就用新数据写到B，否则原样写入B；最后用B覆盖A。

怎么同时打开,又覆盖等给个实例啊!
比如新数据暂时保存在 变量 strnewdata 中,它不为空,就写入到 b 中.

[qhhyq]

谢谢 Tiger_Zhao(VB老鸟)!

[Tiger_Zhao]

Dim hOldFile As Integer
Dim hNewFile As Integer
Dim lLine As Long
Dim sLine As String

hOldFile = FreeFile()
Open "A" For Input As #hOldFile

hNewFile = FreeFile()
Open "B" For Output As #hNewFile

While Not EOF(hOldFile)
Line Input #hOldFile, sLine
lLine = lLine + 1

If lLine = 3 Then
Print #hNewFile, "新文本"
Else
Print #hNewFile, sLine
End If
Wend

Close #hOldFile
Close #hNewFile

FileCopy "B", "A"
Kill "B"