Как заменить в текстовом файле 2005 на 2006

← →
Elena_ (2005-07-12 09:43) [0]

Не подскажите как в текстовом файле заменить "2005" на "2006" (если можно с кодом) - буду очень признательна.

← →
gydvin (2005-07-12 09:59) [1]

В блокноте

← →
Anatoly Podgoretsky © (2005-07-12 10:06) [2]

Загрузить в строку, StringReplace, записать обратно.

← →
Elena_ (2005-07-12 10:14) [3]

>>gydvin очень смешно
>>Anatoly Podgoretsky огромное спасибо, в принципе я пошла таким же путем...

Elena_ (12.07.05 10:14) [3]
Ну другого пути для текстовых файлов и нет.
Зато для данного случая можно работать как с двоичным, проще не будет, просто не надо будет переписывать файл.

← →
_igor (2005-07-12 11:22) [5]

Вот, вроде работает:
var F: File; Buff: array of Char; fSize: Integer; begin AssignFile(F,"AnyTextFile.txt"); try Reset(F,1); try fSize := FileSize(F); SetLength(Buff,fSize); BlockRead(F,Buff[0],fSize); String(Buff) := StringReplace(String(Buff),"2005","2006",[rfReplaceAll]); Rewrite(F,1); BlockWrite(F,Buff[0],fSize); finally Buff := nil; CloseFile(F); end; except MessageBox(GetActiveWindow,"Ошибка при работе с файлом","",MB_ICONERROR); end; end;

Как заменить в текстовом файле 2005 на 2006 Найти похожие ветки