(VBScript) Pretty Print JSON (Formatter, Beautifier)

Demonstrates how to emit JSON in a pretty, human-readable format with indenting of nested arrays and objects.

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.JsonObject")
set json = CreateObject("Chilkat.JsonObject")

jsonStr = "{""name"": ""donut"",""image"":{""fname"": ""donut.jpg"",""w"": 200,""h"": 200},""thumbnail"":{""fname"": ""donutThumb.jpg"",""w"": 32,""h"": 32}}"

success = json.Load(jsonStr)
If (success <> 1) Then
    outFile.WriteLine(json.LastErrorText)
    WScript.Quit
End If

' To pretty-print, set the EmitCompact property equal to 0
json.EmitCompact = 0

' If bare-LF line endings are desired, turn off EmitCrLf
' Otherwise CRLF line endings are emitted.
json.EmitCrLf = 0

' Emit the formatted JSON:
outFile.WriteLine(json.Emit())

outFile.Close