(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.
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", 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 "}"
set sbJson = CreateObject("Chilkat_9_5_0.StringBuilder")
success = sbJson.Append("{""array"":")
success = sbJson.Append(jsonArrayStr)
success = sbJson.Append("}")
set json = CreateObject("Chilkat_9_5_0.JsonObject")
success = json.Load(sbJson.GetAsString())
' Now we can get the JSON array
' jArray is a Chilkat_9_5_0.JsonArray
Set jArray = json.ArrayAt(0)
' Do what you want with the JSON array...
' For example:
' jObjId is a Chilkat_9_5_0.JsonObject
Set jObjId = jArray.ObjectAt(0)
outFile.WriteLine(jObjId.IntOf("id"))
outFile.Close
|