|
Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Move XML Subtree to Another XML DocumentDemonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.
' 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 Chilkat.Xml Set srcXml = Chilkat.NewXml srcXml.Tag = "soapenv:Envelope" Dim success As Boolean success = srcXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") srcXml.UpdateChildContent "soapenv:Header","" success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse",True,"xmlns","http://www.midoco.de/crm") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse",True,"xmlns:tns","http://www.midoco.de/ws") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",True,"addresseeLine1","Max Mustermann") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",True,"addresseeLine2","") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",True,"changingUser","123456") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",True,"addressId","2225355") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",True,"addressTypeId","1") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",True,"checkStatus","O") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",True,"city","Wien") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",True,"countryCode","AT") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",True,"customerId","000071") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",True,"birthDay","30") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",True,"birthMonth","8") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",True,"birthYear","1977") success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",True,"birthday","1977-08-30T00:00:00.000+02:00") success = 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 Chilkat.Xml Set destXml = Chilkat.NewXml destXml.Tag = "SOAP-ENV:Envelope" success = destXml.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/") success = destXml.AddAttribute("xmlns:SOAP-ENC","http://schemas.xmlsoap.org/soap/encoding/") success = destXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") success = destXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema") success = 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 Set crmCust = srcXml.FindChild("soapenv:Body|GetCustomerResponse|CrmCustomer") If (srcXml.LastMethodSuccess <> True) Then Debug.Print "Failed to find CrmCustomer element." Exit Sub End If ' Navigate to SaveCustomerRequest Set crmSaveCust = destXml.FindChild("SOAP-ENV:Body|SaveCustomerRequest") If (destXml.LastMethodSuccess <> True) Then Debug.Print "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.Print 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.Print 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> |
||||
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.