(Excel) Demonstrate the XML UpdateAttrAt Method

Demonstrates the XML UpdateAttrAt method to update attribute name/value pairs in XML.

Note: This example requires Chilkat v9.5.0.64 or later.

Download Excel Class Modules Chilkat Excel Class Modules

' Note: This example requires Chilkat v9.5.0.64 or later.
Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml

xml.Tag = "animals"


autoCreate = True

' When the autoCreate argument equals True, the UpdateAttrAt
' method auto-creates the children as needed:
Dim success As Boolean
success = xml.UpdateAttrAt("penguin",autoCreate,"feature","flightless bird")
success = xml.UpdateAttrAt("mammal|rodent|squirrel",autoCreate,"feature","bushy tail")
success = xml.UpdateAttrAt("mammal|rodent|rat",autoCreate,"feature","long hairless tail")

' Show the XML
Debug.Print xml.GetXml()

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<animals>
' 	    <penguin feature="flightless bird" />
' 	    <mammal>
' 	        <rodent>
' 	            <squirrel feature="bushy tail" />
' 	            <rat feature="long hairless tail" />
' 	        </rodent>
' 	    </mammal>
' 	</animals>
' 

' Now update each node's "feature" attribute..
success = xml.UpdateAttrAt("penguin",autoCreate,"feature","black and white")
success = xml.UpdateAttrAt("mammal|rodent|squirrel",autoCreate,"feature","grey, red, or black")
success = xml.UpdateAttrAt("mammal|rodent|rat",autoCreate,"feature","brown, grey, white, or black")

Debug.Print xml.GetXml()

' 	<?xml version="1.0" encoding="utf-8" ?>
' 	<animals>
' 	    <penguin feature="black and white" />
' 	    <mammal>
' 	        <rodent>
' 	            <squirrel feature="grey, red, or black" />
' 	            <rat feature="brown, grey, white, or black" />
' 	        </rodent>
' 	    </mammal>
' 	</animals>
'