A Non-Strict JSON UDF (JSMN)

[DonChunior]

JSON variables with a period in variable names are not supported by the Json_Get function:

#include "Json.au3"

Local $Json = '{"@odata_count": 24,"@odata.count": 24,"@odata-count": 24}'

Json_Dump($Json)

Local $Data = Json_Decode($Json)
If @error Then
    ConsoleWrite("Json_Decode: @error = " & @error & @CRLF)
EndIf

Local $iCount = Json_Get($Data, ".@odata_count")
If @error Then
    ConsoleWrite("Json_Get (1): @error = " & @error & @CRLF)
Else
    ConsoleWrite("$iCount = " & $iCount & @CRLF)
EndIf

$iCount = Json_Get($Data, ".@odata.count")
If @error Then
    ConsoleWrite("Json_Get (2): @error = " & @error & @CRLF)
Else
    ConsoleWrite("$iCount = " & $iCount & @CRLF)
EndIf

$iCount = Json_Get($Data, ".@odata-count")
If @error Then
    ConsoleWrite("Json_Get (3): @error = " & @error & @CRLF)
Else
    ConsoleWrite("$iCount = " & $iCount & @CRLF)
EndIf

The second call of Json_Get results in @error being 1.
Unfortunately, the Open Data Protocol (OData) standard defines some variables that contain a dot in their name (e.g. "@odata.context", "@odata.count", "@odata.id" ...).

[TheXman]

@DonChunior

Using your example, the correct syntax would be:

$iCount = Json_Get($Data, '."@odata.count"')  ;Using dot-notation

or 

$iCount = Json_Get($Data, '["@odata.count"]')  ;Using bracket-notation

If key names contain special characters, such as periods, the key names should be wrapped in double quotes.

Edited August 7 by TheXman

[DonChunior]

19 minutes ago, TheXman said:

@DonChunior

Using your example, the correct syntax would be:

$iCount = Json_Get($Data, '."@odata.count"')  ;Using dot-notation

or 

$iCount = Json_Get($Data, '["@odata.count"]')  ;Using bracket-notation

 

Hi @TheXman,

unfortunately that doesn't work for me. 😕
I'm still getting 1 as @error.

[TheXman]

It works for me.  Below, is your updated script that I ran:

Spoiler

#include "Json.au3"

Global $Json = '{"@odata_count": 24,"@odata.count": 24,"@odata-count": 24}'

Json_Dump($Json)

Global $Data = Json_Decode($Json)
If @error Then
    ConsoleWrite("Json_Decode: @error = " & @error & @CRLF)
EndIf

Global $iCount = Json_Get($Data, ".@odata_count")
If @error Then
    ConsoleWrite("Json_Get (1): @error = " & @error & @CRLF)
Else
    ConsoleWrite("$iCount = " & $iCount & @CRLF)
EndIf

$iCount = Json_Get($Data, '."@odata.count"')
;~ $iCount = Json_Get($Data, '["@odata.count"]')
If @error Then
    ConsoleWrite("Json_Get (2): @error = " & @error & @CRLF)
Else
    ConsoleWrite("$iCount = " & $iCount & @CRLF)
EndIf

$iCount = Json_Get($Data, ".@odata-count")
If @error Then
    ConsoleWrite("Json_Get (3): @error = " & @error & @CRLF)
Else
    ConsoleWrite("$iCount = " & $iCount & @CRLF)
EndIf

Output

+-> .@odata_count  =24
+-> .@odata.count  =24
+-> .@odata-count  =24
$iCount = 24
$iCount = 24
$iCount = 24

 

 

Edited August 7 by TheXman

[DonChunior]

Still not for me.
Have you modified (fixed) the UDF in comparison to the original of @Ward?

[TheXman]

I used the most current version posted in the first post. ( _Json(2021.11.20).zip )

Edit:  See my post below to get a copy of the version that I used.

Edited August 7 by TheXman

[Jos]

There's a fix for dot notations in a couple of versions back.

[TheXman]

3 hours ago, DonChunior said:

Have you modified (fixed) the UDF in comparison to the original of @Ward?

I apologize.  I just rechecked my version.  It looks like I did make a small change back in 2022 that fixed this (and other) issues.  I haven't used this UDF for processing JSON datasets in several years, so I must have forgotten about the modification.  Here is the version I used:

Json(2022.09.18).au3

Edited August 7 by TheXman

[mLipok]

Spoiler

On 11/18/2021 at 4:28 PM, TheXman said:

Json (modified).au3Unavailable

We could not locate the item you are trying to view.

 

Sorry, the newer version works.

Edited 1 hour ago by mLipok

[mLipok]

I have a question about this following example:

#include "Json.au3"

ConsoleWrite("- Test8() : " & Test8() & @CRLF)

Func Test8()
    ; Your three JSON strings
    Local $Json1 = '{"name":"John","age":30,"locations":{}}'
    Local $Json2 = '{"MainCity":"Paris","MainCountry":"France"}'
    Local $Json3 = '{"City":"London","Country":"England"}'

    ; Decode
    Local $obj1 = Json_Decode($Json1)
    Local $obj2 = Json_Decode($Json2)
    Local $obj2a = $obj2
    Local $obj3 = Json_Decode($Json3)

    ; Insert obj2 into obj1 under a key (e.g. "location")
    $obj1.Item("locations") = $obj2   ; <-- This puts data into object
    $obj1.Item("locations").Item("location1") = $obj2a  ; <-- This creates a sub-object
    $obj1.Item("locations").Item("location2") = $obj3  ; <-- This creates a sub-object

    ; Encode back to JSON
    Local $final = Json_Encode($obj1, $JSON_PRETTY_PRINT)
    ConsoleWrite($final & @CRLF)
EndFunc   ;==>Test8

Why I can't use $obj2a in the same way as I used $obj3.
I know I already used $obj2 but why I can't use them again ?

I know that I can use them like this:

;~  $obj1.Item("locations") = $obj2   ; <-- This puts data into object
    $obj1.Item("locations").Item("location1") = $obj2a  ; <-- This creates a sub-object

But why can't use them together ?

Edited 28 minutes ago by mLipok
typo