(VBScript) Example: JsonObject.NewObjectOf method

Demonstrates the NewObjectOf method.

Note: This example requires Chilkat v11.4.0 or greater.

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)

success = 0

car = "{""make"":""Toyota"",""model"":""Camry"",""year"":2022,""color"":""silver"",""engine"":{""type"":""inline-4"",""fuel"":""gasoline"",""horsepower"":203},""features"":[""bluetooth"",""backup camera"",""adaptive cruise control"",""lane assist""],""isElectric"":false}"

set json = CreateObject("Chilkat.JsonObject")

success = json.UpdateString("test","abc")

success = json.NewObjectOf("car",car)
If (success = 0) Then
    outFile.WriteLine(json.LastErrorText)
    WScript.Quit
End If

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

' Result:

' {
'   "test": "abc",
'   "car": {
'     "make": "Toyota",
'     "model": "Camry",
'     "year": 2022,
'     "color": "silver",
'     "engine": {
'       "type": "inline-4",
'       "fuel": "gasoline",
'       "horsepower": 203
'     },
'     "features": [
'       "bluetooth",
'       "backup camera",
'       "adaptive cruise control",
'       "lane assist"
'     ],
'     "isElectric": false
'   }
' }

outFile.Close