(VBScript) JSON UpdateNumber vs UpdateInt

Demonstrates UpdateNumber vs UpdateString.

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.JsonObject")
set json = CreateObject("Chilkat.JsonObject")

' If a number is too large for a 32-bit signed integer, then call UpdateNumber instead of UpdateInt.
' The large integer is passed to UpdateNumber as a string, but in the JSON it will be an integer.

' For example:
success = json.UpdateNumber("largeNumber","6884556842")

' If the integer is small enough for a 32-bit signed integer, then use UpdateInt:
success = json.UpdateInt("reasonableInt",123456)

json.EmitCompact = 0
outFile.WriteLine(json.Emit())

' The output:
' Notice the large number passed as a string does not have quotes in the JSON

' {
'   "largeNumber": 6884556842,
'   "reasonableInt": 123456
' }

outFile.Close