VBScript

JSON Add Large Integer or Double

See more JSON Examples

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

' 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