Question

是否可以从1 MB文本文件中删除最后14个字符（最后一行）而无需读入和写出每一行？

Answer 1

使用FileStream's。See和.SetLength方法。

Answer 2

您可以先检查最后一行的长度，然后使用fs.setlength删除最后一行的字符数这样一来，您就不必使用循环，工作就可以高效完成

Dim lines() As String = IO.File.ReadAllLines(f)
    Dim L As String = lines.Last.Length.ToString
    Dim f As String = "C:\New Text Document.txt"

        Dim fs As New FileStream(f, FileMode.Open, 
        FileAccess.ReadWrite)
        fs.SetLength(fs.Length - L)
        fs.Close()

如何删除文本文件中的最后一行

2 个答案: