|
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
(DataFlex) Move XML Subtree to Another XML DocumentDemonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoSrcXml Boolean iSuccess Handle hoDestXml Variant vCrmCust Handle hoCrmCust Variant vCrmSaveCust Handle hoCrmSaveCust String sTemp1 Boolean bTemp1 // 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. Get Create (RefClass(cComChilkatXml)) To hoSrcXml If (Not(IsComObjectCreated(hoSrcXml))) Begin Send CreateComObject of hoSrcXml End Set ComTag Of hoSrcXml To "soapenv:Envelope" Get ComAddAttribute Of hoSrcXml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess Send ComUpdateChildContent To hoSrcXml "soapenv:Header" "" Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse" True "xmlns" "http://www.midoco.de/crm" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse" True "xmlns:tns" "http://www.midoco.de/ws" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer" True "addresseeLine1" "Max Mustermann" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer" True "addresseeLine2" "" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer" True "changingUser" "123456" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "addressId" "2225355" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "addressTypeId" "1" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "checkStatus" "O" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "city" "Wien" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "countryCode" "AT" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress" True "customerId" "000071" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthDay" "30" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthMonth" "8" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthYear" "1977" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthday" "1977-08-30T00:00:00.000+02:00" To iSuccess Get ComUpdateAttrAt Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson" True "birthdayNotProvided" "false" To iSuccess // 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> Get Create (RefClass(cComChilkatXml)) To hoDestXml If (Not(IsComObjectCreated(hoDestXml))) Begin Send CreateComObject of hoDestXml End Set ComTag Of hoDestXml To "SOAP-ENV:Envelope" Get ComAddAttribute Of hoDestXml "xmlns:SOAP-ENV" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess Get ComAddAttribute Of hoDestXml "xmlns:SOAP-ENC" "http://schemas.xmlsoap.org/soap/encoding/" To iSuccess Get ComAddAttribute Of hoDestXml "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance" To iSuccess Get ComAddAttribute Of hoDestXml "xmlns:xsd" "http://www.w3.org/2001/XMLSchema" To iSuccess Get ComUpdateAttrAt Of hoDestXml "SOAP-ENV:Header|m:Credentials" True "xmlns:m" "http://www.midoco.de/system" To iSuccess Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Header|m:Credentials|m:Login" "User" Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Header|m:Credentials|m:Password" "Pass" Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Header|m:Credentials|m:OrgUnit" "ABC" Send ComUpdateChildContent To hoDestXml "SOAP-ENV:Header|m:Credentials|m:Locale" "de_DE" Send ComUpdateChildContent To hoDestXml "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 Get ComFindChild Of hoSrcXml "soapenv:Body|GetCustomerResponse|CrmCustomer" To vCrmCust If (IsComObject(vCrmCust)) Begin Get Create (RefClass(cComChilkatXml)) To hoCrmCust Set pvComObject Of hoCrmCust To vCrmCust End Get ComLastMethodSuccess Of hoSrcXml To bTemp1 If (bTemp1 <> True) Begin Showln "Failed to find CrmCustomer element." Procedure_Return End // Navigate to SaveCustomerRequest Get ComFindChild Of hoDestXml "SOAP-ENV:Body|SaveCustomerRequest" To vCrmSaveCust If (IsComObject(vCrmSaveCust)) Begin Get Create (RefClass(cComChilkatXml)) To hoCrmSaveCust Set pvComObject Of hoCrmSaveCust To vCrmSaveCust End Get ComLastMethodSuccess Of hoDestXml To bTemp1 If (bTemp1 <> True) Begin Showln "Failed to find SaveCustomerRequest element." Procedure_Return End // Move CrmCustomer tree to SaveCustomerRequest. Send ComInsertChildTreeBefore To hoCrmSaveCust 0 vCrmCust Send Destroy of hoCrmCust Send Destroy of hoCrmSaveCust // Look at the resulting destXml. You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest. Get ComGetXml Of hoDestXml To sTemp1 Showln sTemp1 // <?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. Get ComGetXml Of hoSrcXml To sTemp1 Showln sTemp1 // <?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> End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.