Sample code for 30+ languages & platforms
Visual FoxPro

Move XML Subtree to Another XML Document

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

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL loSrcXml
LOCAL loDestXml
LOCAL loCrmCust
LOCAL loCrmSaveCust

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

loDestXml = CreateObject('Chilkat.Xml')
loDestXml.Tag = "SOAP-ENV:Envelope"
loDestXml.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/")
loDestXml.AddAttribute("xmlns:SOAP-ENC","http://schemas.xmlsoap.org/soap/encoding/")
loDestXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loDestXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
loDestXml.UpdateAttrAt("SOAP-ENV:Header|m:Credentials",1,"xmlns:m","http://www.midoco.de/system")
loDestXml.UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Login","User")
loDestXml.UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Password","Pass")
loDestXml.UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:OrgUnit","ABC")
loDestXml.UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Locale","de_DE")
loDestXml.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
loCrmCust = loSrcXml.FindChild("soapenv:Body|GetCustomerResponse|CrmCustomer")
IF (loSrcXml.LastMethodSuccess <> 1) THEN
    ? "Failed to find CrmCustomer element."
    RELEASE loSrcXml
    RELEASE loDestXml
    CANCEL
ENDIF

* Navigate to SaveCustomerRequest
loCrmSaveCust = loDestXml.FindChild("SOAP-ENV:Body|SaveCustomerRequest")
IF (loDestXml.LastMethodSuccess <> 1) THEN
    ? "Failed to find SaveCustomerRequest element."
    RELEASE loSrcXml
    RELEASE loDestXml
    CANCEL
ENDIF

* Move CrmCustomer tree to SaveCustomerRequest.
loCrmSaveCust.InsertChildTreeBefore(0,loCrmCust)

RELEASE loCrmCust
RELEASE loCrmSaveCust

* Look at the resulting destXml.  You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest.
? loDestXml.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.
? loSrcXml.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>

RELEASE loSrcXml
RELEASE loDestXml