Help, parse JSON array to a autoit array

[Kyan]

Hi, I'm trying to 'convert' a JSON's array to autoit arrays

Found this UDF: www.autoitscript.com/forum/topic/104150-json-udf-library-fully-rfc4627-compliant/

But doesn't work with this kind of arrays: [{"z1":"vanueh","on":true}]

Works for: {"error":"..."}

Script:

#include "JSON.au3"
#include "array.au3"
#noTrayIcon
$s = ' [{"z1":"vanueh","on":true}]'
$s2='{"error":"Error MSG"}'
$t = _JSONDecode($s)
$t2 = _JSONDecode($s2)
_ArrayDisplay($t)
_ArrayDisplay($t2)

Should it be done using a regex?

Thank you for your time

Edited November 1, 2014 by Kyan

[llewxam]

I see you still haven't had any suggstions here, I did some tinkering and here is what I came up with:

#include "JSON.au3"
#include "array.au3"
#NoTrayIcon

$s = ' [{"z1":"vanueh","on":true}]'
$s2 = '{"error":"Error MSG"}'

Parse($s)
Parse($s2)
Exit


Func Parse($sTemp)
    If StringInStr($sTemp, ",") Then
        $sTemp = StringRegExpReplace($sTemp, "[\[\]{}]", "")
        $sBreak = StringSplit($sTemp, ",")
        For $a = 1 To $sBreak[0]
            $t = _JSONDecode("{" & $sBreak[$a] & "}")
            _ArrayDisplay($t, "multi " & $a & " of " & $sBreak[0])
        Next
    Else
        $t = _JSONDecode($sTemp)
        _ArrayDisplay($t, "single")
    EndIf
EndFunc   ;==>Parse

It seemed to me the easiest way to deal with the issue.  When the result is nested, strip all brackets, split by comma, then add brackets back to each element of the resulting array.  Hopefully this offers you some way to move forward with your script.

Ian

[Kyan]

wow, works , took a bit of time to check what you done and why a json array line was appearing on the output.

To process arrays with more than one line do you have some suggestion? (no structs here :)

Thank you, was stuck in this part

[llewxam]

LOL, to be honest I know NOTHING about JSON, so I am stabbing in the dark here.

When you say "To process arrays with more than one line", what exactly do you mean?  If you mean the string (JSON array) could have more than 1 comma it is already fixed, it will work as-is for thousands of nested elements.  If you mean you may have more than one JSON array that you want to parse at the same time, you could just jam them together like "$sNew = $s & "," & s2" and send $sNew to the Parse function, since StringRegExpReplace will remove all brackets and make one giant AutoIt array of the results.  Just make sure you add the comma in between each JSON array as I showed or you will have a bit of funkiness where they meet up.....

If I missed the point completely let me know.

Ian
 

[Kyan]

For example: 

[{"z1":"vanueh","on":true},{"z1":"vanueh","on":true}]

It is going to be in the same array two different "lines", but I guess only with structs it will get organized

Nevermind

[llewxam]

Unless I'm missing the point of JSON I don't see any problems here.  And running what you posted above it worked just fine  

Ian

[Kyan]

Nailed it

Func Parse($sTemp)
    Local $aArray[1], $n=1
    ;$sTemp = StringRegExpReplace($sTemp, "[\[\]]", "")
    ;$sBreak = StringSplit($sTemp,",")
    $sBreak = StringRegExp($sTemp,'({.+?})',3)
    If Not @error Then
        For $a = 0 To UBound($sBreak)-1
            $js = _JSONDecode($sBreak[$a])
            $cn = UBound($js)
            If $cn > $n Then $n = $cn
            ReDim $aArray[$n][$a*2+2]
            For $i = 0 to $cn - 1
                $aArray[$i][$a*2] = $js[$i][0]
                $aArray[$i][$a*2+1] = $js[$i][1]
            Next
        Next
        Return $aArray
    EndIf
EndFunc   ;==>Parse

Works for Json arrays, like:  [{"z1":"vanueh","on":true},{"z1":"vanueh","on":true}], and they don't need to be the same size (rows)

or for simple ones,  {"z1":"vanueh","on":true}