Lianja

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. Lianja

llSuccess = .F.

loJson = createobject("CkJsonObject")

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

llSuccess = loJson.Load(lcJsonStr)
if (llSuccess <> .T.) then
    ? loJson.LastErrorText
    release loJson
    return
endif

// To pretty-print, set the EmitCompact property equal to .F.
loJson.EmitCompact = .F.

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

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


release loJson