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

janusle13 2004-05-06 03:17:44
请问如何提取含有某文字的链接。比如我要提取一张网页中含有"delphi"这几个字的链接
...全文
144 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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不行吗?

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧