(PureBasic) Demonstrate the XML NewChildInt2 Method

Demonstrates the XML NewChildInt2 method.

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"

Procedure ChilkatExample()

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

    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkXml::setCkTag(xml, "animal")

    i.i = 0
    While i < 10
        ; The first call (in the 1st loop iteration) automatically
        ; creates the children in the path.
        ; Each subsequent call finds the inner nodes in the path
        ; already exist, but always adds a new child at the leaf,
        ; even if it is a duplicate.
        CkXml::ckNewChildInt2(xml,"bird|flightless|penguin|number",i)
        i = i + 1
    Wend

    Debug CkXml::ckGetXml(xml)

    ; Output:

    ; 	<?xml version="1.0" encoding="utf-8" ?>
    ; 	<animal>
    ; 	    <bird>
    ; 	        <flightless>
    ; 	            <penguin>
    ; 	                <number>0</number>
    ; 	                <number>1</number>
    ; 	                <number>2</number>
    ; 	                <number>3</number>
    ; 	                <number>4</number>
    ; 	                <number>5</number>
    ; 	                <number>6</number>
    ; 	                <number>7</number>
    ; 	                <number>8</number>
    ; 	                <number>9</number>
    ; 	            </penguin>
    ; 	        </flightless>
    ; 	    </bird>
    ; 	</animal>
    ; 


    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure