delphi使用webbrowser取得网页中无序列表（ul）内容的正确方法

怎么没有人发表这些东西啊

真郁闷

今天，继续昨天的话题。

例如：

<ul> <li>11111111111111</li> <li>22222222222222</li> <li>333333333333333</li> <li>44444444444444</li> </ul>

读取无序列表的内容，没找到资料。上一篇《使用webbrowser取得网页中表格（table）内容的正确方法 》不完全，参考java的写法，改了一段。

有序表格和无序表格还真不一样，呵呵。

//这一部分是取得“无序列表”的部分 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;

前面我需要判断，item(0)是指第一行，我需要读取的就是标题，所以没有详细写。

需要的朋友加上一下就可以，很简单。

下面是变量定义，初学者注意一下就行。

var i, j,m,n: integer; ovTable,ovTableul: OleVariant;