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