HTML网页树解析实现就是那么简单

l_length ＝ p_object.读数值属性 (“length”, )
.计次循环首 (l_length, l_x)
l_Object ＝ p_object.对象型方法 (“item”, l_x － 1)
l_nodeName ＝ l_Object.文本方法 (“nodeName”, )
.如果真 (l_nodeName ＝ “#text” 或 l_nodeName ＝ “#comment”)
到循环尾 ()
.如果真结束
l_innerText ＝ 删全部空 (l_Object.读文本属性 (“InnerText”, ))
l_innerText ＝ 选择 (l_innerText ＝ “”, “”, “（” ＋ l_innerText ＋ “）”)
' *** 缩略程序块 ***
.如果真 (l_nodeName ＝ “#DOCUMENT”) ' 判断，这是DOCUMENT(第一框架)
l_icon ＝ 0
.如果真结束
.如果真 (l_nodeName ＝ “HTML”) ' HTML部分
l_innerText ＝ “”
.如果真结束
.如果真 (l_nodeName ＝ “HEAD”) ' Head头
l_icon ＝ 1
l_innerText ＝ “”
.如果真结束
.如果真 (l_nodeName ＝ “BODY”) ' BODY
l_innerText ＝ “”
l_icon ＝ 2
.如果真结束
.如果真 (l_nodeName ＝ “STYLE”) ' STYLE
l_innerText ＝ “”
l_icon ＝ 3
.如果真结束
.如果真 (l_nodeName ＝ “META” 或 l_nodeName ＝ “TITLE”)
l_icon ＝ 4
.如果真结束
.如果真 (l_nodeName ＝ “SCRIPT”)
l_innerText ＝ “”
l_icon ＝ 5
.如果真结束
.如果真 (l_nodeName ＝ “DIV”)
l_icon ＝ 6
.如果真结束
.如果真 (l_nodeName ＝ “IMG”)
l_icon ＝ 7
.如果真结束
.如果真 (l_nodeName ＝ “FORM”)
l_icon ＝ 8
.如果真结束
.如果真 (l_nodeName ＝ “SPAN”)
l_icon ＝ 9
.如果真结束
.如果真 (l_nodeName ＝ “INPUT”)
l_icon ＝ 10
.如果真结束
.如果真 (l_nodeName ＝ “A”)
l_icon ＝ 11
.如果真结束
.如果真 (l_nodeName ＝ “IFRAME”)
l_icon ＝ 12
.如果真结束
.如果真 (l_nodeName ＝ “B”)
l_icon ＝ 13
.如果真结束
.如果真 (l_nodeName ＝ “DL”)
l_icon ＝ 14
.如果真结束
.如果真 (l_nodeName ＝ “EM”)
l_icon ＝ 15
.如果真结束
.如果真 (l_nodeName ＝ “TBODY”)
l_icon ＝ 16
.如果真结束
.如果真 (l_nodeName ＝ “TABLE”)
l_icon ＝ 17
.如果真结束
.如果真 (l_nodeName ＝ “UL”)
l_icon ＝ 18
.如果真结束
.如果真 (l_nodeName ＝ “LI”)
l_icon ＝ 19
.如果真结束
.如果真 (l_nodeName ＝ “DT”)
l_icon ＝ 20
.如果真结束
.如果真 (l_nodeName ＝ “DD”)
l_icon ＝ 21
.如果真结束
.如果真 (l_nodeName ＝ “BUTTON”)
l_icon ＝ 22
.如果真结束
.如果真 (l_nodeName ＝ “TR”)
l_icon ＝ 23
.如果真结束
.如果真 (l_nodeName ＝ “P”)
l_icon ＝ 24
.如果真结束
.如果真 (l_nodeName ＝ “TD”)
l_icon ＝ 25
.如果真结束
.如果真 (l_nodeName ＝ “H2”)
l_icon ＝ 26
.如果真结束
.如果真 (l_nodeName ＝ “FONT”)
l_icon ＝ 27
.如果真结束
.如果真 (l_nodeName ＝ “BR”)
l_icon ＝ 28
.如果真结束


加入成员 (m_Text, l_Object.读文本属性 (“outerHTML”, ))
recursive (l_Object.读对象型属性 (“childNodes”, ), m_TreeCtrl.加入项目 (p_index, l_nodeName ＋ l_innerText, l_icon, , 取文本地址 (m_Text [取数组成员数 (m_Text)])))
.计次循环尾 ()