B4X Requires Chilkat v11.1.0+

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. B4X

Dim success As Boolean = False

Dim arr As ChilkatJsonArray
arr.Initialize

Dim obj As ChilkatJsonObject
obj.Initialize

'  Create a new and empty JSON object in the 1st position of the JSON array 
'  and return the reference in the last argument.
arr.AddObjectAt2(0, obj)
obj.UpdateString("Name", "Otto")
obj.UpdateInt("Age", 29)
obj.UpdateBool("Married", False)

'  Create a new and empty JSON object in the 2nd position of the JSON array 
'  and return the reference in the last argument.
arr.AddObjectAt2(1, obj)
obj.UpdateString("Name", "Connor")
obj.UpdateInt("Age", 43)
obj.UpdateBool("Married", True)

'  Create a new and empty JSON object in the 3rd position of the JSON array 
'  and return the reference in the last argument.
arr.AddObjectAt2(2, obj)
obj.UpdateString("Name", "Ramona")
obj.UpdateInt("Age", 34)
obj.UpdateBool("Married", True)

'  Examine what we have:
arr.EmitCompact = False
Log(arr.Emit)

'  The output is:

'  [
'    {
'      "Name": "Otto",
'      "Age": 29,
'      "Married": false
'    },
'    {
'      "Name": "Connor",
'      "Age": 43,
'      "Married": true
'    },
'    {
'      "Name": "Ramona",
'      "Age": 34,
'      "Married": true
'    }
'  ]