![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Найти и заменить (работа с текстом)
Vidkart © (2006-04-26 18:13:00)у меня есть КУСОК текста
есть текстовый файл с большим текстом
ну вот мне надо найти в текстовом файле кусок текста определённый (это я могу)
и заменить его на новый (а это не знаю как)
menart (2006-04-26 20:16:00) [1]Читай по строчкам
Poruchik (2006-04-26 18:46:00) [2]мне надо сделать это всё внутри текстового файла (скажем 1.txt);
а текст оч большой и при присваивании его переменной приложение виснит
Gydvin (2006-04-26 18:32:00) [3]
procedure TForm1.Button1Click(Sender: TObject);
var
s,s1,s2:string;
begin
s:='mama'; //исходный текстж
s1:='a'; // заменяемый текст
s2:='s'; // которым заменяется
s:=stringreplace(s,s1,s2,[rfReplaceAll]);
showmessage(s);
end;