vb.net - 如何在 Visual Basic 中删除文本文件的第一行和最后一行

Question

我看过有关从文本文件中删除指定为函数参数的行的帖子，但我只需要从文件中删除第一行和最后一行。

在处理文件方面我还是个新手，但删除第一行似乎应该很简单...只需删除从 BOF 到第一个 CrLf 字符的所有文本即可。我说得对吗？

至于最后一行，我知道我必须获取文本文件中的行数才能找到它(因为文件并不总是 x 行长)。这就是我真正需要帮助的地方。

注意我正在使用 VB.NET 2005

Answer 1

将文件作为字符串完整读入行列表。使用索引循环将文件写回以捕获除第一个和最后一个项目之外的所有项目。

    Dim listText As New List(Of String)
    Dim objLine As String = ""

    Using objReader As StreamReader = New StreamReader("c:\test.txt")
        Do
            objLine = objReader.ReadLine()
            If objLine IsNot Nothing Then listText.Add(objLine)
        Loop Until objLine Is Nothing
    End Using

    Using objWriter As StreamWriter = New StreamWriter("c:\testOutput.txt")
        For I As Integer = 1 To listText.Count - 2
            objWriter.WriteLine(listText.Item(I))
        Next
    End Using

编辑以满足非常挑剔的需求:

    Dim arrText() As String
    Dim sLine As String = ""

    arrText = File.ReadAllLines("c:\test.txt")

    Using objWriter As StreamWriter = New StreamWriter("c:\testOutput.txt")
        For I As Integer = 1 To arrText.Length - 2
            objWriter.WriteLine(arrText(I))
        Next
    End Using