VBScript

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

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set json = CreateObject("Chilkat.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