从底部

Question

我从顶部开始删除10行代码。 是否可以这样做但是从txt文件的底部到顶部开始删除？

因此，如果我有30行，我希望删除最后10行或20行。

Const FOR_READING = 1
Const FOR_WRITING = 2
strFileName = "C:\scripts\delete.txt"
iNumberOfLinesToDelete = 10

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)
strContents = objTS.ReadAll
objTS.Close

arrLines = Split(strContents, vbNewLine)
Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)

For i=0 To UBound(arrLines)
    If i > (iNumberOfLinesToDelete - 1) Then
        objTS.WriteLine arrLines(i) 
    End If
Next

Answer 1

在你的for语句中向后循环

For i=UBound(arrLines) To (UBound(arrLines) -10) step -1

Next