|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.04.2007, 12:43 | #1 |
Регистрация: 04.04.2007
Сообщений: 5
|
Поиск и замена текста в файле
Здравствуйте! Нужна помощь! Есть prn (с esc-последовательностью) файл, мне нужно програмно в delphi заменить один текст другим. Пробовал на файле размером примерно 65к использовать такой код
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; но он почему-то не меняет текст во всех местах, а только первых два вхождения. Как быть? |
04.04.2007, 12:45 | #2 |
Форумчанин
Регистрация: 04.03.2007
Сообщений: 615
|
pos, copy, delete + F1
|
04.04.2007, 12:54 | #3 |
Регистрация: 04.04.2007
Сообщений: 5
|
примерчика не будет?
|
04.04.2007, 20:20 | #4 |
добрый няша
Старожил
Регистрация: 29.10.2006
Сообщений: 4,804
|
можно загружать файл в tstringlist
Код:
вот процедурка которая намного быстрее StringReplace моего собственного производства Код:
хотя можно построчно обрабатывать |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема поиск и замена текста(Delphi) | KirkMETAL | Помощь студентам | 4 | 26.07.2010 08:41 |
Поиск определённого текста в текстовом файле | vitawt | Общие вопросы Delphi | 4 | 20.01.2008 22:12 |
Как правильно сохранить настройки текста в ini файле | KORN | Общие вопросы Delphi | 2 | 30.10.2007 09:14 |
поиск и замена текста в RichEdit | Vasya | Помощь студентам | 11 | 16.03.2007 06:48 |
замена текста | zetrix | Microsoft Office Excel | 0 | 31.10.2006 07:54 |