B4X

JSON: Renaming and Deleting Members

See more JSON Examples

Demonstrates renaming and deleting members. This example uses the following JSON document:

{
   "apple": "red",
   "lime": "green",
   "banana": "yellow",
   "broccoli": "green",
   "strawberry": "red"
}

B4X

Dim success As Boolean = False

Dim json As ChilkatJsonObject
json.Initialize

success = json.Load("{" & Chr(34) & "apple" & Chr(34) & ": " & Chr(34) & "red" & Chr(34) & "," & Chr(34) & "lime" & Chr(34) & ": " & Chr(34) & "green" & Chr(34) & "," & Chr(34) & "banana" & Chr(34) & ": " & Chr(34) & "yellow" & Chr(34) & "," & Chr(34) & "broccoli" & Chr(34) & ": " & Chr(34) & "green" & Chr(34) & "," & Chr(34) & "strawberry" & Chr(34) & ": " & Chr(34) & "red" & Chr(34) & "}")
If success <> True Then
    Log(json.LastErrorText)
    Return
End If


'  Rename "lime" to "lemon".
success = json.Rename("lime", "lemon")
'  Change the color to yellow:
success = json.SetStringOf("lemon", "yellow")

'  Rename by index.  Banana is at index 2 (apple is at index 0)
success = json.RenameAt(2, "bartlett_pear")

'  Delete broccoli by name
success = json.Delete("broccoli")

'  Delete apple by index.  Apple is at index 0.
success = json.DeleteAt(0)

json.EmitCompact = False
Log(json.Emit)