(VB.NET) Move XML Subtree to Another XML Document

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

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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


Dim destXml As New Chilkat.Xml
destXml.Tag = "SOAP-ENV:Envelope"
destXml.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/")
destXml.AddAttribute("xmlns:SOAP-ENC","http://schemas.xmlsoap.org/soap/encoding/")
destXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
destXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
destXml.UpdateAttrAt("SOAP-ENV:Header|m:Credentials",True,"xmlns:m","http://www.midoco.de/system")
destXml.UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Login","User")
destXml.UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Password","Pass")
destXml.UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:OrgUnit","ABC")
destXml.UpdateChildContent("SOAP-ENV:Header|m:Credentials|m:Locale","de_DE")
destXml.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
Dim crmCust As Chilkat.Xml = srcXml.FindChild("soapenv:Body|GetCustomerResponse|CrmCustomer")
If (srcXml.LastMethodSuccess <> True) Then
    Debug.WriteLine("Failed to find CrmCustomer element.")
    Exit Sub
End If


' Navigate to SaveCustomerRequest
Dim crmSaveCust As Chilkat.Xml = destXml.FindChild("SOAP-ENV:Body|SaveCustomerRequest")
If (destXml.LastMethodSuccess <> True) Then
    Debug.WriteLine("Failed to find SaveCustomerRequest element.")
    Exit Sub
End If



' Move CrmCustomer tree to SaveCustomerRequest.
crmSaveCust.InsertChildTreeBefore(0,crmCust)




' Look at the resulting destXml.  You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest.
Debug.WriteLine(destXml.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.
Debug.WriteLine(srcXml.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>