Замена строк в файле, нуна прошка Опции

[Sat]

Короче, есть дофига файлофф... ну допустим банально тхт. в них есть строка, которую нуна заменить на другую.... прогу нуна....
Эта тема уже поднималась... но в архиве чет ненашел нифига :-/

[Rombo]

способ 2 , не требует наличия интрпритатора Perl поэтому работает в любой винде:

создаем файл типа "Test.vbs"
со следующим содержанием

Код

dim fso, fstream, buffer, filename

' объект для работы с файлами
set fso = createobject("scripting.filesystemobject")

' это название файла
filename = "C:\Work\14_test\123.txt"


' открываем файл на чтение(1), читаем все в буффер
set fstream= fso.Opentextfile(filename, 1 )
buffer = fstream.readall
fstream.close

'  делаем с ним все что захочем
buffer = replace(buffer, "малако", "молоко")


'открываем файл на запись(2), он обнуляется, пишем в него.
set fstream= fso.Opentextfile(filename, 2 )
fstream.write  buffer
fstream.close

set fstream = nothing
set fso = nothing

вообще filesystemobject удобная штука.
им же можно устроить цикл "по всем файлам .txt в указанной папке"
http://msdn.microsoft.com/library/default..../jsmthwrite.asp