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

janusle13 2004-05-06 03:17:44
请问如何提取含有某文字的链接。比如我要提取一张网页中含有"delphi"这几个字的链接
...全文
87 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
楚人无衣 2004-05-08
procedure TfrmWebInfo.FormCreate(Sender: TObject);
begin
wb.Navigate('http://...')
end;
  • 打赏
  • 举报
回复
楚人无衣 2004-05-08
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;
  • 打赏
  • 举报
回复
micher_yan 2004-05-07
晕,做搜索引擎???
AnsiPos不行吗?
  • 打赏
  • 举报
回复
相关推荐
发帖
网络通信/分布式开发
加入

1584

社区成员

Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
申请成为版主
帖子事件
创建了帖子
2004-05-06 03:17
社区公告
暂无公告