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