инструмент или VBScript, чтобы добавить жестко закодированный текст в верхней части нескольких файлов? - PullRequest
Новая
       29

инструмент или VBScript, чтобы добавить жестко закодированный текст в верхней части нескольких файлов?

2 голосов
/ 20 сентября 2011

Кто-нибудь знает инструмент, который может добавить предопределенный текст, такой как следующие 4 строки: 

"My disclaimer:
For legal reasons -
1. Don't blah...
2. You must..."

ко всем .txt файлам в каталоге: "C: / test /"

Я видел функции добавления, но они только добавляют в конец, не уверенный в способе добавления в начало файла.

Моя ОС - Win XP.

Ответы [ 2 ]

2 голосов
/ 20 сентября 2011

SrcHead - бесплатная утилита, которая может настраивать заголовок нескольких исходных файлов.Он написан для Windows и требует .NET Framework 2.0 для работы.

1 голос
/ 20 сентября 2011

Не проверял это, но это должно поставить вас на правильный путь. 

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

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

        Set txs = fil.OpenAsTextStream(1) ' 1 = for reading
        content = txs.ReadAll
        txs.Close

        Set txs = fil.OpenAsTextStream(2) ' 2 = for writing
        txs.Write "MyDisclaimer:" & vbCrLf & "stuff" & content
        txs.Close

    End If    
Next
...