Summary This snippet demonstrates how to do an insert, modify and delete elements in an XML DOM

Additional information

function doDelete() dim objNode, objDOM, strXPath 'Create an XML DOM object from the XML file Set objDOM = CreateObject("Microsoft.XMLDOM") objDOM.async = false objDOM.load("Customers.xml") 'Display the original XML values txtOrig.value = objDOM.xml ' Create an instance of the node that you with do delete ' XPath is used to specify the location of the node. This demo interprets to ' selecting the node where the customerID attribute = "ANTON" strXPath = "/customers/customer[@CustomerID='ANTON'~" set objNode = objDOM.selectSingleNode(strXPath) 'Now, remove the selected node from the XML DOM object objDOM.documentElement.removeChild(objNode) 'Display the new contents txtNew.value = objDOM.xml end function function doUpdate() dim objNode, objDOM, strXPath 'Create an XML DOM object from the XML file Set objDOM = CreateObject("Microsoft.XMLDOM") objDOM.async = false objDOM.load("Customers.xml") 'Display the original XML values txtOrig.value = objDOM.xml 'Below are some examples of how to update the contents of an XML Element ' Create an instance of the node that you with do delete ' XPath is used to specify the location of the node. This demo interprets to ' selecting the node where the customerID attribute = "ANTON" strXPath = "/customers/customer[@CustomerID='ANTON'~/@CompanyName" objDOM.selectSingleNode(strXPath).text = "new value 1" objDOM.selectSingleNode( "/customers/customer[@CustomerID='ANATR'~/@CompanyName").text = "new value 2" objDOM.selectSingleNode( "/customers/customer[0~/@CompanyName").text = "new value 3" 'Display the new contents txtNew.value = objDOM.xml end function function doInsert() dim objNode, objDOM 'Create an XML DOM object from the XML file Set objDOM = CreateObject("Microsoft.XMLDOM") objDOM.async = false objDOM.load("Customers.xml") 'Display the original XML values txtOrig.value = objDOM.xml 'Create a new Node object Set objNode = objDOM.createElement("customer") 'Add the objects to the newly created Node AddNodeAttribute objDOM, objNode, "CustomerID", "XMLP" AddNodeAttribute objDOM, objNode, "CompanyName", "XMLPitstop.com" 'Display the new contents txtNew.value = objDOM.xml end function Sub AddDomElement(objDom, strName, strValue) Dim objNode 'Add new node Set objNode = objDom.createElement(strName) objNode.Text = strValue objDom.documentElement.appendChild objNode End Sub Sub AddNodeAttribute(objDom, objNode, strName, strValue) Dim objAttrib Set objAttrib = objDOM.createAttribute(strName) objAttrib.Text =strValue objNode.Attributes.setNamedItem objAttrib objDOM.documentElement.appendChild objNode End Sub