(Visual Basic 6.0) Load a JSON Array

The Chilkat JSON API requires the top-level JSON to be an object. Therefore, to load an array requires that it first be wrapped as an object.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim success As Long

' Imagine we want to load this JSON array for parsing:
Dim jsonArrayStr As String
jsonArrayStr = "[{""id"":200},{""id"":196}]"

' First wrap it in a JSON object by prepending "{ "array":" and appending "}"
Dim sbJson As New ChilkatStringBuilder
success = sbJson.Append("{""array"":")
success = sbJson.Append(jsonArrayStr)
success = sbJson.Append("}")

Dim json As New ChilkatJsonObject
success = json.Load(sbJson.GetAsString())

' Now we can get the JSON array
Dim jArray As ChilkatJsonArray
Set jArray = json.ArrayAt(0)

' Do what you want with the JSON array...
' For example:
Dim jObjId As ChilkatJsonObject
Set jObjId = jArray.ObjectAt(0)
Debug.Print jObjId.IntOf("id")