Office中国论坛/Access中国论坛

标题: 浅谈DOM之八：处理节点(4) [打印本页]

---

作者: roych    时间: 2015-7-8 11:29
标题: 浅谈DOM之八：处理节点(4)


       讲解完如何操作节点之后，现在开始讲讲如何读取节点。和树控件类似地，读取节点也可以通过遍历来完成。事实上，DOM提供了四个方法来读取节点。第一个子节点（firstChild）、下一个兄弟节点（nextSibling）、上一个兄弟节点（previousSibling）和最后一个子节点（lastChild）。显然，除非同一级别，否则兄弟节点都是结合子节点来完成的。例如，想按顺序读取body里的节点，就必须写这样的伪代码：body.第一个子节点.下一个兄弟节点……一直next到最后一个子节点位置。代码都比较简单，这里就不再一一解释了。

1. '第一个节点
   
2. Private Sub cmdFirstChild_Click()
   
3. Dim wb As WebBrowser
   
4. Dim doc As HTMLDocument
   
5. 
   
6. Set wb = Me.WebBrowser0.Object
   
7. Set doc = wb.Document
   
8. 
   
9. MsgBox doc.querySelector("body").firstChild.outerHTML
   
10. End Sub
    
11. '最后一个节点
    
12. Private Sub cmdLastChild_Click()
    
13. Dim wb As WebBrowser
    
14. Dim doc As HTMLDocument
    
15. 
    
16. Set wb = Me.WebBrowser0.Object
    
17. Set doc = wb.Document
    
18. 
    
19. MsgBox doc.querySelector("body").lastChild.outerHTML
    
20. End Sub
    
21. '第二个节点
    
22. Private Sub cmdNextSibling_Click()
    
23. Dim wb As WebBrowser
    
24. Dim doc As HTMLDocument
    
25. 
    
26. Set wb = Me.WebBrowser0.Object
    
27. Set doc = wb.Document
    
28. 
    
29. MsgBox doc.querySelector("body").firstChild.nextSibling.outerHTML
    
30. End Sub
    
31. '倒数第二个节点
    
32. Private Sub cmdPervSibling_Click()
    
33. Dim wb As WebBrowser
    
34. Dim doc As HTMLDocument
    
35. 
    
36. Set wb = Me.WebBrowser0.Object
    
37. Set doc = wb.Document
    
38. 
    
39. MsgBox doc.querySelector("body").lastChild.previousSibling.outerHTML
    
40. End Sub

复制代码

        至此，关于节点的讲解已经全部讲完。上一节 下一节
[attach]56778[/attach]

---

作者: ipqfhvk    时间: 2015-7-8 12:17
用.NET表示如下[attach]56779[/attach]

---

作者: 风中漫步    时间: 2015-7-8 13:04
谢谢分享

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3