(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.
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")
|
