(VBScript) Emit JSON Array to StringBuilder
Demonstrates how to write a JSON array to a Chilkat StringBuilder object.
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
set a = CreateObject("Chilkat_9_5_0.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
set sb = CreateObject("Chilkat_9_5_0.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
|