首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi 怎么取网页上的列表啊 并保存到记事本中

2012-03-09 
delphi 如何取网页上的列表啊 并保存到记事本中就是这个地址 http://bk.pps.tv/class/61/3088/我想取列表

delphi 如何取网页上的列表啊 并保存到记事本中
就是这个地址 http://bk.pps.tv/class/61/3088/
我想取列表的网址 这一页都要 一页是20个地址  
并且还想取下一页的内容
链接开始端是 <dd class="leftImg"><a href=" 这个是地址 ">这个是结束端
麻烦好心人帮忙写一下,记着不能用取整个网页上的地址那个函数


[解决办法]
用正则吧,去下一个正则的单元,下面匹配,根据实际情况修改
下载链接http://download.csdn.net/source/1090340

Delphi(Pascal) code
var  reg:TRegExpr;  s:string;begin  reg := TRegExpr.Create;  s := Memo1.Text;  reg.Expression := '(<dt>)((.*?))(target="_blank">)(.*?)(</a>)';  ListBox1.Clear;  if reg.Exec(s) then  begin    repeat      ListBox1.Items.Add(reg.Match[5]);    until not reg.ExecNext;  end;end; 

热点排行