Xojo Plugin

Insert JSON Array into another JSON Object

See more JSON Examples

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

// Imagine we have two separate JSON objects.
Dim jsonA As New Chilkat.JsonObject
Dim success As Boolean
success = jsonA.UpdateString("ciphertext","encryptedData")
success = jsonA.UpdateInt("status",200)
success = jsonA.UpdateString("error","errorMsg")

jsonA.EmitCompact = False
System.DebugLog(jsonA.Emit())

// jsonA contains:

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

Dim jsonB As New Chilkat.JsonObject
success = jsonB.UpdateString("users[0].role","Surgeon")
success = jsonB.UpdateNewArray("users[0].sub_roles")
success = jsonB.UpdateBool("users[0].viewable_for_sharing",True)
success = jsonB.UpdateInt("users[0].eula_create_date",123)
success = jsonB.UpdateString("users[1].role","Support")
success = jsonB.UpdateString("users[1].sub_roles[0]","Tech")
success = jsonB.UpdateString("users[1].sub_roles[1]","Service")
success = jsonB.UpdateBool("users[1].viewable_for_sharing",True)
success = jsonB.UpdateInt("users[1].eula_create_date",123)

jsonB.EmitCompact = False
System.DebugLog(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
//     }
//   ]
// }

// The destination is the empty "users" array, the source is the populated "users" array in jsonB.
Dim jsonUsersDest As New Chilkat.JsonArray
success = jsonA.AppendArray2("users",jsonUsersDest)

Dim jsonUsersSrc As New Chilkat.JsonArray
success = jsonB.ArrayOf2("users",jsonUsersSrc)

// Copy the array items from source to dest
success = jsonUsersDest.AppendArrayItems(jsonUsersSrc)

System.DebugLog(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
//     }
//   ]
// }