(Visual Basic 6.0) 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 ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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 ChilkatJsonArray
success = jsonArray.Load(strJsonArray)

' Examine the values:
Dim i As Long
i = 0
Do While i < jsonArray.Size
    Dim jsonObj As ChilkatJsonObject
    Set jsonObj = jsonArray.ObjectAt(i)
    Debug.Print i & ": " & jsonObj.StringOf("name")

    i = i + 1
Loop

' Output is:

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

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

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

' Output is:

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