delphi - 从 html 源中提取链接

Question

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

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

我使用这个函数来提取 2 个 tangs 之间或 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