[Yurk@]

Это лишь мое виденье решения вопроса ... попробуй ...

[FreeUser]

Это я так понял для 1-й пары

"что заменяем" - "чем заменяем". Так? А если таких пар 610?

[FreeUser]

Попробовал вашу программу, Yurk@, но она делает 393 действия и на этом все. Поставил заменить "." на " "(пробел), но не заменила. Спасибо за попытку.

[Yurk@]

Как вариант, можно вбить все варианты в СтрингЛист и потом по циклу читать и обрабатыать:
- Прочитал строку проработал по всему С.Листу ... читаем следующую ... в итоге ты по файлу пройдешь только 1 раз, а все остальное будет делать прога.
393 - у тя кол-во строк текста в файле ... у мя было больше. и "точку" на "пробел" меняет нормально !

[FreeUser]

Как вариант, можно вбить все варианты в СтрингЛист и потом по циклу читать и обрабатыать:

Не могли бы вы на примере показать?

Только что проверил остается хвост "Перед вами приdkfcsмер текста…" вот эти 3 точки не заменяет на пробел.

[Yurk@]

Исходная строка:

Перед вами приdkfcsмер текста… ..

Меняем на Перед вами приdkfcsмер текста
Результат:

Перед вами приdkfcsмер текста ..

[FreeUser]

Так ведь надо, чтобы программа все точки удаляла к примеру, а не избранные.

[Yurk@]

если немного модифицировать код под собственные желания, то можно добиться и такого результата напр: Пост №19

[FreeUser]

если бы я это мог то не писал бы с просьбой о помощи. То что я мог - не помогает.

[Aristarh Dark]

Вот я тут набросал - вроде быстро работает:
Сначала открываешь файл FileOpen
Потом в поле from вводишь что заменить
В поле to на что заменить
Жмешь кнопку замены StartReplace
как закончит - выведет затраченное время в миллисекундах
и сохранит резутьтат в C:\out.txt

Блин... файл сильно большой, приложить не могу..

сорри что на депозите

[FreeUser]

А проект можно выложить? Просто я .exe не запускаю на компе. У меня на нем деньги лежат и важные данные.

[LAV45]

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

Код:

//s1 - исходный текст
//s2 - отредактированы
repeat
 a := Pos('..',s1);
  if a > 0 then begin
    s2 := s2 + copy(s1,1,a-1) + '.';
    deletestr(s1,1,a);
  end;
until until a = 0;