|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Скорость обработки
Привет ребят, работаю все с тем же. Лопатим документы.
И так, у меня такая проблема. Медленно работает программа. Ужасно. Цель - произвести замены (штук 10) в txt файле. Файл большой и делает она это о-ч-ч-ч-ч-ень медленно. Замена идет через функцию. Т.е. по нажатию кнопки срабатывает opendialog и грузит файл в richedit. Потом вызывается Функция(ричэдит,что заменить,чем). И это все очень долго. Помогите пожалуйста средствами делфи скорость обработки поднять. Ворд быстрее лопатит, но я не хочу его подключать. Заранее благодарен. |
#2
|
||||
|
||||
Можеш сделать чтение файла по частям (массивом по несколько килобайт).
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Цитата:
OpenDialog не открывает файл а получает к нему путь. Ищи проблему в самой функции.. Если можешь давай её сюда, посмотрим что там.. |
#4
|
|||
|
|||
В функции все нормально, просто масок на замену 10, а таких замен 60 000. Ворд обрабатывает за 10-15 минут. Я думал, может многопоточность можно как-нибудь прикрутить.
|
#5
|
|||
|
|||
да, многопоточность должна помочь..
|
#6
|
|||
|
|||
Многопоточность тут не поможет, т.к. задача не делится на независимые части. Как можно убыстрить.
1. Отказаться от TRichEdit и пользоваться TStringList. Т.О. у тебя не будет отрисовки и работы с RTF (если файл явно текстовый). 2. Менять алгоритм замены. Для начала попробовать функцию ReplaceString. Если будет все еще медленно, то писать свою функцию. |
#7
|
|||
|
|||
В общем, видимо придется мне отказываться от замены..Хотя я не знаю что такое TStringList, но txt видимо слишком большой. 2 400 000 символов, надо пройти этот список 570 раз..В итоге с моим алгоритмом программа должна обработать 1 млрд 368 млн символов. Вот работает уже 1.5 часа на моем селероне 128кб кеш L2 и только 24%. Кто-нибудь подскажет алгоритм замены, если не кодом, то словами? Заранее всем спасибо.
|
#8
|
|||
|
|||
Тут уже предлагали использовать 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; |