Visual Basic 6.0

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"
}

Visual Basic 6.0

Dim success As Long
success = 0

Dim json As New ChilkatJsonObject

success = json.Load("{""apple"": ""red"",""lime"": ""green"",""banana"": ""yellow"",""broccoli"": ""green"",""strawberry"": ""red""}")
If (success <> 1) Then
    Debug.Print json.LastErrorText
    Exit Sub
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 = 0
Debug.Print json.Emit()