(VBScript) Emit JSON Array to StringBuilder

See more JSON Examples

Demonstrates how to write a JSON array to a Chilkat StringBuilder object.

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.JsonArray")
set a = CreateObject("Chilkat.JsonArray")
success = a.Load("[ 1,2,3,4 ]")

' We could get the JSON array as a string...
s = a.Emit()
outFile.WriteLine(s)

' But what if the JSON array contains a huge amount of data,
' and we don't want to marshal it all from Chilkat's internal
' native code to a string in our programming language?

' You can instead emit to a Chilkat StringBuilder
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = CreateObject("Chilkat.StringBuilder")
success = a.EmitSb(sb)

' Perhaps the StringBuilder object can be passed to other methods..
' Chilkat typically provides methods where a potentially large string
' can be passed in via a StringBuilder object..

' Or perhaps you wish to save to a file..
success = sb.WriteFile("c:/temp/qa_output/a.json","utf-8",0)

outFile.Close