[Delphi] "Одноразовое" рег. выражение

[Delphi] "Одноразовое" рег. выражение

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-ом свопадении.
Если кто сталкивался с подобной проблемой, помогите пожалуйста.

𝕏 Twitter Reddit Telegram Копировать ссылку

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