从html源提取链接

Question

我有一个问题我不知道如何从html源代码中提取多个链接

html代码在Memo1中，链接被提取到memo2 ..

我使用此功能提取2个字符串或2个字符串之间的链接。

Function ExtractBetweenTags(Const Line, TagI, TagF: string): string;
var
  i, f : integer;
begin
  result := '';
  i := Pos(TagI, Line);
  f := Pos(TagF, Copy(Line, i+length(TagI), MAXINT));
  if (i > 0) and (f > 0) then
    Result:= Copy(Line, i+length(TagI), f-1);
end;

这只提供1个链接.. 所以我怎么能得到我多次尝试的所有链接但没有运气：/

Answer 1

HTML解析器是此类任务的唯一真正解决方案。你可以在这里找到免费的：

http://www.yunqa.de/delphi/doku.php/products/tidy/history