删除包含VB.Net中某些内容的行

Imports System.IO

Public Class Program
    Public Shared Sub Main()
        Dim filePath As String = "path/to/your/file.vb"
        Dim contentToRemove As String = "content_to_remove"

        ' 读取文件内容并存储在字符串列表中
        Dim lines As List(Of String) = File.ReadAllLines(filePath).ToList()

        ' 遍历字符串列表，检查每一行是否包含需要删除的内容
        For i As Integer = lines.Count - 1 To 0 Step -1
            If lines(i).Contains(contentToRemove) Then
                ' 如果包含需要删除的内容，将其从字符串列表中移除
                lines.RemoveAt(i)
            End If
        Next

        ' 将更新后的字符串列表重新写入文件
        File.WriteAllLines(filePath, lines)

        Console.WriteLine("删除包含指定内容的行完成。")
    End Sub
End Class