Question

我有一个问题，我需要从文本文件中删除以文本{TAM98}开头的所有行，并且知道如何在VB.net中执行此操作吗？

Answer 1

是的，用所有行重写文件，但这些。

Dim newLines = From line In File.ReadAllLines(path)
               Where Not line.StartsWith("{TAM98}")
File.WriteAllLines(path, newLines)

Answer 2

这是另一种方法，虽然不如蒂姆那么优雅。由于我已经写完了，我想我发布了它：

        Dim sb As New System.Text.StringBuilder()
        Dim myFilePath As String = "c:\MyFile.txt"
        Dim mySearchToken As String = "{TAM98}"

        For Each line As String In System.IO.File.ReadLines(myFilePath)
            If (String.Compare(Left(line, mySearchToken.Length), mySearchToken, True) <> 0) Then sb.AppendLine(line)
        Next

        System.IO.File.WriteAllText(myFilePath, sb.ToString())

虽然，我会说我的一个优点是TAM98是大写还是小写并不重要。

删除以（VB.net）开头的行

2 个答案: