delphi 网页源码分析

Question

TBODY>
<TR align=middle>
<TH width="9%">序号</TH>
<TH width="28%">产品型号</TH>
<TH>企业名称</TH>
<TH width="15%">产品类别</TH>
<TH width="15%">限价</TH></TR>
<TR>
<TD align=middle>1</TD>
<TD align=left><A href="index.shtml?method=viewProduct&amp;id=326585" target=_blank>香雪海 BD/BC-108JA</A></TD>
<TD align=left>浙江上工电器制造有限公司</TD>
<TD align=middle>冰箱</TD>
<TD align=middle>1279 元</TD></TR>
<TR>
<TD align=middle>2</TD>
<TD align=left><A href="index.shtml?method=viewProduct&amp;id=326586" target=_blank>香雪海 BD/BC-130JA</A></TD>
<TD align=left>浙江上工电器制造有限公司</TD>
<TD align=middle>冰箱</TD>
<TD align=middle>1339 元</TD></TR>
<TR>
<TD align=middle>3</TD>
<TD align=left><A href="index.shtml?method=viewProduct&amp;id=326587" target=_blank>香雪海 BD/BC-132JD</A></TD>
<TD align=left>浙江上工电器制造有限公司</TD>
<TD align=middle>冰箱</TD>
<TD align=middle>1339 元</TD></TR>
<TR>产品查询结果问题：
  1.我上面分析的源码是只能‘逐行分析’如果超出一行，分析就会错误，(http://topic.csdn.net/u/20100719/13/f9f4772f-e06b-4e7b-b690-74aa3bda6c08.html)
  2.如果要分析多行，象：
  <TD align=middle>1</TD>
  <TD align=left><A href="index.shtml?method=viewProduct&amp;id=326585"target=_blank>香雪海 BD/BC-108JA</A></TD>
  <TD align=left>浙江上工电器制造有限公司</TD>
  <TD align=middle>冰箱</TD>
  <TD align=middle>1279 元</TD></TR>要怎么分析：
  分析出来的结果是这样:
  1 index.shtml?method=viewProduct&amp;id=326585  香雪海 BD/BC-108JA  浙江上工电器制造有限公司  冰箱  1279

Answer 1

這樣子操作顯得很死板如果這些源碼的來源是webbrowser建議直接用它來讀表格就好了
var
   ovTable:   OleVariant;
begin
   ovTable := Wb.OleObject.Document.all.tags('TABLE').item(1);//表示網頁中第二個表格
    for   i   :=   0   to   (ovTable.Rows.Length   -   1)   do //讀行
    begin
       for   j   :=   1   to   ovTable.Rows.Item(i).Cells.Length do//讀列
            begin
               str:=ovTable.Rows.Item(i).Cells.Item(j-1).InnerText;//取值
           end;    end;這樣整個表格的數據就出來了

Answer 2

谢谢 devhp 的解答；
 上面的代码已经可以取得表格的内容，但是，没办法取得到这件商品的网址：
  

Answer 3

取到全部连接在USER 加入 MSHTML; 和 ActiveX;procedure TForm1.Button2Click(Sender: TObject);
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
begin
doc:=WebBrowser1 .Document as IHTMLDocument2;
all:=doc.Get_links;//doc.Links
len:=all.length;

Answer 4

for i:=0 to len-1 do begin
item:=all.item(i,varempty);//EmpryParam
memo1.lines.add(item.href);
end;
end;COPY少了。

Answer 5

网上下载个delphi正则表达式类，写上个式子提取结果即可搞定，效率比webbrowse高