工具或VBScript從多個文件中刪除第一個X行？

Question

我已經用wingrep弄了一下，但似乎不支持這一點。

有沒有人有任何運氣說刪除目錄「C：\ my_direc \」中的所有.txt文件的前7行文本？

我使用的是Win XP。

Answer 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 

Answer 2

您可以試試Delete Lines工具