(VBScript) Find and Delete Object from JSON Array

Demonstrates how to find an delete an object from a JSON array of objects.

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

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

' This example will delete the "Pasta" category object from Menu B.

' {
'   "menus": [
'     {
'       "name": "Menu A",
'       "categories": [
' 			{
' 			"name": "Kebabs",
' 			"description": "blah blah blah"
' 			},
' 			{
' 			"name": "Burgers",
' 			"description": "blah blah blah"
' 			},
' 			{
' 			"name": "Pasta",
' 			"description": "blah blah blah"
' 			},
' 			{
' 			"name": "Appetizers",
' 			"description": "blah blah blah"
' 			}
' 		]
' 	},
'     {
'       "name": "Menu B",
'       "categories": [
' 			{
' 			"name": "Kebabs",
' 			"description": "blah blah blah"
' 			},
' 			{
' 			"name": "Burgers",
' 			"description": "blah blah blah"
' 			},
' 			{
' 			"name": "Pasta",
' 			"description": "blah blah blah"
' 			},
' 			{
' 			"name": "Appetizers",
' 			"description": "blah blah blah"
' 			}
' 		]
' 	  }
' 	]
' }

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.LoadFile("qa_data/json/menus.json")
If (success = 0) Then
    outFile.WriteLine(json.LastErrorText)
    WScript.Quit
End If

' Find Menu B.
' menu is a Chilkat.JsonObject
Set menu = json.FindRecord("menus","name","Menu B",1)
' assume menu is found..

' Get the categories array, and then find the index of the "Pasta" menu category.
' catArr is a Chilkat.JsonArray
Set catArr = menu.ArrayOf("categories")
' Assume it is found..

' Find the object where the name of the JSON member is "name", and the value is "Pasta"
index = catArr.FindObject("name","Pasta",1)
If (index < 0) Then
    outFile.WriteLine("Pasta not found.")
Else

    ' Delete the "Pasta" category record from Menu B
    success = catArr.DeleteAt(index)
    ' Assume OK..
End If

' Examine the JSON to see if it worked as expected..
json.EmitCompact = 0
outFile.WriteLine(json.Emit())


outFile.Close