(PowerBuilder) Insert JSON Array into another JSON Object

See more JSON Examples

Demonstrates how to insert a JSON array into a JSON object.

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

integer li_rc
oleobject loo_JsonA
oleobject loo_JsonB
oleobject loo_JsonUsersDest
oleobject loo_JsonUsersSrc

// Imagine we have two separate JSON objects.
loo_JsonA = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonA.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_JsonA
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_JsonA.UpdateString("ciphertext","encryptedData")
loo_JsonA.UpdateInt("status",200)
loo_JsonA.UpdateString("error","errorMsg")

loo_JsonA.EmitCompact = 0
Write-Debug loo_JsonA.Emit()

// jsonA contains:

// {
//   "ciphertext": "encryptedData",
//   "status": 200,
//   "error": "errorMsg"
// }

loo_JsonB = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonB.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonB.UpdateString("users[0].role","Surgeon")
loo_JsonB.UpdateNewArray("users[0].sub_roles")
loo_JsonB.UpdateBool("users[0].viewable_for_sharing",1)
loo_JsonB.UpdateInt("users[0].eula_create_date",123)
loo_JsonB.UpdateString("users[1].role","Support")
loo_JsonB.UpdateString("users[1].sub_roles[0]","Tech")
loo_JsonB.UpdateString("users[1].sub_roles[1]","Service")
loo_JsonB.UpdateBool("users[1].viewable_for_sharing",1)
loo_JsonB.UpdateInt("users[1].eula_create_date",123)

loo_JsonB.EmitCompact = 0
Write-Debug loo_JsonB.Emit()

// jsonB contains:

// {
//   "users": [
//     {
//       "role": "Surgeon",
//       "sub_roles": [],
//       "viewable_for_sharing": true,
//       "eula_create_date": 1649108922482
//     },
//     {
//       "role": "Support",
//       "sub_roles": [
//         "Tech",
//         "Service"
//       ],
//       "viewable_for_sharing": true,
//       "eula_create_date": 1649108951523
//     }
//   ]
// }

// Let's say we want to insert jsonB into jsonA to get this:

// {
//   "ciphertext": "encryptedData",
//   "status": 200,
//   "error": "errorMsg",
//   "users": [
//     {
//       "role": "Surgeon",
//       "sub_roles": [],
//       "viewable_for_sharing": true,
//       "eula_create_date": 1649108922482
//     },
//     {
//       "role": "Support",
//       "sub_roles": [
//         "Tech",
//         "Service"
//       ],
//       "viewable_for_sharing": true,
//       "eula_create_date": 1649108951523
//     }
//   ]
// }

// First add an empty array at the desired location (-1 means append to end).
loo_JsonA.AddArrayAt(-1,"users")

// The destination is the empty "users" array, the source is the populated "users" array in jsonB.
loo_JsonUsersDest = loo_JsonA.ArrayOf("users")
loo_JsonUsersSrc = loo_JsonB.ArrayOf("users")
// Copy the array items from source to dest
loo_JsonUsersDest.AppendArrayItems(loo_JsonUsersSrc)
destroy loo_JsonUsersDest
destroy loo_JsonUsersSrc

Write-Debug loo_JsonA.Emit()

// The end result is this:

// {
//   "ciphertext": "encryptedData",
//   "status": 200,
//   "error": "errorMsg",
//   "users": [
//     {
//       "role": "Surgeon",
//       "sub_roles": [
//       ],
//       "viewable_for_sharing": true,
//       "eula_create_date": 123
//     },
//     {
//       "role": "Support",
//       "sub_roles": [
//         "Tech",
//         "Service"
//       ],
//       "viewable_for_sharing": true,
//       "eula_create_date": 123
//     }
//   ]
// }


destroy loo_JsonA
destroy loo_JsonB