[FreeUser]

Привет ребят, работаю все с тем же. Лопатим документы.
И так, у меня такая проблема. Медленно работает программа. Ужасно.
Цель - произвести замены (штук 10) в txt файле. Файл большой и делает она это о-ч-ч-ч-ч-ень медленно. Замена идет через функцию. Т.е. по нажатию кнопки срабатывает opendialog и грузит файл в richedit. Потом вызывается Функция(ричэдит,что заменить,чем). И это все очень долго. Помогите пожалуйста средствами делфи скорость обработки поднять. Ворд быстрее лопатит, но я не хочу его подключать.
Заранее благодарен.

[M.A.D.M.A.N.]

Можеш сделать чтение файла по частям (массивом по несколько килобайт).

[ApplicatiOn]

Сообщение от FreeUser

Привет ребят, работаю все с тем же. Лопатим документы.
И так, у меня такая проблема. Медленно работает программа. Ужасно.
Цель - произвести замены (штук 10) в txt файле. Файл большой и делает она это о-ч-ч-ч-ч-ень медленно. Замена идет через функцию. Т.е. по нажатию кнопки срабатывает opendialog и грузит файл в richedit. Потом вызывается Функция(ричэдит,что заменить,чем). И это все очень долго. Помогите пожалуйста средствами делфи скорость обработки поднять. Ворд быстрее лопатит, но я не хочу его подключать.
Заранее благодарен.

OpenDialog не открывает файл а получает к нему путь. Ищи проблему в самой функции.. Если можешь давай её сюда, посмотрим что там..

[FreeUser]

В функции все нормально, просто масок на замену 10, а таких замен 60 000. Ворд обрабатывает за 10-15 минут. Я думал, может многопоточность можно как-нибудь прикрутить.

[ApplicatiOn]

да, многопоточность должна помочь..

[lmikle]

Многопоточность тут не поможет, т.к. задача не делится на независимые части. Как можно убыстрить.
1. Отказаться от TRichEdit и пользоваться TStringList. Т.О. у тебя не будет отрисовки и работы с RTF (если файл явно текстовый).
2. Менять алгоритм замены. Для начала попробовать функцию ReplaceString. Если будет все еще медленно, то писать свою функцию.

[FreeUser]

В общем, видимо придется мне отказываться от замены..Хотя я не знаю что такое TStringList, но txt видимо слишком большой. 2 400 000 символов, надо пройти этот список 570 раз..В итоге с моим алгоритмом программа должна обработать 1 млрд 368 млн символов. Вот работает уже 1.5 часа на моем селероне 128кб кеш L2 и только 24%. Кто-нибудь подскажет алгоритм замены, если не кодом, то словами? Заранее всем спасибо.

[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;