(PowerBuilder) JSON Copy Objects

Copy objects from one JSON document to another.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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