(Xojo Plugin) 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 Xojo Plugin Download

Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

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

// A JSON array must be loaded using JsonArray:
Dim jsonArray As New Chilkat.JsonArray
Dim success As Boolean
success = jsonArray.Load(strJsonArray)

// Examine the values:
Dim i As Int32
i = 0
While i < jsonArray.Size
    Dim jsonObj As Chilkat.JsonObject
    jsonObj = jsonArray.ObjectAt(i)
    System.DebugLog(Str(i) + ": " + jsonObj.StringOf("name"))

    i = i + 1
Wend

// Output is:

// 	0: jack
// 	1: john
// 	2: joe

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

// Examine the values:
i = 0
Dim numPets As Int32
numPets = jsonObject.SizeOfArray("pets")
While i < numPets
    jsonObject.I = i
    System.DebugLog(Str(i) + ": " + jsonObject.StringOf("pets[i].name"))
    i = i + 1
Wend

// Output is:

// 	0: jack
// 	1: john
// 	2: joe