(VBScript) Using JSON StringOf with Non-String Members

See more JSON Examples

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)

' Create JSON with members of different data types.
set json = CreateObject("Chilkat.JsonObject")

success = json.UpdateInt("a",123)
success = json.UpdateBool("b",1)
success = json.UpdateNull("c")

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

' Resulting JSON:
' {
'   "a": 123,
'   "b": true,
'   "c": null
' }

a = json.StringOf("a")
outFile.WriteLine(a)

b = json.StringOf("b")
outFile.WriteLine(b)

c = json.StringOf("c")
outFile.WriteLine(c)

' Output

' 123
' true
' null

' If you want to get the integer, boolean, or null value
' you need to use the methods matching the data type
ival = json.IntOf("a")
bval = json.BoolOf("b")
hasNull = json.IsNullOf("c")

outFile.Close