Xbase++

Pretty Print JSON (Formatter, Beautifier)

See more JSON Examples

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

LOCAL nSuccess
LOCAL oJson
LOCAL cJsonStr

nSuccess := 0

oJson := CreateObject("Chilkat.JsonObject")

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

nSuccess := oJson:Load(cJsonStr)
IF (nSuccess != 1)
    ? oJson:LastErrorText
    oJson:destroy()
    RETURN
ENDIF

//  To pretty-print, set the EmitCompact property equal to 0
oJson:EmitCompact := 0

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

//  Emit the formatted JSON:
? oJson:Emit()

oJson:destroy()