Изменение текстовика

@sacrafigt · Регистрация: 02.01.2013

Вообщем есть текстовик по адресу: H:/ololo.txt
Нужно найти в нем следующий текст и удалить его: "Report".
На его же месте написать: "Text1"
Остальной текст,который будет в текстовике не трогать.Раньше делал что-то похожее,но не помню.

@ProRockX · 15.05.2013, 00:01

Как вариант, сделать можно так:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
SL : TStringList;
begin
SL := TStringList.Create;
SL.LoadFromFile('H:\ololo.txt');//загружаем содержимое файла
SL.Text := stringreplace(SL.Text, 'Report', 'Text1', [rfReplaceAll, rfIgnoreCase]);
SL.SaveToFile('H:\ololo.txt');//сохраняем в файл
SL.Free;
end;

@sacrafigt 0 / 0 / 0 Регистрация: 02.01.2013 Сообщений: 9
		1
	Изменение текстовика 14.05.2013, 22:32. Показов 960. Ответов 1 Метки нет (Все метки) Вообщем есть текстовик по адресу: H:/ololo.txt Нужно найти в нем следующий текст и удалить его: "Report". На его же месте написать: "Text1" Остальной текст,который будет в текстовике не трогать.Раньше делал что-то похожее,но не помню. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Изменение текстовика

Решение