|
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
(Perl) Move XML Subtree to Another XML DocumentDemonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.
use chilkat(); # 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 = chilkat::CkXml->new(); $srcXml->put_Tag("soapenv:Envelope"); $srcXml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/"); $srcXml->UpdateChildContent("soapenv:Header",""); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse",1,"xmlns","http://www.midoco.de/crm"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse",1,"xmlns:tns","http://www.midoco.de/ws"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"addresseeLine1","Max Mustermann"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"addresseeLine2",""); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"changingUser","123456"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"addressId","2225355"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"addressTypeId","1"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"checkStatus","O"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"city","Wien"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"countryCode","AT"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"customerId","000071"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthDay","30"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthMonth","8"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthYear","1977"); $srcXml->UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthday","1977-08-30T00:00:00.000+02:00"); $srcXml->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> $destXml = chilkat::CkXml->new(); $destXml->put_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",1,"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 # crmCust is a Xml $crmCust = $srcXml->FindChild("soapenv:Body|GetCustomerResponse|CrmCustomer"); if ($srcXml->get_LastMethodSuccess() != 1) { print "Failed to find CrmCustomer element." . "\r\n"; exit; } # Navigate to SaveCustomerRequest # crmSaveCust is a Xml $crmSaveCust = $destXml->FindChild("SOAP-ENV:Body|SaveCustomerRequest"); if ($destXml->get_LastMethodSuccess() != 1) { print "Failed to find SaveCustomerRequest element." . "\r\n"; exit; } # Move CrmCustomer tree to SaveCustomerRequest. $crmSaveCust->InsertChildTreeBefore(0,$crmCust); # Look at the resulting destXml. You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest. print $destXml->getXml() . "\r\n"; # <?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. print $srcXml->getXml() . "\r\n"; # <?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-2024 Chilkat Software, Inc. All Rights Reserved.