VBScript

Append New Item to JSON Array

See more JSON Examples

Demonstrates the notations that can be used in a JSON array index to append to the end of an array. 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)

' Starting in Chilkat v9.5.0.77, the following notations are possible to specify that the value
' should be appended to the end of the array. (In other words, if the array currenty has N elements, then "-1", "", or "*" 
' indicate an index of N+1.

set json = CreateObject("Chilkat.JsonObject")

success = json.UpdateInt("lanes[-1]",0)
success = json.UpdateInt("lanes[]",1)
success = json.UpdateInt("lanes[*]",2)
success = json.UpdateInt("lanes[-1]",3)

outFile.WriteLine(json.Emit())

' Output is:  {"lanes":[0,1,2,3]}

outFile.Close