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