如何截断大型文本文件的最后一部分

Question

我试图去掉文件末尾的最后一个^和换行符。这段代码适用于小文件，但不适用于非常大的文件。我正在考虑分块读取文件，或者只读最后一部分，但我不确定如何做到这一点。

Dim text As String
Dim intLength As Integer
Dim strEnd As String

text = File.ReadAllText(pstrOutputFolder & "tblzTF2FORMS_" & pstrFormType & ".txt")
intLength = Len(text)
strEnd = Right(text, 2)
If strEnd = "^" & vbLf & "" Then
    intLength = intLength - 2
    text = Left(text, intLength)
    File.WriteAllText(pstrOutputFolder & "tblzTF2FORMS_" & pstrFormType & ".txt", text)
End If

Answer 1

以块为单位读取整个文件，逐步将所有数据写入第二个临时文件(当然，最后两个字符除外)将是最好的选择。当您使用FileStream时，可以查找到给定的位置，然后覆盖单个字节，但只有当您使用相同长度的新数据覆盖数据时，这才有效。当你截断的时候，这是不起作用的。