工具或 vbscript 从多个文件中删除前 x 行？答案

【问题标题】：tool or vbscript to delete first x lines from multiple files?工具或 vbscript 从多个文件中删除前 x 行？
【发布时间】：2011-11-20 23:21:59
【问题描述】：

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

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

我使用的是 Win XP。

【问题讨论】：

标签： scripting vbscript

【解决方案1】：

这是一个 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

【讨论】：

【解决方案2】：

你可以试试Delete Lines工具

【讨论】：