(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loXml
LOCAL loXml2
LOCAL lnIndex

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "x1"
loXml.UpdateChildContent("a1","1")
loXml.UpdateChildContent("a2","2")
loXml.UpdateChildContent("a3","3")

* Build a 2nd XML document:

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml2 = CreateObject('Chilkat.Xml')
loXml2.Tag = "x2"
loXml2.UpdateChildContent("b1","11")
loXml2.UpdateChildContent("b2","22")
loXml2.UpdateChildContent("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"

lnIndex = loXml.TagIndex("a1")
IF (lnIndex < 0) THEN
    ? "a1 not found."
    RELEASE loXml
    RELEASE loXml2
    CANCEL
ENDIF

loXml.InsertChildTreeAfter(lnIndex,loXml2)

? loXml.GetXml()

* 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:
loXml2.UpdateChildContent("b3","33333333")

? loXml.GetXml()

* The result:

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

RELEASE loXml
RELEASE loXml2