(DataFlex) HasChildWithTag using a Tag Path

Demonstrates calling HasChildWithTag with a tag path.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXml
    Boolean iHasChicago
    Boolean iHasNaperville
    Boolean iHasIllinois
    String sTemp1

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End

    Set ComTag Of hoXml To "world"

    Send ComNewChild2 To hoXml "north_america|united_states|california|san_francisco" "Silicon Valley"
    Send ComNewChild2 To hoXml "north_america|united_states|california|san_diego" "Birthplace of California"
    Send ComNewChild2 To hoXml "north_america|united_states|illinois|chicago" "Windy City"

    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1

    // Produces the following XML
    // 
    // 	<?xml version="1.0" encoding="utf-8" ?>
    // 	<world>
    // 	    <north_america>
    // 	        <united_states>
    // 	            <california>
    // 	                <san_francisco>Silicon Valley</san_francisco>
    // 	                <san_diego>Birthplace of California</san_diego>
    // 	            </california>
    // 	            <illinois>
    // 	                <chicago>Windy City</chicago>
    // 	            </illinois>
    // 	        </united_states>
    // 	    </north_america>
    // 	</world>
    // 

    Get ComHasChildWithTag Of hoXml "north_america|united_states|illinois|chicago" To iHasChicago
    Showln "hasChicago = " iHasChicago

    Get ComHasChildWithTag Of hoXml "north_america|united_states|illinois|naperville" To iHasNaperville
    Showln "hasNaperville = " iHasNaperville

    Get ComHasChildWithTag Of hoXml "north_america|united_states|illinois" To iHasIllinois
    Showln "hasIllinois = " iHasIllinois


End_Procedure