(VBScript) Find and Update an XML Attribute Value

See more XML Examples

Demonstrates how to find an element in XML with a specified attribute name and then update the attribute value.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' Let's say you have 2 XML files with identical structures as shown directly below,
' and you wish to update the values in the 1st XML file with those in the 2nd XML file.

' <global>
'     <phrase id="2FADisabled" value="2factor authentication disabled"/>
'     <phrase id="2FAEnabled" value="2factor authentication enabled"/>
'     <phrase id="2FAResetFailed" value="Failed to disable two factor authentication"/>
' </global>

' <global>
'     <phrase id="2FAResetFailed" value="Failed to reset two factor authentication"/>
'     <phrase id="2FADisabled" value="2FA authentication disabled"/>
'     <phrase id="2FAEnabled" value="2FA authentication enabled"/>
' </global>

' First, initialize each of the Chilkat XML objects.
' These could be loaded from files, but we'll just create them manually for this example..

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml1 = CreateObject("Chilkat.Xml")
xml1.Tag = "global"
success = xml1.UpdateAttrAt("phrase",1,"id","2FADisabled")
success = xml1.UpdateAttrAt("phrase",1,"value","2factor authentication disabled")
success = xml1.UpdateAttrAt("phrase[1]",1,"id","2FAEnabled")
success = xml1.UpdateAttrAt("phrase[1]",1,"value","2factor authentication enabled")
success = xml1.UpdateAttrAt("phrase[2]",1,"id","2FAResetFailed")
success = xml1.UpdateAttrAt("phrase[2]",1,"value","Failed to disable two factor authentication")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml2 = CreateObject("Chilkat.Xml")
xml2.Tag = "global"
success = xml2.UpdateAttrAt("phrase",1,"id","2FAResetFailed")
success = xml2.UpdateAttrAt("phrase",1,"value","Failed to reset two factor authentication")
success = xml2.UpdateAttrAt("phrase[1]",1,"id","2FADisabled")
success = xml2.UpdateAttrAt("phrase[1]",1,"value","2FA authentication disabled")
success = xml2.UpdateAttrAt("phrase[2]",1,"id","2FAEnabled")
success = xml2.UpdateAttrAt("phrase[2]",1,"value","2FA authentication enabled")

' Iterate over attribute values in xml2 and update the same in xml1.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbPath = CreateObject("Chilkat.StringBuilder")

i = 0
count_i = xml2.NumChildrenHavingTag("phrase")
Do While i < count_i
    xml2.I = i
    phrase_id = xml2.ChilkatPath("phrase[i]|(id)")
    phrase_value = xml2.ChilkatPath("phrase[i]|(value)")

    ' Notice how the UpdateAttrAt method's 1st argument is a Chilkat path -- which is an expression
    ' to find the location of the XML element to be updated.
    ' Here we create a path of the form "/A/tagName,attributeName,attributeValuePattern", which means
    ' find the direct descendent of xml2 having tag=tagName, with an attribute=attributeName where the attribute value
    ' matches the attributeValuePattern.  If attributeValuePattern does not contain a "*", then it must match directly.
    ' We'll build a Chilkat path such as "/A/phrase,id,2FADisabled"
    success = sbPath.SetString("/A/phrase,id,")
    success = sbPath.Append(phrase_id)

    ' This assumes the corresponding element exists in xml1.
    success = xml1.UpdateAttrAt(sbPath.GetAsString(),1,"value",phrase_value)

    i = i + 1
Loop

' Now see how xml1 has been updated..
outFile.WriteLine(xml1.GetXml())

' <global>
'     <phrase id="2FADisabled" value="2FA authentication disabled"/>
'     <phrase id="2FAEnabled" value="2FA authentication enabled"/>
'     <phrase id="2FAResetFailed" value="Failed to reset two factor authentication"/>
' </global>

outFile.Close