(VBScript) 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"
}

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set json = CreateObject("Chilkat_9_5_0.JsonObject")

success = json.Load("{""apple"": ""red"",""lime"": ""green"",""banana"": ""yellow"",""broccoli"": ""green"",""strawberry"": ""red""}")
If (success <> 1) Then
    outFile.WriteLine(json.LastErrorText)
    WScript.Quit
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
outFile.WriteLine(json.Emit())

outFile.Close