Заменяем текст в текстовом файле

Delphi , Файловая система , Файлы

procedure FileReplaceString(const FileName, searchstring, replacestring: string); 
var 
  fs: TFileStream; 
  S: string; 
begin 
  fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone); 
  try 
    SetLength(S, fs.Size); 
    fs.ReadBuffer(S[1], fs.Size); 
  finally 
    fs.Free; 
  end; 
  S  := StringReplace(S, SearchString, replaceString, [rfReplaceAll, rfIgnoreCase]); 
  fs := TFileStream.Create(FileName, fmCreate); 
  try 
    fs.WriteBuffer(S[1], Length(S)); 
  finally 
    fs.Free; 
  end; 
end;

Here is the translation of the Pascal code into Russian:

Процедура FileReplaceString(const FileName, SearchString, ReplaceString: строка);

Эта процедура принимает три параметра входа:
- `FileName`: имя файла, который будет модифицирован.
- `SearchString`: строка, которая будет поискована в файле.
- `ReplaceString`: строка, которая заменит найденную строку.

Внутри процедуры она сначала открывает файл с помощью объекта TFileStream. Она задает длину буфера (S) равной размеру файла и читает содержимое файла в этот буфер.

Затем она использует функцию StringReplace из единицы System.SysUtils, чтобы заменить все вхождения строки SearchString на строку ReplaceString. Параметры [rfReplaceAll, rfIgnoreCase] указывают, что все вхождения должны быть заменены, без учета регистра.

Наконец, она создает новый файловый поток и записывает модифицированный буфер обратно в файл.

В статье описывается процедура FileReplaceString на языке Delphi, которая позволяет заменять текст в текстовом файле.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::