(AutoIt) Get the Root of a JSON Document

Demonstrates how to get back to the JSON root object from anywhere in the JSON document. This example uses the following JSON document:

{
  "flower": "tulip",
  "abc":
    {
    "x": [
       { "a" : 1 },
       { "b1" : 100, "b2" : 200 },
       { "c" : 3 }
    ],
    "y": 200,
    "z": 200
    }
}

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

$oJson = ObjCreate("Chilkat.JsonObject")

Local $sJsonStr = "{""flower"": ""tulip"",""abc"":{""x"": [{ ""a"" : 1 },{ ""b1"" : 100, ""b2"" : 200 },{ ""c"" : 3 }],""y"": 200,""z"": 200}}"

Local $bSuccess = $oJson.Load($sJsonStr)
If ($bSuccess <> True) Then
    ConsoleWrite($oJson.LastErrorText & @CRLF)
    Exit
EndIf

; Get the "abc" object.
Local $oAbcObj = $oJson.ObjectOf("abc")
If ($oJson.LastMethodSuccess = False) Then
    ConsoleWrite("abc object not found." & @CRLF)
    Exit
EndIf

; Side note: The JSON of a sub-part of the document can be emitted from any JSON object:
$oAbcObj.EmitCompact = False
ConsoleWrite($oAbcObj.Emit() & @CRLF)

; Navigate to the "x" array
Local $oXArray = $oAbcObj.ArrayOf("x")
; We'll skip the null check and assume it's non-null...

; Navigate to the 2nd object contained within the array.  This contains members b1 and b2
Local $oBObj = $oXArray.ObjectAt(1)
; We'll skip the null check and assume it's non-null...

; Show that we're at "b1/b2".
; The value of "b1" should be "200"
ConsoleWrite("b2 = " & $oBObj.IntOf("b2") & @CRLF)

; Now go back to the JSON doc root:
Local $oDocRoot = $oBObj.GetDocRoot()
; We'll skip the null check and assume it's non-null...

; Pretty-print the JSON doc from the root to show that this is indeed the root.
$oDocRoot.EmitCompact = False
ConsoleWrite($oDocRoot.Emit() & @CRLF)