(Classic ASP) Modify Parts of JSON Document

Demonstrates how to modify parts of a JSON document. This example uses the following JSON document:

{
   "fruit": [
      	{
         "kind": "apple",
	 "count": 24,
	 "fresh": true,
	 "extraInfo": null,
	 "listA": [ "abc", 1, null, false ],
	 "objectB": { "animal" : "monkey" }
      	},
	{
         "kind": "pear",
	 "count": 18,
	 "fresh": false,
	 "extraInfo": null
	 "listA": [ "xyz", 24, null, true ],
	 "objectB": { "animal" : "lemur" }
	}
    ],
    "list" : [ "banana", 12, true, null, "orange", 12.5, { "ticker": "AAPL" }, [ 1, 2, 3, 4, 5 ] ],
    "alien" : true
}

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = Server.CreateObject("Chilkat.JsonObject")

' Load the JSON from a file.
success = json.LoadFile("qa_data/json/modifySample.json")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( json.LastErrorText) & "</pre>"
    Response.End
End If

' This example will not check for errors (i.e. null / false / 0 return values)...

' Get the "list" array:
' listA is a Chilkat.JsonArray
Set listA = json.ArrayOf("list")

' Modify values in the list.

' Change banana to plantain
success = listA.SetStringAt(0,"plantain")

' Change 12 to 24
success = listA.SetIntAt(1,24)

' Change true to false
success = listA.SetBoolAt(2,0)

' Is the 3rd item null?
bNull = listA.IsNullAt(3)

' Change "orange" to 32.
success = listA.SetIntAt(4,32)

' Change 12.5 to 31.2
success = listA.SetNumberAt(5,"31.2")

' Replace the { "ticker" : "AAPL" } object with { "ticker" : "GOOG" }
' Do this by deleting, then inserting a new object at the same location.
success = listA.DeleteAt(6)
success = listA.AddObjectAt(6)
' tickerObj is a Chilkat.JsonObject
Set tickerObj = listA.ObjectAt(6)
success = tickerObj.AddStringAt(-1,"ticker","GOOG")

' Replace "[ 1, 2, 3, 4, 5 ]" with "[ "apple", 22, true, null, 1080.25 ]"
success = listA.DeleteAt(7)
success = listA.AddArrayAt(7)
' aa is a Chilkat.JsonArray
Set aa = listA.ArrayAt(7)
success = aa.AddStringAt(-1,"apple")
success = aa.AddIntAt(-1,22)
success = aa.AddBoolAt(-1,1)
success = aa.AddNullAt(-1)
success = aa.AddNumberAt(-1,"1080.25")

' Get the "fruit" array
' aFruit is a Chilkat.JsonArray
Set aFruit = json.ArrayAt(0)

' Get the 1st element:
' appleObj is a Chilkat.JsonObject
Set appleObj = aFruit.ObjectAt(0)

' Modify values by member name:
success = appleObj.SetStringOf("fruit","fuji_apple")
success = appleObj.SetIntOf("count",46)
success = appleObj.SetBoolOf("fresh",0)
success = appleObj.SetStringOf("extraInfo","developed by growers at the Tohoku Research Station in Fujisaki")

' Modify values by index:
' pearObj is a Chilkat.JsonObject
Set pearObj = aFruit.ObjectAt(1)
success = pearObj.SetStringAt(0,"bartlett_pear")
success = pearObj.SetIntAt(1,12)
success = pearObj.SetBoolAt(2,0)
success = pearObj.SetStringAt(3,"harvested in late August to early September")

json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"

%>
</body>
</html>