Vb.net 在Visual Basic中覆盖文件

每当我第一次在文本文件中保存标签时，它都可以正常工作

然后，当我编辑某个内容并再次尝试保存它时，它只是将所有内容放在一起

我已经搜索过了，但找不到覆盖整个文件的方法，我该怎么做？我目前的代码是：

Dim file As System.IO.StreamWriter
    file = My.Computer.FileSystem.OpenTextFileWriter("D:\Documenten\test.txt", True)
    file.WriteLine("Last Generated Child")
    file.WriteLine(Code.Text)
    file.WriteLine("All Available Parents")
    file.WriteLine(Parent1Code.Text)
    file.WriteLine(Parent2Code.Text)
    file.WriteLine(Parent3Code.Text)
    file.WriteLine(Parent4Code.Text)
    file.WriteLine(Parent5Code.Text)
    file.WriteLine(Parent6Code.Text)
    file.Close()

另一个可行的方法是覆盖特定行

谢谢：）

该方法能够附加到文件中先前存在的文本，或者用新数据覆盖所有内容

您正在使用设置为True的

Append

参数。
因此，每次写入文件时，文本都会附加到文件的当前内容中

如果要覆盖，则只需更改

file = My.Computer.FileSystem.OpenTextFileWriter("D:\Documenten\test.txt", False)

此外，我建议将您的StreamWriter封装在一个容器中，以确保正确关闭和处理您的流

Using file = My.Computer.FileSystem.OpenTextFileWriter("D:\Documenten\test.txt", True)
    file.WriteLine("Last Generated Child")
    file.WriteLine(Code.Text)
    file.WriteLine("All Available Parents")
    .....
End Using

该方法能够附加到文件中预先存在的文本，或者用新数据覆盖所有内容

您正在使用设置为True的

Append

参数。
因此，每次写入文件时，文本都会附加到文件的当前内容中

如果要覆盖，则只需更改

file = My.Computer.FileSystem.OpenTextFileWriter("D:\Documenten\test.txt", False)

此外，我建议将您的StreamWriter封装在一个容器中，以确保正确关闭和处理您的流

Using file = My.Computer.FileSystem.OpenTextFileWriter("D:\Documenten\test.txt", True)
    file.WriteLine("Last Generated Child")
    file.WriteLine(Code.Text)
    file.WriteLine("All Available Parents")
    .....
End Using

---

File.WriteAllText

或

File.writeAllines

您正在尝试使用旧式VB6处理文件的方法。我相信

My.

下的所有内容都是遗留的VB6。改为使用

IO.File

。@Neolisk我想您考虑的是

Microsoft.VisualBasic.Compatibility

My

是另一种类型：

File.WriteAllText

或

File.WriteAllines

您正在尝试使用传统的VB6方式处理文件。我相信

My.

下的所有内容都是遗留的VB6。改为使用

IO.File

。@Neolisk我想您考虑的是

Microsoft.VisualBasic.Compatibility

<代码>我的是另一个：