Xojo Plugin

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. Xojo Plugin

Dim success As Boolean
success = False

Dim json As New Chilkat.JsonObject

Dim jsonStr As String
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 <> True) Then
    System.DebugLog(json.LastErrorText)
    Return
End If

// To pretty-print, set the EmitCompact property equal to False
json.EmitCompact = False

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

// Emit the formatted JSON:
System.DebugLog(json.Emit())