(VBScript) Create a JSON Array of Objects

Demonstrates how to create a JSON array of objects.

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)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonArray")
set arr = CreateObject("Chilkat.JsonArray")

' Add an empty object at the 1st JSON array position.
success = arr.AddObjectAt(0)
' Get the object we just created.
' obj is a Chilkat.JsonObject
Set obj = arr.ObjectAt(0)
success = obj.UpdateString("Name","Otto")
success = obj.UpdateInt("Age",29)
success = obj.UpdateBool("Married",0)

' Add an empty object at the 2nd JSON array position.
success = arr.AddObjectAt(1)
' obj is a Chilkat.JsonObject
Set obj = arr.ObjectAt(1)
success = obj.UpdateString("Name","Connor")
success = obj.UpdateInt("Age",43)
success = obj.UpdateBool("Married",1)

' Add an empty object at the 3rd JSON array position.
success = arr.AddObjectAt(2)
' obj is a Chilkat.JsonObject
Set obj = arr.ObjectAt(2)
success = obj.UpdateString("Name","Ramona")
success = obj.UpdateInt("Age",34)
success = obj.UpdateBool("Married",1)

' Examine what we have:
arr.EmitCompact = 0
outFile.WriteLine(arr.Emit())

' The output is:

' [
'   {
'     "Name": "Otto",
'     "Age": 29,
'     "Married": false
'   },
'   {
'     "Name": "Connor",
'     "Age": 43,
'     "Married": true
'   },
'   {
'     "Name": "Ramona",
'     "Age": 34,
'     "Married": true
'   }
' ]

outFile.Close