(VBScript) 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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)



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

' First wrap it in a JSON object by prepending "{ "array":" and appending "}"
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbJson = CreateObject("Chilkat.StringBuilder")
success = sbJson.Append("{""array"":")
success = sbJson.Append(jsonArrayStr)
success = sbJson.Append("}")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.Load(sbJson.GetAsString())

' Now we can get the JSON array
' jArray is a Chilkat.JsonArray
Set jArray = json.ArrayAt(0)

' Do what you want with the JSON array...
' For example:
' jObjId is a Chilkat.JsonObject
Set jObjId = jArray.ObjectAt(0)
outFile.WriteLine(jObjId.IntOf("id"))


outFile.Close