[Linker]

Доброго времени суток! Скажите, а возможно ли реализовать замену участков текста для нескольких файлов одновременно ?

[angvelem]

Можно, в цикле.
Это похоже на замену текста в сохранённых HTML-страницах. Если так, то таких программ достаточно в сети.

[Linker]

Сообщение от angvelem

Можно, в цикле.
Это похоже на замену текста в сохранённых HTML-страницах. Если так, то таких программ достаточно в сети.

А можно где-нибудь исходничек посмотреть ? Весь инет облазил, везде только готовые проги...

[angvelem]

Встречал такие, которые написаны на .NET. Как понимаешь глянуть исходный код такой программы дело техники.

[Linker]

Интересует именно реализация на Delphi, есть банально несколько текстовых документов и нужно заменять один и тот же участок текста. Встречал такую замену в панели управления сайтами на системе Ucoz:

[m1sclick]

Два едита и кнопку на форму.
По нажатии на кнопку в цикле ищешь текст в файле введенный в первом едите и заменяешь на тот что во втором, тоже самое со вторым файлом.
Для этого нужно будет знать такие слова как: pos, copy, delete, TStringList.

upd: Цикл не нужен, во я на вечер туплю)

[angvelem]

Создай 2 потока, к примеру TMemoryStream, в первый грузишь оригинальный текст, во-второй готовый. Ищешь первое вхождение искомой замены, нашёл - копируешь во-второй от начала потока до вхождения. Ищешь конец искомой замены и, если больше искать нечего копируешь во-второй поток от второго вхождения до конца, иначе повторяешь всё по-новой.

[Karsh]

А про StringReplace все забыли?

Код:

procedure ChangeText(InFilename, OutFilename, ChtoIschem, NaChtoMenyaem: string);
var
  txt: TStrings;
begin
  txt:= TStringList.Create;
  try
    txt.LoadFromFile(InFilename);
    txt.Text:= StringReplace(txt.Text, ChtoIschem, NaChtoMenyaem, [rfReplaceAll]);
    txt.SaveToFile(OutFilename);
  finally
    txt.Free;
  end;
end;

И так с каждым файлом (просто в цикле эту функцию вызывай с новым именем файла).

[angvelem]

StringReplace может не подойти. Бывают ситуации, и довольно часто, когда точно знаешь начало и конец искомого и это растягивается на несколько строк, а середина может меняться.