(VB.NET) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

Note: This example requires Chilkat v11.1.0 or greater.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim success As Boolean = False

Dim arr As New Chilkat.JsonArray

Dim obj As New Chilkat.JsonObject

' 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
Debug.WriteLine(arr.Emit())

' The output is:

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