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

时间:2011-03-28 17:32:12

标签: vb.net filesystems

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

2 个答案:

答案 0 :(得分:3)

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

答案 1 :(得分:0)

您可以先检查最后一行的长度,然后使用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()