Обработать 1000 файлов txt и поместить текстовый файл в 10000 папок (как сделать?)

[drinkis]

Здравствуйте форумчане, возможно для Вас эти задачи покажутся бональными но для меня найти на них ответ оказалось проблематично.

1) Есть 1000 файлов с расширением .txt мне нужно в каждом из файлов (.txt) найти строку содержащую текст .avi и заменить на .jpg. Как это сделать автоматизированным путем?

2) Есть 10000 папок, в каждую из них нужно добавить один и тот же файл .txt. Вопрос тот же: Как это сделать автоматизировано (программа, срипт и т.д.)

Возникшие задачи связаны с каталогизацией данных. Очень нужна Ваша помощь.

_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

[Serge_Bliznykov]

1-ю задачу можно легко выполнить воспользовавшись ЛЮБОЙ программой поиска из замены в файлах. Или можно даже использовать соответствующий плагин по FAR Commander (их много, хоть тот же "Search And Replace" )
разумеется, если эта задача РАЗОВАЯ.
в противном случае лучше написать простенькую программу на любом ЯП.

2-ю задачу наверняка можно решить с помощью скрипта (да хоть те же командный файлы), но там наверняка это замудрённо...
я бы написал простую программу. на Delphi...


p.s. задачи очень простые. я такие люблю обращайтесь в личку, сделаю...

[Rififi]

drinkis

1) Есть 1000 файлов с расширением .txt мне нужно в каждом из файлов (.txt) найти строку содержащую текст .avi и заменить на .jpg. Как это сделать автоматизированным путем?

если один раз - Far + плагин Search & Replace.
если нестолько - утилита sed


2) Есть 10000 папок, в каждую из них нужно добавить один и тот же файл .txt. Вопрос тот же: Как это сделать автоматизировано (программа, срипт и т.д.)

cmd-файл: команды for, copy

[Aiden]

1.

procedure FindFile(path:string);
var
i:integer;
f:TSearchRec;
sl:TStringList;
begin
sl:=TStringList.Create;
if FindFirst(path+'*.txt', faAnyFile, f)=0 then
repeat
  sl:=TStringList.Create;
  sl.LoadFromFile(path+f.Name);    
  for i:=0 to sl.Count-1 do begin
    if Pos('.avi',sl.Strings[i])<>0 then sl.Strings[i]:=StringReplace(sl.Strings[i],'.avi','.jpg',
    [rfReplaceAll,rfIgnoreCase]);
  end;
  sl.SaveToFile(path+f.Name);
until FindNext(f)<>0;
FindClose(f); 
sl.free;
end;

Примерно так. Пишу без Дельфи под рукой поэтому прошу прощения за возможные опечатки

[Serge_Bliznykov]

Aiden, +1
есть, правда, пара нюансов
1) Вы не проверяете, нашлось ли что-нибудь. если в каталоге нет .TXT файлов - получите exception!
2) кодировка исходного текстового файла может быть UNICODE...
3) avi в вашем примере Case sensivity (чуствительная к регистру. поэтому .AVI найдётся/не заменится.
4) если файлы лежат не в одном каталоге (в подкаталогах) - то нужно добавить рекурсивный обход...


но в целом, +1, это, по сути, именно то, что я и собирался предложить автору темы!

[drinkis]

Serge_Bliznykov, Aiden и Rififi огромнео спасибо за ответы. Честно говоря я не совсем понял что делать с

procedure FindFile(path:string);
var
i:integer;
f:TSearchRec;
sl:TStringList;
begin
sl:=TStringList.Create;
if FindFirst(path+'*.txt', faAnyFile, f)=0 then
repeat
  sl:=TStringList.Create;
  sl.LoadFromFile(path+f.Name);    
  for i:=0 to sl.Count-1 do begin
    if Pos('.avi',sl.Strings[i])<>0 then sl.Strings[i]:=StringReplace(sl.Strings[i],'.avi','.jpg',
    [rfReplaceAll,rfIgnoreCase]);
  end;
  sl.SaveToFile(path+f.Name);
until FindNext(f)<>0;
FindClose(f); 
sl.free;
end;

Прошу простить за свою не грамотность. Еще раз спасибо.

[doober]

Serge_Bliznykov, Aiden и Rififi огромнео спасибо за ответы. Честно говоря я не совсем понял что делать с

Жмите на кнопки

При копировании файлов по папкам выбираете сначала файл,потом корневую папку.
При замене выбираете корневую папку.
Ограничения-не выбирайте корень диска,будет ошибка
Таким способом уменьшается время поиска файлов и папок.
Интересно время обработки

[drinkis]

doober! Программа огонь! Спасибо огромное! С меня причитается благодарность! Спасибо!

[doober]

Я же просил сообщить время сколько тратит, на какое количество файлов.папок.
Мне важно знать

[drinkis]

Для того что бы разложить файл по папкам 50 папок = 5 сек.
для замены строк в 1000 .txt файлов = 4 сек.
)