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

[Sat]

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

[bone]

Какая прога?

perl -e 'while (<>) {s/ЧТО_ИЩЕМ/НА_ЧТО_ЗАМЕНЯЕМ/g; print;}' < ИСХ_ФАЙЛ.txt > КОН_ФАЙЛ.txt

Куда проще? Точно так-же и с кучей файлов.

[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

[Sat]

Ромбо... повторюсь... "дофига файлофф... " я замучиюсь... или застрелюсь...

[mosq]

залил к юджину (eugene.psiline.ru)

/all uploads/upload soft (общее)/qreplacer

там и текст менять во многих, и переименовывать сразу кучей можно, и т.п. и т.д.

[Sat]

Выражаю тебе глубокую благодарность в помощи с решением данной поставлененой и невероятно важной задачи :)

[mosq]

угу, номер счет дать куда бабки за услуги перевести? :)))

[Anatoliy]

и 30% мне, за то что закрыл глаза на флуд безпросветный.......