Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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, которая позволяет заменять текст в текстовом файле.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-23 21:37:59/0.0031960010528564/0