(VBScript) JSON Add Large Integer or Double

Demonstrates how to add a large number (larger than what can be held in an integer), or a double/float value to a JSON document.

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")

' To add a large integer, use AddNumberAt.

' (an index of -1 indicates append).
index = -1
success = json.AddNumberAt(index,"bignum","8239845689346587465826345892644873453634563456")

' Do the same for a double..
success = json.AddNumberAt(index,"double","-153634.295")

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

' Output:

' 	{
' 	  "bignum": 8239845689346587465826345892644873453634563456,
' 	  "double": -153634.295
' 	}

outFile.Close