找到具有特定属性的XML节点并进行更改

Question

I have looked through several threads here on how to locate an XML node and change an attribute. However, I cannot find a solution to my problem:

I have an XML node which has several nodes under it with the same name (but different attributes). For example:

<Configuration>
  <ConfigOptions>
    <add key="Localize" value="Off" />
    <add key="Cache" value="Database" />
    <add key= etc........

I need to use a simple VBScript to locate the <add> node where key="Cache" and then change the value to something else.

Answer 1

use xpath syntax to select the node

Set xmlDoc = CreateObject("Msxml2.DOMDocument.6.0")
xmlDoc.load strXMLPath
Set node = xmlDoc.selectNodes("//Configuration/ConfigOptions/add[@key='Cache']")
strOldValue = node.item(0).attributes.getNamedItem("value").text

then change the value

node.item(0).attributes.getNamedItem("value").text = strNewValue

then save the xml file

xmlDoc.save strXMLPath