Показать сообщение отдельно

[Delphi] "Одноразовое" рег. выражение
  #1  
Старый 30.05.2009, 08:58
Kuzya
Участник форума
Регистрация: 27.04.2008
Сообщений: 224
С нами: 9494306

Репутация: 313
По умолчанию [Delphi] "Одноразовое" рег. выражение

Здравствуйте. Столкнулся со следующей проблемой. Мне нужно из текста (ответ на http-запрос) выдернуть все совпадения с выражением
Код:
<li><h3><a href="(.*)"
Использую библиотеку RegExpr (regexpstudio.com) я получил следующий код
Код:
HResult := idHttp1.Get('http://.....');
regexptpl := '<li><h3><a href="(.*)"';
  with TRegExpr.Create do try
     Expression := regexptpl;
     ModifierI := true;
     ModifierS := true;
     ModifierG := false;
     if Exec(HResult) then begin
       showmessage(Match[1]);
     end;
    finally Free;
  end;
Но он находит только первое совпадение из всего текста. Оно помещается ячейку 1 массива Match и всё, остальные ячейки пусты. Но совпадений в полученном тексте должно быть около 10. Помню с подобной проблемой сталкивался в php и решил её с использованием preg_match_all вместо preg_match. Покопавшись по документации к используемой библиотеке я ничего не нашёл. Единственное на что обратил внимание - функция ExecNext. Я думал что при каждом вызове она будет искать следующее совпадение, но она тоже зацикливалась на 1-ом свопадении.
Если кто сталкивался с подобной проблемой, помогите пожалуйста.

Последний раз редактировалось Kuzya; 30.05.2009 в 09:00..
 
Ответить с цитированием