Получение ссылок из HTML

[CraZZZy-GameRRR]

Нужно извлечь из HTML ссылки на ресурсы (картинки, скрипты и пр.). Использую Delphi 7 + TRegExpr.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  RegExpr in 'regexpr.pas';

var
  html, re: string;
  RegexObj: TRegExpr;

begin
  html :=
    '<script src="http://mysite.ru" type="text/javascript"></script>' + #13#10 +
    '<img src="http://mysite.ru/image.png">' + #13#10 +
    '<img id="img" src=''http://mysite.ru/image.png'' class="img" /> ' + #13#10 +
    '<img id=img src=http://mysite.ru/image.png class=img />' + #13#10;

  re := '<(img|script|link)[^>]+(src|href)=([''"])?((?(3).+?|[^\s>]+))(?(3)\3)';
  //                                   тут ошибка  --^

  RegexObj := TRegExpr.Create;
  RegexObj.ModifierI := true; //case insensitive
  RegexObj.ModifierG := true; //case insensitive
  RegexObj.Expression := re;
  if RegexObj.Exec(html) then
  begin
    repeat
      writeLn(RegexObj.Match[4]);
    until not RegexObj.ExecNext;
  end;
  RegexObj.Free;

  readLn;
end.

snap00999.png

Похоже, что TRegExpr не поддерживает условия. Подскажите, как можно изменить регекс, чтобы извлекало путь как с кавычками, так и без.

[Alex11223]

Для парсинга HTML лучше брать парсер HTML, а не регекспы.
Но в Дельфи с их наличием вроде как-то не особо.

Если производительность не важна можно взять TWebbrowser/IHTMLDocument2

[CraZZZy-GameRRR]

Вот как раз нужно именно регексами (требование заказчика). Чтобы минимум зависимостей и быстро работало.

[Alex11223]

А задача-то какая исходная?

И точно ли именно Дельфи нужен, да еще и 7?

[CraZZZy-GameRRR]

Да имено 7. Таково требование заказчика.

Задача: сделать очень упрощённый эмулятор браузера. По заданному URL получить HTML (при помощи synapse это уже сделал), затем получить ссылки на все ресурсы (такие как стили, картинки, скрипты и др.) и просто их скачать без сохранения. Вот и всё.

[Alex11223]

Судя по требованиям для такой задачи — заказчик или школьник осваивающий Дельфи по каким-нибудь урокам Макрушина, или очень странный человек

А другие варианты регексов не подошли? https://www.google.com/search?q=regex+src+href
или библиотека типа http://www.regular-expressions.info/delphi.html

[CraZZZy-GameRRR]

Сообщение от Alex11223

А другие варианты регексов не подошли? https://www.google.com/search?q=regex+src+href
или библиотека типа http://www.regular-expressions.info/delphi.html

Спасибо за ссылки. Выбрал TPerlRegEx и с ним пошло.