Visual FoxPro

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. Visual FoxPro

LOCAL lnSuccess
LOCAL loJson
LOCAL lcJsonStr

lnSuccess = 0

loJson = CreateObject('Chilkat.JsonObject')

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

lnSuccess = loJson.Load(lcJsonStr)
IF (lnSuccess <> 1) THEN
    ? loJson.LastErrorText
    RELEASE loJson
    CANCEL
ENDIF

* To pretty-print, set the EmitCompact property equal to 0
loJson.EmitCompact = 0

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

* Emit the formatted JSON:
? loJson.Emit()

RELEASE loJson