(VBScript) JSON Insert Empty Array or Object

Demonstrates how to use the UpdateNewArray and UpdateNewObject methods to insert an empty array or object.

Note: The UpdateNewArray an UpdateNewObject methods were introduced in Chilkat v9.5.0.75.

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)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")

' The following code builds the following JSON, which contains both an empty array and empty object:

' 	{
' 	  "abc": {
' 	    "xyz": [
' 	      {
' 	        "Name": "myName",
' 	        "Description": "description",
' 	        "ScheduleDefinition": "schedule definition",
' 	        "ExceptionScheduleDefinition": "",
' 	        "Attribute": [
' 	        ],
' 	        "SomeEmptyObject": {},
' 	        "token": "token"
' 	      }
' 	    ]
' 	  }
' 	}

success = json.UpdateString("abc.xyz[0].Name","myName")
success = json.UpdateString("abc.xyz[0].Description","description")
success = json.UpdateString("abc.xyz[0].ScheduleDefinition","schedule definition")
success = json.UpdateString("abc.xyz[0].ExceptionScheduleDefinition","")
success = json.UpdateNewArray("abc.xyz[0].Attribute")
success = json.UpdateNewObject("abc.xyz[0].SomeEmptyObject")
success = json.UpdateString("abc.xyz[0].token","token")

json.EmitCompact = 0
outFile.WriteLine(json.Emit())

outFile.Close