仅删除文本文档上的内容（VB.NET 4.8）

我的问题看起来很复杂，但没那么复杂。我有一个文本文档，其中包含以下内容：

除去

除去

除去

除去

保持

保持

ect。保留

我只想删除，删除和保持保持没有空间。 怎么办

---

谢谢大家!

在代码文件的顶部

    FileOpen(1, "file.txt", OpenMode.Input)

    Dim S As String = "REMOVE"
    While S = "REMOVE"
       S = Trim(LineInput(1))
    End While

    Dim newTxt As String = S + vbCr

    While Not EOF(1)
       newTxt += Trim(LineInput(1)) + vbCr
    End While
     FileClose(1)
     FileOpen(1, "file.txt", OpenMode.Output)
     Print(1, newTxt)
     FileClose(1)

Imports System.IO

然后我们可以使用这个名称空间中的

文件

类。看

---

这个文档是一个文件还是一个文本框？那么我们是在寻找“删除”和“保留”，还是在问如何删除文件的前4行？在更改文本文件时，您基本上有两个选项：（1）写入临时文件，删除原始文件，重命名临时文件，或（2）将整个文件读入内存（可能使用一个列表（字符串）），修改列表，覆盖原始文件。我尝试了此代码，但它没有任何作用。如何使用它？非常感谢。我已经很久没有使用vb6文件了。我更希望看到.net解决方案。假设您的文档是“file.txt”格式，并且包含您所写的有问题的文本，那么它应该覆盖文件，只保留“KEEP”行。@LudovicGoulet我很高兴它对您有效。请单击我答案左侧的复选标记（勾号）接受我的答案。@Mary FWIW，您可以使用该方法避免使用String.Join。

Private Sub RemoveRemove()
    Dim lines = File.ReadAllLines("C:\Users\maryo\Desktop\KeepRemove.txt")
    Dim KeepLines As New List(Of String)
    For Each line In lines
        If line.StartsWith("KEEP") Then
            KeepLines.Add(line)
        End If
    Next
    File.WriteAllText("C:\Users\maryo\Desktop\Keep.txt", String.Join(vbCrLf, KeepLines))
End Sub