(PowerBuilder) 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

integer li_rc
oleobject loo_Xml
oleobject loo_Xml2
integer li_Index

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

loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
if li_rc < 0 then
    destroy loo_Xml
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_Xml.Tag = "x1"
loo_Xml.UpdateChildContent("a1","1")
loo_Xml.UpdateChildContent("a2","2")
loo_Xml.UpdateChildContent("a3","3")

// Build a 2nd XML document:

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

loo_Xml2 = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml2.ConnectToNewObject("Chilkat.Xml")

loo_Xml2.Tag = "x2"
loo_Xml2.UpdateChildContent("b1","11")
loo_Xml2.UpdateChildContent("b2","22")
loo_Xml2.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"

li_Index = loo_Xml.TagIndex("a1")
if li_Index < 0 then
    Write-Debug "a1 not found."
    destroy loo_Xml
    destroy loo_Xml2
    return
end if

loo_Xml.InsertChildTreeAfter(li_Index,loo_Xml2)

Write-Debug loo_Xml.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:
loo_Xml2.UpdateChildContent("b3","33333333")

Write-Debug loo_Xml.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>


destroy loo_Xml
destroy loo_Xml2