(PowerBuilder) 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

integer li_rc
oleobject loo_Json
string ls_JsonStr
integer li_Success

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

li_Success = loo_Json.Load(ls_JsonStr)
if li_Success <> 1 then
    Write-Debug loo_Json.LastErrorText
    destroy loo_Json
    return
end if

// To pretty-print, set the EmitCompact property equal to 0
loo_Json.EmitCompact = 0

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

// Emit the formatted JSON:
Write-Debug loo_Json.Emit()


destroy loo_Json