(Visual FoxPro) 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

LOCAL loJson
LOCAL lnSuccess
LOCAL loMenu
LOCAL loCatArr
LOCAL lnIndex

* 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')
loJson = CreateObject('Chilkat.JsonObject')
lnSuccess = loJson.LoadFile("qa_data/json/menus.json")
IF (lnSuccess = 0) THEN
    ? loJson.LastErrorText
    RELEASE loJson
    CANCEL
ENDIF

* Find Menu B.
loMenu = loJson.FindRecord("menus","name","Menu B",1)
* assume menu is found..

* Get the categories array, and then find the index of the "Pasta" menu category.
loCatArr = loMenu.ArrayOf("categories")
* Assume it is found..

* Find the object where the name of the JSON member is "name", and the value is "Pasta"
lnIndex = loCatArr.FindObject("name","Pasta",1)
IF (lnIndex < 0) THEN
    ? "Pasta not found."
ELSE

    * Delete the "Pasta" category record from Menu B
    lnSuccess = loCatArr.DeleteAt(lnIndex)
    * Assume OK..
ENDIF

* Examine the JSON to see if it worked as expected..
loJson.EmitCompact = 0
? loJson.Emit()

RELEASE loCatArr
RELEASE loMenu

RELEASE loJson