VPF::RegExpr - Форум программистов

Zorak

Дата 11.8.2011, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 720
Регистрация: 13.11.2007

Репутация: нет
Всего: 3

Здраствуйте. Проблема состоит в следующем: Очень долго работают регулярки(.. Смотрим эту тему, в особенности последний пост.

Кратко: При обработке файлов юзал Memo, но обработка происходила слишком долго... Поменял Мемо на стринги, процес ускорился, но регулярки стали медленными. В мемо регулярки глотались меньше чем за секунду на файл, сейчас на файл может уходить от 5с до 3 минут(.. В чем может быть причина?

Вот код:

Код


      for k:=0 to str2.Count-1 do // в str загружен файлик.txt
      begin
        r.Expression:=str2.Strings[k];
        str.Text:=r.Replace(str.Text,'',true);
        Gauge4.Progress := Round(100*k/str2.Count);
        Application.ProcessMessages;
      end; // for k :=
      r.Free;

содержимое str2:

Код


<head[^>]*>[^<]*<[/]head>
<script[^>]*>[^<]*<[/]script>
<!--(.*?)-->
<![^>]+>
<[^>]+>

как можно изменить это либо заменить чемто другим, где можно будет следить за выполнением процесса (количество пройденных строк или еще чтото в этом роде), либо както проврить не зависла ли программа при выполнении этого чуда нанопрограммирования. В приципе вопрос времени это такое.. У меня есть просто страхи что найдет файлик, на котором просто все зависнет.

--------------------

Знание - сила. А сила есть, ума не надо...
Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло.