(VB.NET UWP/WinRT) Loading and Parsing a JSON Array

A JSON array is JSON that begins with "[" and ends with "]". For example, this is a JSON array that contains 3 JSON objects.

[{"name":"jack"},{"name":"john"},{"name":"joe"}]

A JSON object, however, is JSON that begins with "{" and ends with "}". For example, this JSON is an object that contains an array.

{"pets":[{"name":"jack"},{"name":"john"},{"name":"joe"}]}

This example shows how loading a JSON array is different than loading a JSON object.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads

Chilkat for the Universal Windows Platform (UWP)

Dim strJsonArray As String = "[{""name"":""jack""},{""name"":""john""},{""name"":""joe""}]"

Dim strJsonObject As String = "{""pets"":[{""name"":""jack""},{""name"":""john""},{""name"":""joe""}]}"

' A JSON array must be loaded using JsonArray:
Dim jsonArray As New Chilkat.JsonArray
jsonArray.Load(strJsonArray)

' Examine the values:
Dim i As Integer = 0
While i < jsonArray.Size
    Dim jsonObj As Chilkat.JsonObject = jsonArray.ObjectAt(i)
    Debug.WriteLine(i & ": " & jsonObj.StringOf("name"))

    i = i + 1
End While

' Output is:

' 	0: jack
' 	1: john
' 	2: joe


' A JSON object must be loaded using JsonObject
Dim jsonObject As New Chilkat.JsonObject
jsonObject.Load(strJsonObject)

' Examine the values:
i = 0
Dim numPets As Integer = jsonObject.SizeOfArray("pets")
While i < numPets
    jsonObject.I = i
    Debug.WriteLine(i & ": " & jsonObject.StringOf("pets[i].name"))
    i = i + 1
End While

' Output is:

' 	0: jack
' 	1: john
' 	2: joe