(VB.NET UWP/WinRT) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

Dim arr As New Chilkat.JsonArray

Dim success As Boolean

' Add an empty object at the 1st JSON array position.
arr.AddObjectAt(0)
' Get the object we just created.
Dim obj As Chilkat.JsonObject = arr.ObjectAt(0)
obj.UpdateString("Name","Otto")
obj.UpdateInt("Age",29)
obj.UpdateBool("Married",False)


' Add an empty object at the 2nd JSON array position.
arr.AddObjectAt(1)
obj = arr.ObjectAt(1)
obj.UpdateString("Name","Connor")
obj.UpdateInt("Age",43)
obj.UpdateBool("Married",True)


' Add an empty object at the 3rd JSON array position.
arr.AddObjectAt(2)
obj = arr.ObjectAt(2)
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
'   }
' ]