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
(PowerBuilder) JSON Copy ObjectsCopy objects from one JSON document to another.
integer li_rc oleobject loo_Json1 oleobject loo_Json2 integer i integer li_NumMembers oleobject loo_JsonObj loo_Json1 = create oleobject // Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0 li_rc = loo_Json1.ConnectToNewObject("Chilkat.JsonObject") if li_rc < 0 then destroy loo_Json1 MessageBox("Error","Connecting to COM object failed") return end if loo_Json1.UpdateString("ID1.cn","Name") loo_Json1.UpdateString("ID1.objectGUID","GUID") loo_Json1.UpdateString("ID2.cn","Name") loo_Json1.UpdateString("ID2.objectGUID","GUID") loo_Json1.EmitCompact = 0 Write-Debug loo_Json1.Emit() // json1 contains: // { // "ID1": { // "cn": "Name", // "objectGUID": "GUID" // }, // "ID2": { // "cn": "Name", // "objectGUID": "GUID" // } // } loo_Json2 = create oleobject // Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0 li_rc = loo_Json2.ConnectToNewObject("Chilkat.JsonObject") loo_Json2.UpdateString("Name1.ID1.cn","Name") loo_Json2.UpdateString("Name1.ID1.objectGUID","GUID") loo_Json2.UpdateString("Name1.ID2.cn","Name") loo_Json2.UpdateString("Name1.ID2.objectGUID","GUID") loo_Json2.UpdateString("Name2.ID3.cn","Name") loo_Json2.UpdateString("Name2.ID3.objectGUID","GUID") loo_Json2.EmitCompact = 0 Write-Debug loo_Json2.Emit() // { // "Name1": { // "ID1": { // "cn": "Name", // "objectGUID": "GUID" // }, // "ID2": { // "cn": "Name", // "objectGUID": "GUID" // } // }, // "Name2": { // "ID3": { // "cn": "Name", // "objectGUID": "GUID" // } // } // } // Copy Name1, Name2 into json1 i = 0 li_NumMembers = loo_Json2.Size do while i < li_NumMembers loo_JsonObj = loo_Json2.ObjectAt(i) loo_Json1.AppendObjectCopy(loo_Json2.NameAt(i),loo_JsonObj) i = i + 1 loop // Now see what json1 contains: Write-Debug loo_Json1.Emit() // { // "ID1": { // "cn": "Name", // "objectGUID": "GUID" // }, // "ID2": { // "cn": "Name", // "objectGUID": "GUID" // }, // "Name1": { // "ID1": { // "cn": "Name", // "objectGUID": "GUID" // }, // "ID2": { // "cn": "Name", // "objectGUID": "GUID" // } // }, // "Name2": { // "ID3": { // "cn": "Name", // "objectGUID": "GUID" // } // } // } destroy loo_Json1 destroy loo_Json2 |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.