(Excel) JSON: Renaming and Deleting Members

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

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

Download Excel Class Modules Chilkat Excel Class Modules

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject


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