Замена совпадений во всех текстовых файлах

Возник вопрос по работе с файлами. Хоть и довольно много информации в интернете, решение данной проблемы я так и не нашел, поэтому надеюсь на Вашу помощь.Суть в том, что нужно произвести замену совпадений во всех текстовых файлах в выбранной директории.Замена осуществляется следующим образом
procedure TForm1.Replace(FileName: string; TextToFind: string; ReplaceWith: string);varFileContent: string;Ix: Integer;TTF_Length, RW_Length: Integer;F: System.Text;Symbol: Char;beginTTF_Length:= Length(TextToFind);RW_Length:= Length(ReplaceWith);AssignFile(F, FileName);Reset(F);FileContent:= '';while not EOF(F) dobeginRead(F, Symbol);FileContent:= FileContent + Symbol;end;CloseFile(F);Ix:= 1;repeatif Copy(FileContent, Ix, TTF_Length) = TextToFind thenbeginDelete(FileContent, Ix, TTF_Length);Insert(ReplaceWith, FileContent, Ix);Ix:= Ix + RW_Length;endelseInc(Ix);until Ix > Length(FileContent) - TTF_Length + 1;ReWrite(F);for Ix:= 1 to Length(FileContent) doWrite(F, FileContent[Ix]);CloseFile(F);end;procedure TForm1.Button1Click(Sender: TObject);varte,re:string;beginif Checkbox1.Checked=true thenbeginte:='SPBFUT589000,,';re:='SPBFUT589000,SPBFUT00TP7/,';end;Replace('forts.txt',te,re);end;
3 ответа

Чего то не уловил - совпадения чего надо искать и на что заменять?Или тебе просто надо перебрать все файлы в директории?


Чего то не уловил - совпадения чего надо искать и на что заменять?Или тебе просто надо перебрать все файлы в директории?
Что в файле искать(te:='SPBFUT589000,,';) и на что заменять(re:='SPBFUT589000,SPBFUT00TP7/,';), указано в примере. Проблема в том, что нужно перебрать все текстовые файлы в выбранной пользователем директории и произвести последовательную замену этих совпадений внутри каждого файла, по заданному условию.


Проблема в том, что нужно перебрать все текстовые файлы в выбранной пользователем директории 
Ищи на форуме, неоднократно было, и в ДРКБ тоже. Затем, видимо, грузишь файл в TStrings, меняешь что нужно, и заново сохраняешь в файл под тем же именем.