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

Question

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

Answer 1

用正则吧，去下一个正则的单元，下面匹配，根据实际情况修改
下载链接http://download.csdn.net/source/1090340var
  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;

Answer 2

用楼上的正则，简单的话可以用PosEx函数循环获取~

Answer 3

楼上的思路都可以
先读取网页源码（可以用IDHTTP）
然后用正则 取相关字符串
剩下的就是自己完善代码了

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
const   sHTML='<dd class="leftImg"><a href="';
        eHTML='">';
var HTML,Txt:string;
    i,j:integer;
begin
    j:=length(sHTML)-1;
    HTML:=IdHTTP1.Get('http://bk.pps.tv/class/61/3088/');
    i:=pos(sHTML,HTML);
    while i>0 do begin
        delete(HTML,1,i+j);
        i:=pos(eHTML,HTML);
        Txt:=Txt+copy(HTML,1,i-1)+#13#10;
        i:=pos(sHTML,HTML);
    end;
    Memo1.Text := Txt;
end;经测试,网站返回的HTTP代码为 404 ,实际还是有用的真实内容,我的IDHTTP控件是修改过源码的,可以返回所有网站发来的内容.