VBScript Requires Chilkat v11.1.0+

Create a JSON Array of Objects

See more JSON Examples

Demonstrates how to create a JSON array of objects. 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

set arr = CreateObject("Chilkat.JsonArray")

set obj = CreateObject("Chilkat.JsonObject")

'  Create a new and empty JSON object in the 1st position of the JSON array 
'  and return the reference in the last argument.
success = arr.AddObjectAt2(0,obj)
success = obj.UpdateString("Name","Otto")
success = obj.UpdateInt("Age",29)
success = obj.UpdateBool("Married",0)

'  Create a new and empty JSON object in the 2nd position of the JSON array 
'  and return the reference in the last argument.
success = arr.AddObjectAt2(1,obj)
success = obj.UpdateString("Name","Connor")
success = obj.UpdateInt("Age",43)
success = obj.UpdateBool("Married",1)

'  Create a new and empty JSON object in the 3rd position of the JSON array 
'  and return the reference in the last argument.
success = arr.AddObjectAt2(2,obj)
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