Scripting 是否使用工具或vbscript从多个文件中删除前x行？

我对wingrep做了一些修改，但似乎不支持这一点

是否有人有幸从目录“C:\my_direc\”中的所有.txt文件中删除前7行文本

---

我正在使用Win XP。

您可以尝试工具

您可以尝试工具

这是一个VBScript解决方案。还没有测试过，但至少应该让你走上正轨

Dim FSO, txs, fld, fil, content, nLinesToSkip, i
Set FSO = CreateObject("Scripting.FileSystemObject")

nLinesToSkip = 7

fld = FSO.GetFolder("C:\test\")
For Each fil In fld
    If Right(fil.Name, 3) = "txt" Then

        Set txs = fil.OpenAsTextStream(1) ' 1 = for reading
        For i = 1 To nLinesToSkip
            txs.SkipLine
        Next i
        content = txs.ReadAll
        txs.Close

        Set txs = fil.OpenAsTextStream(2) ' 2 = for writing
        txs.Write content
        txs.Close

    End If
Next fil

---

下面是一个VBScript解决方案。还没有测试过，但至少应该让你走上正轨

Dim FSO, txs, fld, fil, content, nLinesToSkip, i
Set FSO = CreateObject("Scripting.FileSystemObject")

nLinesToSkip = 7

fld = FSO.GetFolder("C:\test\")
For Each fil In fld
    If Right(fil.Name, 3) = "txt" Then

        Set txs = fil.OpenAsTextStream(1) ' 1 = for reading
        For i = 1 To nLinesToSkip
            txs.SkipLine
        Next i
        content = txs.ReadAll
        txs.Close

        Set txs = fil.OpenAsTextStream(2) ' 2 = for writing
        txs.Write content
        txs.Close

    End If
Next fil