如何提取含有某文字的链接

[janusle13]

请问如何提取含有某文字的链接。比如我要提取一张网页中含有"delphi"这几个字的链接

[micher_yan]

晕，做搜索引擎？？？
AnsiPos不行吗？

• 打赏
• 举报

回复 赞

[楚人无衣]

wb: TWebBrowser;
meoInfo: TMemo;
...
procedure TfrmWebInfo.btnGetInfoeClick(Sender: TObject);
var
ov: OleVariant;
i: Integer;
begin
meoInfo.Lines.Clear;
ov := wb.OleObject.Document.all;
for i := 0 to (ov.Length - 1) do
if UpperCase(ov.Item(i).tagName) = 'A' then
if Pos('delphi', ov.Item(i).InnerText) > 0 then
meoInfo.Lines.Append(ov.Item(i).href);
{meoInfo.Lines.Append(ov.Item(i).id+'|'+ov.Item(i).tagName+'|'+ov.Item(i).href)}
end;

• 打赏
• 举报

回复 赞

[楚人无衣]

procedure TfrmWebInfo.FormCreate(Sender: TObject);
begin
wb.Navigate('http://...')
end;

• 打赏
• 举报

回复 赞