如何获取网页的内容并进行分析 ( 积分: 50 )

  • 主题发起人 主题发起人 njhuadong
  • 开始时间 开始时间
N

njhuadong

Unregistered / Unconfirmed
GUEST, unregistred user!
已知某个asp网页,如何获取其中的内容
若要分析其中的一个表格,如何将表格中的内容获取出来
急,在线等!!!!!
 
已知某个asp网页,如何获取其中的内容
若要分析其中的一个表格,如何将表格中的内容获取出来
急,在线等!!!!!
 
主要是对网页中的表格进行分析
 
这也许对你有用http://community.csdn.net/Expert/topic/4163/4163798.xml?temp=.2369806
 
另存为一个HTML文件, 最好可以转换为XML格式
 
我参与的一个帖子http://www.delphibbs.com/delphibbs/dispq.asp?lid=3172221
可能对你有用

下面是我写的读取网格的代码
var
ovTable, ovTableCol, ovTR, ovTRCol, ovTD, ovTDCol: OleVariant;
nTableCount, nTRCount, nTDCount: integer;
st: string;
i, j, k: integer;
ovTableCol := WebBrowser1.OleObject.Document.all.tags('TABLE');// 所有表格
nTableCount := ovTableCol.length;
for i := 7 to nTableCount - 1 do begin
ovTable := ovTableCol.item(i);
ovTRCol := ovTable.all.tags('TR');// 表格内的所有tr
nTRCount := ovTRCol.length;
for j := 0 to nTRCount - 1 do begin
ovTR := ovTRCol.item(j);
ovTDCol := ovTR.all.tags('TD');// tr内的所有td
nTDCount := ovTDCol.length;
for k := 0 to nTDCount - 1 do begin
ovTD := ovTDCol.item(k);
st := ovTD.InnerText;// td里面的文字
end;
end;
end;
 
后退
顶部