如何使用vbscript刪除XML文件中的節點？

Question

我想從每個<product>節點刪除<P_ID> & <P_Name>節點。

這裏是XML的樣子：

<products> 
<product> 
    <P_ID><![CDATA[4]]></P_ID> 
    <Item_T><![CDATA[Pt]]></Item_T> 
    <P_Name><![CDATA[5]]></P_Name> 
    </product> 
    <product> 
    <P_ID><![CDATA[4]]></P_ID> 
    <Item_T><![CDATA[Pt]]></Item_T> 
    <P_Name><![CDATA[5]]></P_Name> 
    </product> 
    <product> 
    <P_ID><![CDATA[4]]></P_ID> 
    <Item_T><![CDATA[Pt]]></Item_T> 
    <P_Name><![CDATA[5]]></P_Name> 
    </product> 
    <product> 
    <P_ID><![CDATA[4]]></P_ID> 
    <Item_T><![CDATA[Pt]]></Item_T> 
    <P_Name><![CDATA[5]]></P_Name> 
    </product> 
</products> 

有成千上萬的產品節點。

這是我到目前爲止有：

Set objXMLDoc = Wscript.CreateObject("Microsoft.XMLDOM") 
objXMLDoc.async = False 

Dim XMLFile 
XMLFile = "products.xml" 
objXMLDoc.load(XMLFile) 
Set nodes = objXMLDoc.selectNodes("products/product/P_ID") 
For Each node In nodes 
    objXMLDoc.documentElement.remove 
Next 

objXMLDoc.Save(XMLFile) 

Answer 1

你需要在前面加上一個斜線從根節點引用您的XPath字符串。然後從父節點可以調用removeChild()方法傳遞節點刪除，這樣...

Set nodes = objXMLDoc.selectNodes("/products/product/P_ID | " & _ 
            "/products/product/P_Name") 
For Each node In nodes 
    node.parentNode.removeChild(node) 
Next