Поиск и замена текста

[Jantar]

Здравствуйте, уважаемые профессионалы. У меня вопрос на изъезжанную тему: поиск и замена текста в файле

Есть текстовый файл из 1000 строк. Там надо заменить слово "S1000" на "S1200", "Z100. на Z0." , то есть многострочная замена.

Скажите пожалуйста, через что лучше и удобнее сделать такое? Искал по форуму, но конкретное что-то не нашел (извините, если я слепым был). И тем более, хочу сам на примерах и с вашей помощью научится данной процедуре. Заранее спасибо за помощь

[dmitriegorovih]

Ну вот смотрите
кидаете на форму RichEdit из вкладки Win32
и по нажатию кнопки пишете

procedure TForm1.Button1Click(Sender: TObject);
Var
FLAGS:Treplaceflags;
begin
RichEdit1.Lines.LoadFromFile('c:\текстовы файл.txt');
RichEdit1.Text:=StringReplace(RichEdit1.Text,'S1000'','S1200',FLAGS);
RichEdit1.Lines.SaveToFile('c:\текстовы файл.txt');
end;

[Serge_Bliznykov]

Там надо заменить слово "S1000" на "S1200"

именно слово? А что в Вашем понимании слово?
в тексте (к примеру) AS10009 надо текст менять или нет?
если надо менять везде, то это проще паренной репы (например, в проекте JEDI в JclStrings) функция
StrReplace

replaces one or all occurrences of the specified search pattern with the supplied replace string.
procedure StrReplace(var S: AnsiString; const Search: AnsiString; const Replace: AnsiString; Flags: TReplaceFlags = []);

только она не умеет выделять слова... но это можно дописать...

[Stilet]

Serge_Bliznykov

Зачем ставить какой-то Джейди, если есть стандартная StringReplace?

var s:tstringlist;
begin
 s:=tstringlist.create;
 s.LoadFromFile('файл');
 s.text:=StringReplace(s.Text,' S1000',' S1200',[rfreplaceall]);
 s.SaveToFile('файл');
end.

Здесь учитывается что "слово" начинается с пробела.

[Sanprof]

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

var s:tstringlist;
begin
 s:=tstringlist.create;
 s.LoadFromFile('файл');
 s.text:=StringReplace(s.Text,' S1000',' S1200',[rfreplaceall]);
 s.SaveToFile('файл');
end.

после

 s.SaveToFile('файл');
 FreeAndNil(s);//а то утечки памяти будут

From Stilet: Поправка принята, хотя я больше люблю способ s:=nil;

[Jantar]

Ой, сколько ответов Спасибо. А если у меня через OpenDialog открывается и сохраняется файл в Memo? Как лучше считать и заменить файл при открытии?

procedure TForm1.Button1Click(Sender: TObject);
var
 FileName: File;

 begin
     with OpenDialog1 do
      if Execute then
        begin
         Memo1.Lines.LoadFromFile(FileName);   // открываю файл в memo
        end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.SaveToFile(OpenDialog1.FileName); // сохраняю туда же
end;
end.

[Stilet]

А если у меня через OpenDialog открывается и сохраняется файл в Memo?

Ну дык

Memo1.Lines.Text:=StringReplace(s.Text,' S1000',' S1200',[rfreplaceall]);
...

[Jantar]

Я пробовал так. Пишет, что неизвестная переменная s

[Stilet]

Отгоре, а подумать? А Смекалку включить?
Ладно я в спешке живу, но ты то...
Memo1.Lines.Text:=StringReplace(Memo1.Lines.Text,' S1000',' S1200',[rfreplaceall]);

[Jantar]

3 работы, скоро свадьба и ремонт в квартире - это я не в спешке живу? Спасибо