Sample code for 30+ languages & platforms
Xbase++

Move XML Subtree to Another XML Document

Demonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL oSrcXml
LOCAL oDestXml
LOCAL oCrmCust
LOCAL oCrmSaveCust

//  Source XML is this:

//  <?xml version='1.0' encoding='UTF-8'?>
//  <soapenv:Envelope xmlns:"soapenv="http://schemas.xmlsoap.org/soap/envelope/">
//                <soapenv:Header/>
//                <soapenv:Body>
//                              <GetCustomerResponse xmlns="http://www.midoco.de/crm" xmlns:tns="http://www.midoco.de/ws">
//                                            <CrmCustomer addresseeLine1="Max Mustermann" addresseeLine2="" changingUser="123456" >
//                                                           <CrmAddress addressId="2225355" addressTypeId="1" checkStatus="O" city="Wien" countryCode="AT" customerId="000071"/>
//                                                           <CrmPerson birthDay="30" birthMonth="8" birthYear="1977" birthday="1977-08-30T00:00:00.000+02:00" birthdayNotProvided="false"/>
//                                            </CrmCustomer>
//                            </GetCustomerResponse>
//                </soapenv:Body>
//  </soapenv:Envelope>

//  Build the source XML.
oSrcXml := CreateObject("Chilkat.Xml")
oSrcXml:Tag := "soapenv:Envelope"
oSrcXml:AddAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
oSrcXml:UpdateChildContent("soapenv:Header", "")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse", 1, "xmlns", "http://www.midoco.de/crm")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse", 1, "xmlns:tns", "http://www.midoco.de/ws")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer", 1, "addresseeLine1", "Max Mustermann")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer", 1, "addresseeLine2", "")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer", 1, "changingUser", "123456")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress", 1, "addressId", "2225355")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress", 1, "addressTypeId", "1")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress", 1, "checkStatus", "O")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress", 1, "city", "Wien")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress", 1, "countryCode", "AT")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress", 1, "customerId", "000071")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson", 1, "birthDay", "30")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson", 1, "birthMonth", "8")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson", 1, "birthYear", "1977")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson", 1, "birthday", "1977-08-30T00:00:00.000+02:00")
oSrcXml:UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson", 1, "birthdayNotProvided", "false")

//  Destination XML is this:

//  <?xml version="1.0" encoding="utf-8"?>
//  <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
//      <SOAP-ENV:Header>
//          <m:Credentials xmlns:m="http://www.midoco.de/system">
//              <m:Login>User</m:Login>
//              <m:Password>Pass</m:Password>
//              <m:OrgUnit>ABC</m:OrgUnit>
//              <m:Locale>de_DE</m:Locale>
//          </m:MidocoCredentials>
//      </SOAP-ENV:Header>
//      <SOAP-ENV:Body>
//          <SaveCustomerRequest>
//          </SaveCustomerRequest>
//      </SOAP-ENV:Body>
//  </SOAP-ENV:Envelope>

oDestXml := CreateObject("Chilkat.Xml")
oDestXml:Tag := "SOAP-ENV:Envelope"
oDestXml:AddAttribute("xmlns:SOAP-ENV", "http://schemas.xmlsoap.org/soap/envelope/")
oDestXml:AddAttribute("xmlns:SOAP-ENC", "http://schemas.xmlsoap.org/soap/encoding/")
oDestXml:AddAttribute("xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance")
oDestXml:AddAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema")
oDestXml:UpdateAttrAt("SOAP-ENV:Header|m:Credentials", 1, "xmlns:m", "http://www.midoco.de/system")
oDestXml:UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Login", "User")
oDestXml:UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Password", "Pass")
oDestXml:UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:OrgUnit", "ABC")
oDestXml:UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Locale", "de_DE")
oDestXml:UpdateChildContent("SOAP-ENV:Body|SaveCustomerRequest", "")

//  We want to move the "CrmCustomer" subtree in the source XML to inside the "SaveCustomerRequest" element in the destination.

//  Navigate to CrmCustomer
oCrmCust := oSrcXml:FindChild("soapenv:Body|GetCustomerResponse|CrmCustomer")
IF (oSrcXml:LastMethodSuccess != 1)
    ? "Failed to find CrmCustomer element."
    oSrcXml:destroy()
    oDestXml:destroy()
    RETURN
ENDIF

//  Navigate to SaveCustomerRequest
oCrmSaveCust := oDestXml:FindChild("SOAP-ENV:Body|SaveCustomerRequest")
IF (oDestXml:LastMethodSuccess != 1)
    ? "Failed to find SaveCustomerRequest element."
    oSrcXml:destroy()
    oDestXml:destroy()
    RETURN
ENDIF

//  Move CrmCustomer tree to SaveCustomerRequest.
oCrmSaveCust:InsertChildTreeBefore(0, oCrmCust)

oCrmCust:destroy()
oCrmSaveCust:destroy()

//  Look at the resulting destXml.  You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest.
? oDestXml:GetXml()

//  <?xml version="1.0" encoding="utf-8"?>
//  <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
//      <SOAP-ENV:Header>
//          <m:Credentials xmlns:m="http://www.midoco.de/system">
//              <m:Login>User</m:Login>
//              <m:Password>Pass</m:Password>
//              <m:OrgUnit>ABC</m:OrgUnit>
//              <m:Locale>de_DE</m:Locale>
//          </m:Credentials>
//      </SOAP-ENV:Header>
//      <SOAP-ENV:Body>
//          <SaveCustomerRequest>
//              <CrmCustomer addresseeLine1="Max Mustermann" addresseeLine2="" changingUser="123456">
//                  <CrmAddress addressId="2225355" addressTypeId="1" checkStatus="O" city="Wien" countryCode="AT" customerId="000071"/>
//                  <CrmPerson birthDay="30" birthMonth="8" birthYear="1977" birthday="1977-08-30T00:00:00.000+02:00" birthdayNotProvided="false"/>
//              </CrmCustomer>
//          </SaveCustomerRequest>
//      </SOAP-ENV:Body>
//  </SOAP-ENV:Envelope>

//  Look at the resulting srcXml.  The CrmCustomer subtree was removed.
? oSrcXml:GetXml()

//  <?xml version="1.0" encoding="utf-8"?>
//  <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
//      <soapenv:Header/>
//      <soapenv:Body>
//          <GetCustomerResponse xmlns="http://www.midoco.de/crm" xmlns:tns="http://www.midoco.de/ws"/>
//      </soapenv:Body>
//  </soapenv:Envelope>

oSrcXml:destroy()
oDestXml:destroy()