|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PureBasic) Move XML Subtree to Another XML DocumentDemonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.
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 |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.