delphi 关于dom元素获取。 （使用mshtml IHTMLDocument）进入看详情！

Question

本帖最后由 geekjack 于 2013-01-25 00:19:02 编辑

Answer 1

var  
  i, j,m,n: integer;  
  ovTable,ovTableul: OleVariant;  
[delphi] view plaincopyprint?
//这一部分是取得“无序列表”的部分  
ovTable:=Webbrowser1.OleObject.Document.getElementsByTagName('ul').item(0);  
ovTableul:=ovTable.getElementsByTagName('li');  
  
n:=ovTableul.Length;  
  
if n>0 then  
begin  
  for i:=0 to n-1 do  
  begin  
    self.Memo1.Lines.Add(ovTableul.item(i).InnerText);  
  end;  
end;  

Answer 2

嗯  这个有想过  但是如果无序列表不只一份呢？  比如说
  <div class='aha_class' id='aha_id_A'>
      <ul>
         <li><a href='./aa.php'>a_text</li>
         <li><a href='./bb.php'>b_text</li>
         <li><a href='./cc.php'>c_text</li>
      </ul>
  </div>
  <div class='aha_class' id='aha_id_B'>
      <ul>
         <li><a href='./aa.php'>a_text</li>
         <li><a href='./bb.php'>b_text</li>
         <li><a href='./cc.php'>c_text</li>
      </ul>
  </div>这样如何取得id=aha_id_B下面的列表呢？