(PureBasic) Insert XML into existing XML by calling InsertChildTreeAfter

Demonstrates how to insert an XML tree or subtree into another XML document using the InsertChildTreeAfter method.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkXml.pb"

Procedure ChilkatExample()

    ; Build the 1st XML document:
    ; <x1>
    ;     <a1>1</a1>
    ;     <a2>2</a2>
    ;     <a3>3</a3>
    ; </x1>

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

    CkXml::setCkTag(xml, "x1")
    CkXml::ckUpdateChildContent(xml,"a1","1")
    CkXml::ckUpdateChildContent(xml,"a2","2")
    CkXml::ckUpdateChildContent(xml,"a3","3")

    ; Build a 2nd XML document:

    ; <x2>
    ;   <b1>11</b1>
    ;   <b2>22</b2>
    ;   <b3>33</b3>
    ; </x2>

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

    CkXml::setCkTag(xml2, "x2")
    CkXml::ckUpdateChildContent(xml2,"b1","11")
    CkXml::ckUpdateChildContent(xml2,"b2","22")
    CkXml::ckUpdateChildContent(xml2,"b3","33")

    ; We want to insert xml2 into xml to get this:

    ; <x1>
    ;     <a1>1</a1>
    ;     <x2>
    ;         <b1>11</b1>
    ;         <b2>22</b2>
    ;         <b3>33</b3>
    ;     </x2>
    ;     <a2>2</a2>
    ;     <a3>3</a3>
    ; </x1>

    ; Insert xml2 after "a1"

    index.i = CkXml::ckTagIndex(xml,"a1")
    If index < 0
        Debug "a1 not found."
        CkXml::ckDispose(xml)
        CkXml::ckDispose(xml2)
        ProcedureReturn
    EndIf

    CkXml::ckInsertChildTreeAfter(xml,index,xml2)

    Debug CkXml::ckGetXml(xml)

    ; The result is:

    ; <x1>
    ;     <a1>1</a1>
    ;     <x2>
    ;         <b1>11</b1>
    ;         <b2>22</b2>
    ;         <b3>33</b3>
    ;     </x2>
    ;     <a2>2</a2>
    ;     <a3>3</a3>
    ; </x1>

    ; Note: xml2 now points to the subtree within xml.
    ; For example, update "b3" and then see how it's updated within the merged document:
    CkXml::ckUpdateChildContent(xml2,"b3","33333333")

    Debug CkXml::ckGetXml(xml)

    ; The result:

    ; <x1>
    ;     <a1>1</a1>
    ;     <x2>
    ;         <b1>11</b1>
    ;         <b2>22</b2>
    ;         <b3>33333333</b3>
    ;     </x2>
    ;     <a2>2</a2>
    ;     <a3>3</a3>
    ; </x1>


    CkXml::ckDispose(xml)
    CkXml::ckDispose(xml2)


    ProcedureReturn
EndProcedure