Question

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

Answer 1

打开'追加'文件。

这将删除文件：

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

这不会删除现有内容：

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

Answer 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

Answer 3

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

Answer 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)

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

4 个答案: