(Visual Basic 6.0) Build JSON with Mixture of Arrays and Objects

Another example showing how to build JSON containing a mixture of arrays and objects.

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

' We want to build the following JSON:

' { 
'   "accountEnabled": true,
'   "assignedLicenses": [
'     { 
'       "disabledPlans": [ "bea13e0c-3828-4daa-a392-28af7ff61a0f" ],
'       "skuId": "skuId-value"
'     }
'   ],
'   "assignedPlans": [
'     { 
'       "assignedDateTime": "datetime-value",
'       "capabilityStatus": "capabilityStatus-value",
'       "service": "service-value",
'       "servicePlanId": "bea13e0c-3828-4daa-a392-28af7ff61a0f"
'     }
'   ],
'   "businessPhones": [
'     "businessPhones-value"
'   ],
'   "city": "city-value",
'   "companyName": "companyName-value"
' }

Dim json As New ChilkatJsonObject
success = json.UpdateBool("accountEnabled",1)
json.I = 0
success = json.UpdateString("assignedLicenses[i].disabledPlans[0]","bea13e0c-3828-4daa-a392-28af7ff61a0f")
success = json.UpdateString("assignedLicenses[i].skuId","skuId-value")
success = json.UpdateString("assignedPlans[i].assignedDateTime","datetime-value")
success = json.UpdateString("assignedPlans[i].capabilityStatus","capabilityStatus-value")
success = json.UpdateString("assignedPlans[i].service","service-value")
success = json.UpdateString("assignedPlans[i].servicePlanId","bea13e0c-3828-4daa-a392-28af7ff61a0f")
success = json.UpdateString("businessPhones[i]","businessPhones-value")
success = json.UpdateString("city","city-value")
success = json.UpdateString("companyName","companyName-value")

json.EmitCompact = 0
Debug.Print json.Emit()

' Output:

' { 
'   "accountEnabled": true,
'   "assignedLicenses": [
'     { 
'       "disabledPlans": [
'         "bea13e0c-3828-4daa-a392-28af7ff61a0f"
'       ],
'       "skuId": "skuId-value"
'     }
'   ],
'   "assignedPlans": [
'     { 
'       "assignedDateTime": "datetime-value",
'       "capabilityStatus": "capabilityStatus-value",
'       "service": "service-value",
'       "servicePlanId": "bea13e0c-3828-4daa-a392-28af7ff61a0f"
'     }
'   ],
'   "businessPhones": [
'     "businessPhones-value"
'   ],
'   "city": "city-value",
'   "companyName": "companyName-value"
' }