VBScript

JSON UpdateNumber vs UpdateInt

Demonstrates UpdateNumber vs UpdateString. 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)

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