VBScript

Insert JSON Array into another JSON Object

See more JSON Examples

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' Imagine we have two separate JSON objects.
set jsonA = CreateObject("Chilkat.JsonObject")
success = jsonA.UpdateString("ciphertext","encryptedData")
success = jsonA.UpdateInt("status",200)
success = jsonA.UpdateString("error","errorMsg")

jsonA.EmitCompact = 0
outFile.WriteLine(jsonA.Emit())

' jsonA contains:

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

set jsonB = CreateObject("Chilkat.JsonObject")
success = jsonB.UpdateString("users[0].role","Surgeon")
success = jsonB.UpdateNewArray("users[0].sub_roles")
success = jsonB.UpdateBool("users[0].viewable_for_sharing",1)
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",1)
success = jsonB.UpdateInt("users[1].eula_create_date",123)

jsonB.EmitCompact = 0
outFile.WriteLine(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.
set jsonUsersDest = CreateObject("Chilkat.JsonArray")
success = jsonA.AppendArray2("users",jsonUsersDest)

set jsonUsersSrc = CreateObject("Chilkat.JsonArray")
success = jsonB.ArrayOf2("users",jsonUsersSrc)

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

outFile.WriteLine(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
'     }
'   ]
' }

outFile.Close