Lianja Requires Chilkat v11.0.0+

Insert JSON Array into another JSON Object

See more JSON Examples

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

//  Imagine we have two separate JSON objects.
loJsonA = createobject("CkJsonObject")
loJsonA.UpdateString("ciphertext","encryptedData")
loJsonA.UpdateInt("status",200)
loJsonA.UpdateString("error","errorMsg")

loJsonA.EmitCompact = .F.
? loJsonA.Emit()

//  jsonA contains:

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

loJsonB = createobject("CkJsonObject")
loJsonB.UpdateString("users[0].role","Surgeon")
loJsonB.UpdateNewArray("users[0].sub_roles")
loJsonB.UpdateBool("users[0].viewable_for_sharing",.T.)
loJsonB.UpdateInt("users[0].eula_create_date",123)
loJsonB.UpdateString("users[1].role","Support")
loJsonB.UpdateString("users[1].sub_roles[0]","Tech")
loJsonB.UpdateString("users[1].sub_roles[1]","Service")
loJsonB.UpdateBool("users[1].viewable_for_sharing",.T.)
loJsonB.UpdateInt("users[1].eula_create_date",123)

loJsonB.EmitCompact = .F.
? loJsonB.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.
loJsonUsersDest = createobject("CkJsonArray")
loJsonA.AppendArray2("users",loJsonUsersDest)

loJsonUsersSrc = createobject("CkJsonArray")
loJsonB.ArrayOf2("users",loJsonUsersSrc)

//  Copy the array items from source to dest
loJsonUsersDest.AppendArrayItems(loJsonUsersSrc)

? loJsonA.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
//      }
//    ]
//  }


release loJsonA
release loJsonB
release loJsonUsersDest
release loJsonUsersSrc