提取鏈接

我有一個問題，我不知道我怎麼可以提取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個鏈接.. 所以我怎樣才能得到我已經嘗試了很多次的所有鏈接，但沒有運氣：/

來源

2013-10-09 beingbad

看Delphi的文檔'PosEx'，它允許您設置下一個搜索起始位置。 –

使用一個html解析器http://stackoverflow.com/questions/1732348/regex-match-open-tags-except-xhtml-self-contained-tags/1732454#1732454 –

@大衛一般同意你，但你提供鏈接到具有巨大歷史的問題，很難找到有用的東西:)我把鏈接到一個庫我知道答案。 –

HTML解析器是此類任務的唯一真正的解決方案。您可以在這裏找到免費的：

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

來源

2013-10-09 17:20:15

我仍然不知道如何，但感謝您的時間 – beingbad

@beingbad它來有演示項目，其中一個DITidy_Extract_Links，你是否試圖看看這個演示？ –

回答

相關問題