PureBasic
PureBasic
Move XML Subtree to Another XML Document
Demonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.Chilkat PureBasic Downloads
IncludeFile "CkXml.pb"
Procedure ChilkatExample()
; 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.
srcXml.i = CkXml::ckCreate()
If srcXml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(srcXml, "soapenv:Envelope")
CkXml::ckAddAttribute(srcXml,"xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
CkXml::ckUpdateChildContent(srcXml,"soapenv:Header","")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse",1,"xmlns","http://www.midoco.de/crm")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse",1,"xmlns:tns","http://www.midoco.de/ws")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer",1,"addresseeLine1","Max Mustermann")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer",1,"addresseeLine2","")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer",1,"changingUser","123456")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"addressId","2225355")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"addressTypeId","1")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"checkStatus","O")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"city","Wien")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"countryCode","AT")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"customerId","000071")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthDay","30")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthMonth","8")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthYear","1977")
CkXml::ckUpdateAttrAt(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthday","1977-08-30T00:00:00.000+02:00")
CkXml::ckUpdateAttrAt(srcXml,"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>
destXml.i = CkXml::ckCreate()
If destXml.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkXml::setCkTag(destXml, "SOAP-ENV:Envelope")
CkXml::ckAddAttribute(destXml,"xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/")
CkXml::ckAddAttribute(destXml,"xmlns:SOAP-ENC","http://schemas.xmlsoap.org/soap/encoding/")
CkXml::ckAddAttribute(destXml,"xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
CkXml::ckAddAttribute(destXml,"xmlns:xsd","http://www.w3.org/2001/XMLSchema")
CkXml::ckUpdateAttrAt(destXml,"SOAP-ENV:Header|m:Credentials",1,"xmlns:m","http://www.midoco.de/system")
CkXml::ckUpdateChildContent(destXml,"SOAP-ENV:Header|m:Credentials|m:Login","User")
CkXml::ckUpdateChildContent(destXml,"SOAP-ENV:Header|m:Credentials|m:Password","Pass")
CkXml::ckUpdateChildContent(destXml,"SOAP-ENV:Header|m:Credentials|m:OrgUnit","ABC")
CkXml::ckUpdateChildContent(destXml,"SOAP-ENV:Header|m:Credentials|m:Locale","de_DE")
CkXml::ckUpdateChildContent(destXml,"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
crmCust.i = CkXml::ckFindChild(srcXml,"soapenv:Body|GetCustomerResponse|CrmCustomer")
If CkXml::ckLastMethodSuccess(srcXml) <> 1
Debug "Failed to find CrmCustomer element."
CkXml::ckDispose(srcXml)
CkXml::ckDispose(destXml)
ProcedureReturn
EndIf
; Navigate to SaveCustomerRequest
crmSaveCust.i = CkXml::ckFindChild(destXml,"SOAP-ENV:Body|SaveCustomerRequest")
If CkXml::ckLastMethodSuccess(destXml) <> 1
Debug "Failed to find SaveCustomerRequest element."
CkXml::ckDispose(srcXml)
CkXml::ckDispose(destXml)
ProcedureReturn
EndIf
; Move CrmCustomer tree to SaveCustomerRequest.
CkXml::ckInsertChildTreeBefore(crmSaveCust,0,crmCust)
CkXml::ckDispose(crmCust)
CkXml::ckDispose(crmSaveCust)
; Look at the resulting destXml. You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest.
Debug CkXml::ckGetXml(destXml)
; <?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 CkXml::ckGetXml(srcXml)
; <?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>
CkXml::ckDispose(srcXml)
CkXml::ckDispose(destXml)
ProcedureReturn
EndProcedure