使用 VB6 写入现有文件而不覆盖其中的内容？答案

【问题标题】：Write to an existing file without overwriting what is in it using VB6?使用 VB6 写入现有文件而不覆盖其中的内容？
【发布时间】：2011-02-18 04:52:31
【问题描述】：

我需要写入一个文本文件来记录一组分数。每次我写入文本文件时，它都会覆盖文件中最初的内容。谁能告诉我如何不让它覆盖那里的内容或如何让它开始在空白处写入？

【问题讨论】：

标签： file vb6 append

【解决方案1】：

打开文件“追加”。

这将删除文件：

Open "C:\path\to\file.txt" For Output As FILE

这不会删除现有内容：

Open "C:\path\to\file.txt" For Append As FILE

【讨论】：

【解决方案2】：

为此使用文本追加

通常附加文字

'Start append text to file
    FileNum = FreeFile
    Open "D:\45.txt" For Append As FileNum
    Print #FileNum, Text1.Text
    Close FileNum
'End

保存到应用路径

'Start append text to file
    FileNum = FreeFile
    Open App.Path & "\45.txt" For Append As FileNum
    Print #FileNum, Text1.Text
    Close FileNum
'End

【讨论】：

【解决方案3】：

VB6 的文件操作很糟糕。如果您必须读取文件并立即在同一循环中将数据写出（未附加）以进行转换/某种操作。打开原始文件，对其进行操作，但写入同一目录中具有不同名称的“新”文件。在该过程结束时，您保存新文件，删除原始文件，然后将新文件重命名为旧文件。

【讨论】：

【解决方案4】：

Dim path as String = "S:\My Documents\New folder (2)"
Dim filename as string = "\test.txt"

'To write into a file that will erase text:
FileOpen(1, path & filename, OpenMode.Output)

'To write into a file that will add to text:
FileOpen(1, path & filename, OpenMode.Append)

【讨论】：

请解释您的答案，也可以使用代码等进行格式化
通常最好解释一个解决方案，而不是仅仅发布一些匿名代码行。你可以阅读How do I write a good answer，也可以阅读Explaining entirely code-based answers。而且，是的，格式化你的代码！