(Visual Basic 6.0) XML Accumulate Tag Content

Demonstrates how to use the AccumulateTagContent method of the XML class.

Imagine the XML document for this test contains the following:

<?xml version="1.0" encoding="utf-8"?>
<abc>
	<zzz>The quick brown fox</zzz>
	<xyz>
	    <zzz>hello world!</zzz>
	</xyz>
	<mmm>
	    <zzz>jumped over the lazy dog.</zzz>
	</mmm>
</abc>

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

Dim xml As New ChilkatXml

Dim success As Long
success = xml.LoadXmlFile("my_document.xml")
If (success <> 1) Then
    Debug.Print xml.LastErrorText
    Exit Sub
End If

' Accumulate the textual content within the "zzz" nodes of this
' XML.  Skip sub-trees rooted at nodes having the tag "xyz".
' For the given test XML, the resulting accumulated text should be:
' "The quick brown fox jumped over the lazy dog."
Debug.Print xml.AccumulateTagContent("zzz","xyz")