(VBScript) Append New Item to JSON Array

Demonstrates the notations that can be used in a JSON array index to append to the end of an array.

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)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
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