(Visual Basic 6.0) Demonstrate the XML UpdateAt Method

Demonstrates the XML UpdateAt method.

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

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

' Note: This example requires Chilkat v9.5.0.64 or later.
Dim xml As New ChilkatXml

xml.Tag = "animals"

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

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

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

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

Debug.Print xml.GetXml()

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