浅谈DOM之七：处理节点（3）

roych

       接下来介绍下克隆子节点（cloneNode）、替换子节点（replaceChild）和移除子节点（removeChild）。cloneNode是对子节点进行克隆操作，replaceChild和removeChild则是由父节点对子节点进行操作的。也就是说，除了自身可以被复制之外，并不能直接移除或者修改自身。这一点需要清楚。
       克隆节点语法如下：子节点.cloneNode(布尔值)。参数默认为FALSE，表示只克隆节点，改为TRUE则表示克隆节点和文本。为避免意外，建议写的时候还是不要忽略参数为好。

1. Private Sub cmdCloneNode_Click()
   
2. Dim wb As WebBrowser
   
3. Dim doc As HTMLDocument
   
4. Dim newNode As IHTMLDOMNode
   
5. 
   
6. Set wb = Me.WebBrowser0.Object
   
7. Set doc = wb.Document
   
8. 'TRUE：克隆文本和节点，FALSE：只克隆节点，不克隆文本。
   
9. If Me.Frame14.Value = 1 Then
   
10.     Set newNode = doc.querySelector("body").lastChild.cloneNode(False)
    
11. Else
    
12.     Set newNode = doc.querySelector("body").lastChild.cloneNode(True)
    
13. End If
    
14. '克隆完之后还是要加到节点上的。
    
15. doc.querySelector("body").appendChild newNode
    
16. Me.lblHTML.Caption = "当前BODY的HTML：" & vbCrLf & doc.querySelector("body").innerHTML
    
17. End Sub

复制代码

      replaceChild则有两个参数。语法如下：父节点.replaceChild 新的子节点, 旧的子节点。值得注意的是，如果不使用新的DOM元素，则会移除旧的DOM元素。而且定义的变量也是不一样的。如果将节点替换为文本，那么应定义为IHTMLDOMNode类型。否则，则应定义为IHTMLElement，然后通过创建元素，设置innerText来（这里不支持TextContent）处理。

1. Private Sub cmdReplaceNode_Click()
   
2. Dim wb As WebBrowser
   
3. Dim doc As HTMLDocument
   
4. Dim newNode As IHTMLDOMNode
   
5. Dim newEle As IHTMLElement
   
6. 
   
7. Set wb = Me.WebBrowser0.Object
   
8. Set doc = wb.Document
   
9. 
   
10. If Me.Frame14.Value = 1 Then
    
11.     Set newNode = doc.createTextNode("我是新节点哦")
    
12.     doc.querySelector("body").replaceChild newNode, doc.querySelector("body").lastChild
    
13. Else
    
14.     Set newEle = doc.createElement("span")
    
15.     newEle.innerText = "我也是新节点"
    
16.     doc.querySelector("body").replaceChild newEle, doc.querySelector("body").lastChild
    
17. End If
    
18. Me.lblHTML.Caption = "当前BODY的HTML：" & vbCrLf & doc.querySelector("body").innerHTML
    
19. End Sub

复制代码

      关于移除节点。一些书籍上说是可以只移除文本节点，而不移除元素节点的，但是我没有测试成功。语法如下：父节点.removeChild 子节点。

1. Private Sub cmdRemoveNode_Click()
   
2. Dim wb As WebBrowser
   
3. Dim doc As HTMLDocument
   
4. Dim newNode As IHTMLElement
   
5. Set wb = Me.WebBrowser0.Object
   
6. Set doc = wb.Document
   
7. '只移除最后一个节点
   
8. Set newNode = doc.querySelector("body").lastChild
   
9. doc.querySelector("body").removeChild newNode
   
10. Me.lblHTML.Caption = "当前BODY的HTML：" & vbCrLf & doc.querySelector("body").innerHTML
    
11. End Sub

复制代码

      上一节 下一节