设为首页收藏本站

Delphi乐园 开发者的家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 114|回复: 4

取出网页中所有<td>标签中的内容 [复制链接]

Rank: 4

该用户从未签到

金钱
60224
11927
0
在线时间
3 小时
阅读权限
10
精华
1
积分
0
UID
4
发表于 2016-9-7 20:50:45 |显示全部楼层
分享到:
用正则表达式分析源码 或者 微软的com IHTMLDocument接口获取都可以
    wb1: TWebBrowser;





procedure TForm1.BitBtn3Click(Sender: TObject);

var links :OleVariant;

  uri : string;

  i:integer;

begin

  memo1.Lines.Clear;

  links := wb1.OleObject.document.getElementsByTagName('TD');  //拜访标记TD的集合对象

  for i:=0 to Integer(links.length)-1 do

  begin

    uri := links.item(i).outerHtml; //获取索引元素的HTML

    memo1.Lines.Add(uri); //显示到listbox1

  end;

end;
呵呵,以前还没有去弄过这东东
正则表达式 or IHTMLDocument

Rank: 4

该用户从未签到

金钱
60515
11993
0
在线时间
2 小时
阅读权限
10
精华
0
积分
0
UID
26
发表于 2016-9-7 21:01:45 |显示全部楼层
用正则表达式分析源码 或者 微软的com IHTMLDocument接口获取都可以

使用道具 举报

Rank: 4

该用户从未签到

金钱
62730
12098
0
在线时间
222 小时
阅读权限
10
精华
0
积分
0
UID
972
发表于 2016-9-7 21:09:45 |显示全部楼层
wb1: TWebBrowser;





procedure TForm1.BitBtn3Click(Sender: TObject);

var links :OleVariant;

  uri : string;

  i:integer;

begin

  memo1.Lines.Clear;

  links := wb1.OleObject.document.getElementsByTagName('TD');  //访问标记TD的集合对象

  for i:=0 to Integer(links.length)-1 do

  begin

    uri := links.item(i).outerHtml; //获取索引元素的HTML

    memo1.Lines.Add(uri); //显示到listbox1

  end;

end;

使用道具 举报

Rank: 4

该用户从未签到

金钱
60765
11765
0
在线时间
118 小时
阅读权限
10
精华
0
积分
0
UID
912
发表于 2016-9-7 21:12:46 |显示全部楼层
呵呵,以前还没有去弄过这东东

使用道具 举报

Rank: 4

该用户从未签到

金钱
60515
11993
0
在线时间
2 小时
阅读权限
10
精华
0
积分
0
UID
26
发表于 2016-9-7 21:15:46 |显示全部楼层
正则表达式 or IHTMLDocument

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

空间、域名、优惠稳定。香港空间1元,美国2元。

手机版|Delphi乐园 ( 冀ICP备11023363号-7 )    

GMT+8, 2016-10-23 02:16

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

公网安备 14090202000504号

回顶部