VBScript

Load a JSON Array

See more JSON Examples

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. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' 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 "}"
set sbJson = CreateObject("Chilkat.StringBuilder")
success = sbJson.Append("{""array"":")
success = sbJson.Append(jsonArrayStr)
success = sbJson.Append("}")

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