Xbase++

Find and Delete Object from JSON Array

See more JSON Examples

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

LOCAL nSuccess
LOCAL oJson
LOCAL oMenu
LOCAL oCatArr
LOCAL nIndex

nSuccess := 0

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

oJson := CreateObject("Chilkat.JsonObject")
nSuccess := oJson:LoadFile("qa_data/json/menus.json")
IF (nSuccess == 0)
    ? oJson:LastErrorText
    oJson:destroy()
    RETURN
ENDIF

//  Find Menu B.
oMenu := oJson:FindRecord("menus", "name", "Menu B", 1)
//  assume menu is found..

//  Get the categories array, and then find the index of the "Pasta" menu category.
oCatArr := oMenu:ArrayOf("categories")
//  Assume it is found..

//  Find the object where the name of the JSON member is "name", and the value is "Pasta"
nIndex := oCatArr:FindObject("name", "Pasta", 1)
IF (nIndex < 0)
    ? "Pasta not found."
ELSE

    //  Delete the "Pasta" category record from Menu B
    nSuccess := oCatArr:DeleteAt(nIndex)
    //  Assume OK..
ENDIF

//  Examine the JSON to see if it worked as expected..
oJson:EmitCompact := 0
? oJson:Emit()

oCatArr:destroy()
oMenu:destroy()

oJson:destroy()