Popular Post AspirinJunkie Posted January 17, 2023 Popular Post Share Posted January 17, 2023 (edited) Introduction JSON is a pure data exchange format. Basically you only have to deal with JSON in 2 places in a program: Once when reading JSON data and once when outputting data. In between it should not really matter that the data used to be JSON or should be converted to it. You should not need any special intermediate structures but only the elements that the respective programming language provides anyway. This is exactly the approach of this UDF: There is the function _JSON_Parse(), which converts an arbitrary JSON string into (nested) pure AutoIt data types (Arrays, Maps, Strings, Numbers, Null, True, False). And on the other side we have the function _JSON_Generate(), which generates a JSON string from arbitrary (nested) AutoIt data structures. Import and export JSON So how to use - let`s give an example: Spoiler #include <JSON.au3> Global $s_String = '[{"id":"4434156","url":"https://legacy.sky.com/v2/schedules/4434156","title":"468_CORE_1_R.4 Schedule","time_zone":"London","start_at":"2017/08/10 19:00:00 +0100","end_at":null,"notify_user":false,"delete_at_end":false,"executions":[],"recurring_days":[],"actions":[{"type":"run","offset":0}],"next_action_name":"run","next_action_time":"2017/08/10 14:00:00 -0400","user":{"id":"9604","url":"https://legacy.sky.com/v2/users/9604","login_name":"robin@ltree.com","first_name":"Robin","last_name":"John","email":"robin@ltree.com","role":"admin","deleted":false},"region":"EMEA","can_edit":true,"vm_ids":null,"configuration_id":"19019196","configuration_url":"https://legacy.sky.com/v2/configurations/19019196","configuration_name":"468_CORE_1_R.4"},{"id":"4444568","url":"https://legacy.sky.com/v2/schedules/4444568","title":"468_CORE_1_R.4 Schedule","time_zone":"London","start_at":"2017/08/11 12:00:00 +0100","end_at":null,"notify_user":false,"delete_at_end":false,"executions":[],"recurring_days":[],"actions":[{"type":"suspend","offset":0}],"next_action_name":"suspend","next_action_time":"2017/08/11 07:00:00 -0400","user":{"id":"9604","url":"https://legacy.sky.com/v2/users/9604","login_name":"robin@ltree.com","first_name":"Robin","last_name":"John","email":"robin@ltree.com","role":"admin","deleted":false},"region":"EMEA","can_edit":true,"vm_ids":null,"configuration_id":"19019196","configuration_url":"https://legacy.sky.com/v2/configurations/19019196","configuration_name":"468_CORE_1_R.4"}]' ; ================= parse the JSON-String into a nested AutoIt data structure ============== $o_Object = _JSON_Parse($s_String) ; ================= query values from the structure directly with AutoIt syntax ============ $s_Type = $o_Object[1].actions[0].type ConsoleWrite("type: " & $s_Type & @CRLF) ; ; ================= query values via _JSON_Get() (safer and clearer) ======================= $s_Type = _JSON_Get($o_Object, "[1].actions[0].type") ConsoleWrite("type: " & $s_Type & @CRLF & @CRLF) ; ; ================= convert AutoIt data structures into a JSON string ====================== ConsoleWrite(_JSON_Generate($o_Object) & @CRLF & @CRLF) ; ; compact form: ConsoleWrite(_JSON_Generate($o_Object, "", "", "", "", "", "") & @CRLF & @CRLF) Handling nested data structures JSON is often very nested. The resulting AutoIt data is therefore naturally also nested, which makes it somewhat cumbersome to process with pure AutoIt on-board methods. For this reason, the UDF comes with a few helper functions that make life with this data easier. One of them is _JSON_Get(), which allows you to access deeply nested data with a simple query syntax. On the other hand there is the function _JSON_addChangeDelete() with which you can (the name already says it) change, add and delete data. You can even easily create deeply nested structures with a single call. Again, here is a small example of how to use it: Spoiler #include <JSON.au3> Global $mMap ; target variable ; Create a structure to manage the employees of different companies in their respective company sites: _JSON_addChangeDelete($mMap, "our company.company sites[1].employee[0]", "John Johnson") _JSON_addChangeDelete($mMap, "our company.company sites[1].employee[1]", "Margret Margretson") _JSON_addChangeDelete($mMap, "our company.company sites[3].employee[0]", "Betty Bettinson") ; Change a value - e.g. replace the employee "John Johnson" _JSON_addChangeDelete($mMap, "our company.company sites[1].employee[0]", "Mark Marcusson") ; delete the second employee in the 2nd site ("Margret Margretson") _JSON_addChangeDelete($mMap, "our company.company sites[1].employee[1]") ; show the resulting data structure ConsoleWrite(_JSON_Generate($mMap) & @CRLF & @CRLF) Strictly speaking, these functions should not even have "JSON" in their names, since they are generally applied to data structures in AutoIt. However, since they are often used in the JSON environment, we allow ourselves this small inaccuracy. Why should i give it a try? Probably the most common method to deal with JSON in AutoIt is the variant via JSMN. My minor dissatisfactions with this approach led me to write this UDF in the first place a few years ago. So the incentives are quite JSMN related: Parsing and extraction of data is faster than in JSMN. (Only if the JSON string makes heavy use of JSON escapes should JSMN be a bit faster in parsing, since the escapes are resolved later.) Editing the data is easier, because you don't need special commands for the JSMN intermediate structure but deal directly with AutoIt structures. Generating JSON is also simple: build your structure in AutoIt as you like and then let it generate a JSON string for you with _JSON_Generate(). The UDF is smaller (28kb vs. 45kb) The UDF is in pure AutoIt. You can directly customize any behavior as you like. >>sourcecode and download on github<< Edited August 25, 2023 by AspirinJunkie toasterking, Danyfirex, philpw99 and 11 others 5 9 Link to comment Share on other sites More sharing options...
SOLVE-SMART Posted January 17, 2023 Share Posted January 17, 2023 I was already excited about it, when you @AspirinJunkie talked about it in the German forum. The "give it a try" reasons are promising and understandable. I wil have a deeper look soon. Thanks for your effort and well defined examples (description etc.) 👍 . Best regards Sven Stay innovative! Spoiler 🌍 Au3Forums 🎲 AutoIt (en) Cheat Sheet 📊 AutoIt limits/defaults 💎 Code Katas: [...] (comming soon) 🎭 Collection of GitHub users with AutoIt projects 🐞 False-Positives 🔮 Me on GitHub 💬 Opinion about new forum sub category 📑 UDF wiki list ✂ VSCode-AutoItSnippets 📑 WebDriver FAQs 👨🏫 WebDriver Tutorial (coming soon) Link to comment Share on other sites More sharing options...
dmob Posted January 18, 2023 Share Posted January 18, 2023 How I needed this months ago; I use SQLite functions to do same, which is a bit cumbersome at times for simple get/save.. Will defo try this, thank you for sharing. Link to comment Share on other sites More sharing options...
ioa747 Posted January 18, 2023 Share Posted January 18, 2023 Congratulations !! file size JSMN Pure AutoIt ;~ ------------------------------------------------------------------------ ;~ sample4.json 451 bytes 2.64 ms 0.77 ms ;~ test.json 1,46 KB 3.93 ms 2.48 ms ;~ USD.json 2,12 KB 10.68 ms 6.42 ms ;~ 110-pcp-ytd-12-1895-2016.json 5,43 KB 54.20 ms 13.42 ms ;~ earth_meteorites.json 240 KB 1339.18 ms 546.57 ms ;~ Test2.json 2,04 MB 4180.48 ms 2172.16 ms philpw99 and TheDcoder 1 1 I know that I know nothing Link to comment Share on other sites More sharing options...
AspirinJunkie Posted January 18, 2023 Author Share Posted January 18, 2023 To be fair, I have attached a file where the ratio is the other way around. The reason here is that there is massive use of JSON unicode char escapes in the file. The escapes resolution seems to be implemented more efficiently in jsmn. To be honest it is still a big mystery to me how a parser written in pure AutoIt and executed by interpreter can be faster (even if it were only in a few cases) than one in machine code. On the other hand, it must be said that jsmn does not peddle great speed, but rather the small code size and the portability of the code. These promises are simply kept by jsmn. Aerosmith.json genius257 and TheDcoder 2 Link to comment Share on other sites More sharing options...
ioa747 Posted February 1, 2023 Share Posted February 1, 2023 (edited) @AspirinJunkie can you give me please an example How to assign sample4.json to an array and then replace the sample4.json with this array ...if that is possible Thank you ! Edited February 1, 2023 by ioa747 I know that I know nothing Link to comment Share on other sites More sharing options...
AspirinJunkie Posted February 1, 2023 Author Share Posted February 1, 2023 (edited) 4 hours ago, ioa747 said: can you give me please an example How to assign sample4.json to an array You would have to describe in more detail what you mean by array, because behind the attribute "people" there is already an array - more precisely an array of maps. You would have to describe the exact shape if you want something else. If you want to have a 2D array from the map array, then you have to do yourself: Spoiler #include <JSON.au3> #include <Array.au3> ; read and parse the file into a AutoIt-structure: $sString = FileRead("sample4.json") $vData = _JSON_Parse($sString) ; the array in the attribute "people": Global $aMapArray = $vData.people ; the list of used attributes inside a dataset: Global $aAttrKeys = MapKeys($aMapArray[0]) ; create and set size of result array: Global $aResultArray[UBound($aMapArray)][UBound($aAttrKeys)] ; process the datasets in the map-array "people" and fill the result-array Global $iC = 0 For $mDataset In $aMapArray For $i = 0 To UBound($aAttrKeys) - 1 $aResultArray[$iC][$i] = $mDataset[$aAttrKeys[$i]] Next $iC += 1 Next ; present the result-array _ArrayDisplay($aResultArray, "People", "", 64, Default, _ArrayToString($aAttrKeys)) ; convert the array into json-syntax (you can overwrite the sample4.json with this) ConsoleWrite(_JSON_Generate($aResultArray) & @CRLF) Edit: For such special cases as creating a 2D array from an array-of-maps, you can also write yourself a reusable function. Curiously, I have written such a function for exactly this case (from a not yet published UDF): Spoiler expandcollapse popup#include <JSON.au3> #include <Array.au3> ; read and parse the file into a AutoIt-structure: Global $sString = FileRead("sample4.json") Global $vData = _JSON_Parse($sString) ; convert the map-array into a 2D-array Global $aHeader, $aResult = _td_MapArrayTo2DArray($vData.people, $aHeader) _ArrayDisplay($aResult, "People", "", 64, Default, _ArrayToString($aHeader)) ; #FUNCTION# ====================================================================================== ; Name ..........: _td_MapArrayTo2DArray() ; Description ...: converts a map-array (a 1D-array with maps as values) into 2 2D-array where the colums = keys ; Syntax ........: _td_MapArrayTo2DArray($aMapArray, ByRef $aHeader) ; Parameters ....: $aMapArray - the input map-array (1D-array with maps as values) ; $aHeader - variable which get's overwritten with the header values (=attribute names and column id) ; Return values .: Success: 2D-array ; Failure: Null ; @error = 1: aMapArray is not a array ; @error = 2: array-value is not a map (@extend = index of wrong value) ; Author ........: AspirinJunkie ; Last changed ..: 2022-09-26 ; Version .......: 0.5 ; ================================================================================================= Func _td_MapArrayTo2DArray($aMapArray, ByRef $aHeader) If UBound($aMapArray, 0) <> 1 Then Return SetError(1, UBound($aMapArray, 0) <> 1, Null) Local $mHeaders[], $aResult[1][1] Local $mMap, $sKey, $sAttribute Local $iRow = 0, $nAttribs = 0 For $mMap In $aMapArray If Not IsMap($mMap) Then Return SetError(2, $iRow, Null) For $sKey In MapKeys($mMap) If Not MapExists($mHeaders, $sKey) Then $mHeaders[$sKey] = $nAttribs $nAttribs += 1 If UBound($aResult, 2) < $nAttribs Then Redim $aResult[UBound($aResult, 1)][UBound($aResult, 2) * 2] EndIf If UBound($aResult, 1) <= $iRow Then Redim $aResult[UBound($aResult, 1) * 2][UBound($aResult, 2)] $aResult[$iRow][$mHeaders[$sKey]] = $mMap[$sKey] Next $iRow += 1 Next Redim $aResult[$iRow][$nAttribs] Dim $aHeader[UBound($mHeaders)] For $sAttribute In MapKeys($mHeaders) $aHeader[$mHeaders[$sAttribute]] = $sAttribute Next Return $aResult EndFunc ;==>_td_MapArrayTo2DArray Edited February 1, 2023 by AspirinJunkie ioa747 1 Link to comment Share on other sites More sharing options...
ioa747 Posted February 1, 2023 Share Posted February 1, 2023 I have no idea how the structure of .json file should be. Your example covered me, that's exactly what I wanted. To use it like a .ini file This is a good start Thank you very much I know that I know nothing Link to comment Share on other sites More sharing options...
ioa747 Posted February 1, 2023 Share Posted February 1, 2023 how put array back to .json? The result is different from sample4.json expandcollapse popup; https://www.autoitscript.com/forum/topic/209502-json-udf-in-pure-autoit/?do=findComment&comment=1512686 #include <JSON.au3> #include <Array.au3> ; read and parse the file into a AutoIt-structure: $sString = FileRead("sample4.json") $vData = _JSON_Parse($sString) ; the array in the attribute "people": Global $aMapArray = $vData.people ; the list of used attributes inside a dataset: Global $aAttrKeys = MapKeys($aMapArray[0]) ; create and set size of result array: Global $aResultArray[UBound($aMapArray)][UBound($aAttrKeys)] ; process the datasets in the map-array "people" and fill the result-array Global $iC = 0 For $mDataset In $aMapArray For $i = 0 To UBound($aAttrKeys) - 1 $aResultArray[$iC][$i] = $mDataset[$aAttrKeys[$i]] Next $iC += 1 Next ; present the result-array _ArrayDisplay($aResultArray, "People", "", 64, Default, _ArrayToString($aAttrKeys)) ; convert the array into json-syntax (you can overwrite the sample4.json with this) ConsoleWrite(_JSON_Generate($aResultArray) & @CRLF) $MyFile = @ScriptDir & "\sample5.json" _SetFile($MyFile, _JSON_Generate($aResultArray)) ;---------------------------------------------------------------------------------------- Func _SetFile($sFile, $sData, $iFormat = 266) ; FileWrite Alternative Local $hFileOpen = FileOpen($sFile, $iFormat) If $hFileOpen = -1 Then Return SetError(1, 0, "") EndIf Local $msg = FileWrite($hFileOpen, $sData) FileClose($hFileOpen) Return $msg EndFunc ;==>_SetFile ;---------------------------------------------------------------------------------------- I know that I know nothing Link to comment Share on other sites More sharing options...
AspirinJunkie Posted February 1, 2023 Author Share Posted February 1, 2023 7 minutes ago, ioa747 said: how put array back to .json? The result is different from sample4.json Of course it is different. You wanted to create an array from the data in sample4.json and overwrite the file with it (your words). Before there was no classic array in the sample4.json but an array with maps (=objects) as values. If you want to have it in the original structure again, then you should not transform it, of course, but leave it as it is. Or you make an array of maps out of your 2D array again. Anyway - tell us what exactly you want to do - what is the concrete goal? Link to comment Share on other sites More sharing options...
ioa747 Posted February 1, 2023 Share Posted February 1, 2023 Sorry for the poor explanation. What I want is to take the elements from the .json file into an array, modify them, and finally save them back to the .json file for next using, as I would do with an .ini file. Sorry for my poor English too Τhank you for your time and patience! I know that I know nothing Link to comment Share on other sites More sharing options...
AspirinJunkie Posted February 1, 2023 Author Share Posted February 1, 2023 50 minutes ago, ioa747 said: What I want is to take the elements from the .json file into an array, modify them, and finally save them back to the .json file for next using, as I would do with an .ini file. Is there any particular reason why you absolutely need to convert this to an array in between? You can edit the data directly without wildly converting: Spoiler #include <JSON.au3> ; read and parse the file into a AutoIt-structure: $sString = FileRead("sample4.json") $vData = _JSON_Parse($sString) ; change the name of all people: For $i = 0 To UBound($vData.people) - 1 _JSON_addChangeDelete($vData, "people[" & $i & "].firstName", "Jon") _JSON_addChangeDelete($vData, "people[" & $i & "].lastName", "Doe " & $i + 1) Next ; convert the data structure into json-syntax: ConsoleWrite(_JSON_Generate($vData) & @CRLF) Otherwise you would first have to convert the map array into a 2D array, then make your changes there and then convert the 2D array into a map array again. This is feasible and I have also a function for the reverse direction, but for me it seems artificially cumbersome: Spoiler expandcollapse popup#include <JSON.au3> #include <Array.au3> ; read and parse the file into a AutoIt-structure: Global $sString = FileRead("sample4.json") Global $vData = _JSON_Parse($sString) ; convert the map-array into a 2D-array Global $aHeader, $a2D = _td_MapArrayTo2DArray($vData.people, $aHeader) ; change some values inside the 2D-Array: For $i = 0 To UBound($a2D) - 1 $a2D[$i][0] = "Jon" $a2D[$i][1] = "Doe " & $i + 1 Next ; re-convert the 2D-array into a array of maps: $aMapArray = _td_ArrToMaps($a2D, $aHeader) ; overwrite the array inside the data structure: $vdata["people"] = $aMapArray ; convert the structure into json-syntax: ConsoleWrite(_JSON_Generate($vData) & @CRLF) ; #FUNCTION# ====================================================================================== ; Name ..........: _td_MapArrayTo2DArray() ; Description ...: converts a map-array (a 1D-array with maps as values) into 2 2D-array where the colums = keys ; Syntax ........: _td_MapArrayTo2DArray($aMapArray, ByRef $aHeader) ; Parameters ....: $aMapArray - the input map-array (1D-array with maps as values) ; $aHeader - variable which get's overwritten with the header values (=attribute names and column id) ; Return values .: Success: 2D-array ; Failure: Null ; @error = 1: aMapArray is not a array ; @error = 2: array-value is not a map (@extend = index of wrong value) ; Author ........: AspirinJunkie ; Last changed ..: 2022-09-26 ; Version .......: 0.5 ; ================================================================================================= Func _td_MapArrayTo2DArray($aMapArray, ByRef $aHeader) If UBound($aMapArray, 0) <> 1 Then Return SetError(1, UBound($aMapArray, 0) <> 1, Null) Local $mHeaders[], $aResult[1][1] Local $mMap, $sKey, $sAttribute Local $iRow = 0, $nAttribs = 0 For $mMap In $aMapArray If Not IsMap($mMap) Then Return SetError(2, $iRow, Null) For $sKey In MapKeys($mMap) If Not MapExists($mHeaders, $sKey) Then $mHeaders[$sKey] = $nAttribs $nAttribs += 1 If UBound($aResult, 2) < $nAttribs Then Redim $aResult[UBound($aResult, 1)][UBound($aResult, 2) * 2] EndIf If UBound($aResult, 1) <= $iRow Then Redim $aResult[UBound($aResult, 1) * 2][UBound($aResult, 2)] $aResult[$iRow][$mHeaders[$sKey]] = $mMap[$sKey] Next $iRow += 1 Next Redim $aResult[$iRow][$nAttribs] Dim $aHeader[UBound($mHeaders)] For $sAttribute In MapKeys($mHeaders) $aHeader[$mHeaders[$sAttribute]] = $sAttribute Next Return $aResult EndFunc ;==>_td_MapArrayTo2DArray ; #FUNCTION# ====================================================================================== ; Name ..........: _td_ArrToMaps() ; Description ...: converts a 2D-Array (rows=records, columns=values) into a set of key-value maps (every record = key-value map) ; Syntax ........: _Array2Maps(ByRef $aArray, [$vHeader = Default, [$bHeader = False]]) ; Parameters ....: $aArray - the input array ; $vHeader - Default: the header elements (attribute names) are taken from the first row ; String: Semicolon separated entrys for the header (=attribute names), must have at least as many elements as there are columns ; Array: the header values as an 1D-array (number of elements must be number of columns in $aArray) ; $bHeader - True: header exists in the first row, if $bHeader = String then this header is skipped and the $vHeader is taken ; False = no header row exists - $vHeader must be a string ; Return values .: Success: 1D-array with record-objects of type Map ; Failure: False ; @error = 1: no attribute names given because $vHeader = Default and $bHeader = False (no header in first row) ; @error = 2: $aArray is not a 2D-Array (@extended = num of dimensions of $aArray) ; @error = 3: error when processing $vHeader ; @error = 4: Less unique attribute names given than attributes themselves exists (n(header elements) < n(columns)) ; @error = 5: $vHeader is an array with wrong dimensions ; Author ........: AspirinJunkie ; Last changed ..: 2020-09-26 ; Version .......: 0.5 ; ================================================================================================= Func _td_ArrToMaps(ByRef $aArray, $vHeader = Default, $bHeader = True) If $vHeader = Default And $bHeader = False Then Return SetError(1, 0, False) If UBound($aArray, 0) <> 2 Then Return SetError(2, UBound($aArray), False) ; prepare the header values If $vHeader = Default Then ; header values from first row $bHeader = True ; field must be written somewhere Local $aHeader[UBound($aArray, 2)] For $iI = 0 To UBound($aHeader) - 1 $aHeader[$iI] = $aArray[0][$iI] Next ElseIf IsArray($vHeader) Then ; header from array If UBound($vHeader, 0) <> 1 Or UBound($vHeader, 1) <> UBound($aArray, 2) Then Return SetError(5, UBound($aArray, 2), False) Local $aHeader = $vHeader $bHeader = False Else ; header from string Local $aHeader = StringRegExp($vHeader, '\h*\K("(?>[^"]+|"")*"|[^";]++)\h*', 3) If @error Then Return SetError(3, @error, False) $bHeader = False EndIf ; process the header values For $iI = 0 To UBound($aHeader) - 1 If StringRegExp($aHeader[$iI], '"(?> [^"]+ | "" )*"') Then $aHeader[$iI] = StringReplace(StringRegExpReplace($aHeader[$iI], '(?s)^\h*"(.*)"\h*$', "\1"), '""', '"', 0, 1) Next $aHeader = _ArrayUnique($aHeader, 0, 0, 1, 0) If UBound($aHeader) < UBound($aArray, 2) Then Return SetError(4, UBound($aHeader), False) ; prepare return Array Local $aRet[UBound($aArray) - ($bHeader ? 1 : 0)] For $iI = ($bHeader ? 1 : 0) To UBound($aArray) - 1 Local $mMap[] For $iJ = 0 To UBound($aArray, 2) - 1 $mMap[$aHeader[$iJ]] = $aArray[$iI][$iJ] Next $aRet[$iI - ($bHeader ? 1 : 0)] = $mMap Next Return $aRet EndFunc ;==>_td_ArrToMaps 50 minutes ago, ioa747 said: Sorry for my poor English too I'm not a native speaker either - your English sounds sufficiently good to me. ioa747 1 Link to comment Share on other sites More sharing options...
TheDcoder Posted February 1, 2023 Share Posted February 1, 2023 Great work @AspirinJunkie! Wish we had something like this sooner I don't like the JSMN-based UDF because it embeds the library as a binary blob in code, so it's great to have a native AutoIt implementation. And implementing objects with maps is a nice touch too! On 1/18/2023 at 11:18 PM, AspirinJunkie said: To be honest it is still a big mystery to me how a parser written in pure AutoIt and executed by interpreter can be faster (even if it were only in a few cases) than one in machine code. I think it boils down to having the need to manually copy the parsed data from native data structures to AutoIt datatypes, a native AutoIt implementation would entirely side-step the issue as there's no need to convert parsed values EasyCodeIt - A cross-platform AutoIt implementation - Fund the development! (GitHub will double your donations for a limited time) DcodingTheWeb Forum - Follow for updates and Join for discussion Link to comment Share on other sites More sharing options...
AspirinJunkie Posted February 1, 2023 Author Share Posted February 1, 2023 (edited) 8 hours ago, TheDcoder said: Wish we had something like this sooner We had - I had already posted the UDF on autoit.de in 2017. Also in this forum I had posted the old version here. Now I have just made an extra thread for it so that there is a central point of contact for this. But thank you for your feedback! If it can be used effectively and helps some people, then it's already worth it. 9 hours ago, TheDcoder said: I think it boils down to having the need to manually copy the parsed data from native data structures to AutoIt datatypes, a native AutoIt implementation would entirely side-step the issue as there's no need to convert parsed values The basic approach of JSMN is that this lib does not parse the whole string, but it only sets breakpoints with the info where an element is located in the string. The final parsing of the elements happens only when the element is accessed. I had briefly skimmed the JSMN UDF and if I have interpreted it correctly (can also be wrong - have not examined it intensively), then each token is already parsed in the Json_Decode, no matter whether the element is used or not. This makes the performance advantage of jsmn invalid, but the result is pretty much the same as with my UDF - a nested structure of AutoIt data types (with the difference that dictionaries are used instead of maps for objects). So of course my UDF is not faster than the compiled jsmn-code but only faster than the processing around it (and also not in all cases). Edited February 2, 2023 by AspirinJunkie TheDcoder 1 Link to comment Share on other sites More sharing options...
paulpmeier Posted February 17, 2023 Share Posted February 17, 2023 Hi AspirinJunkie, Thank you for your Json-Udf. I use it for evaluating my Discogs queries. Attached is a recursive dump script for my maps. #include "Json.au3" #include <String.au3> Local $sJson = FileRead("..\Discogs-Abfragen\The Beatles - Lovely Rita.json") Local $mDiscogsQuery = _JSON_Parse($sJson) Global $iIndent = 0, $sIndent = " " ConsoleWrite("Map $mDiscogsQuery" & @CRLF) _DumpMap($mDiscogsQuery) Func _DumpMap(ByRef $mMap) For $Key In MapKeys($mMap) _WriteElement($Key, $mMap[$Key]) Next EndFunc Func _DumpArray(ByRef $aArray, $Key) For $i = 0 To UBound($aArray) - 1 _WriteElement($Key & "[" & $i & "]", $aArray[$i]) Next EndFunc Func _WriteElement($Key, ByRef $vValue) $iIndent += 1 Local $sInd = _StringRepeat($sIndent, $iIndent) Local $sType = VarGetType($vValue) If $sType = "String" Then $vValue = StringReplace($vValue, @LF, @CRLF & $sInd & $sIndent) ; Indent for multi-line strings If $sType = "Keyword" And IsKeyword($vValue) = 2 Then $vValue = "NULL" ; NULL ConsoleWrite($sInd & $Key & " (" & $sType & "): " & $vValue & @CRLF) If $sType = "Map" Then _DumpMap($vValue) If $sType = "Array" Then _DumpArray($vValue, $Key) $iIndent -= 1 EndFunc Paul Link to comment Share on other sites More sharing options...
mko Posted March 29, 2023 Share Posted March 29, 2023 Just a very, very little thing... I think description of this funktion is wrong -copy Past error ; #FUNCTION# ====================================================================================== ; Name ..........: _JSON_Generate ; Description ...: convert a JSON-formatted string into a nested structure of AutoIt-datatypes Must be like in the funktion list description... - converts a nested AutoIt data structure into a JSON structured string. AspirinJunkie and TheDcoder 2 Link to comment Share on other sites More sharing options...
AspirinJunkie Posted March 29, 2023 Author Share Posted March 29, 2023 I noticed this myself a while ago and have already adjusted it in my local master version. But for an extra upload it was then still too low for me. But sure - I have uploaded the silent update even. By the way, the parameter description in the function was also garbage. Such errors are typical for me, since I am not a native english speaker and therefore such things do not jump directly into my eye. TheDcoder 1 Link to comment Share on other sites More sharing options...
littlebigman Posted April 15, 2023 Share Posted April 15, 2023 Hello, I'm only getting started with JSON. Can this UDF handle GeoJSON, or should I look at the other UDFs? Here's a sample: { "type": "FeatureCollection", "timestamp": "2023-04-15T05:50:27Z", "features": [ { "type": "Feature", "properties": { "@id": "way/156798372", "name": "Location1" }, "geometry": { "type": "Point", "coordinates": [ 1.5978915, 43.9694576 ] }, "id": "way/156798372" }, { "type": "Feature", "properties": { "@id": "way/231992599", "name": "Location2" }, "geometry": { "type": "Point", "coordinates": [ 1.8692822, 44.0008908 ] }, "id": "way/231992599" } ] } Thank you. Link to comment Share on other sites More sharing options...
mccree Posted April 15, 2023 Share Posted April 15, 2023 (edited) 57 minutes ago, littlebigman said: Hello, I'm only getting started with JSON. Can this UDF handle GeoJSON, or should I look at the other UDFs? Here's a sample: { "type": "FeatureCollection", "timestamp": "2023-04-15T05:50:27Z", "features": [ { "type": "Feature", "properties": { "@id": "way/156798372", "name": "Location1" }, "geometry": { "type": "Point", "coordinates": [ 1.5978915, 43.9694576 ] }, "id": "way/156798372" }, { "type": "Feature", "properties": { "@id": "way/231992599", "name": "Location2" }, "geometry": { "type": "Point", "coordinates": [ 1.8692822, 44.0008908 ] }, "id": "way/231992599" } ] } Thank you. is that what you mean? #include <JSON.au3> $test = '{"type":"FeatureCollection","timestamp":"2023-04-15T05:50:27Z","features":[{"type":"Feature","properties":{"@id":"way/156798372","name":"Location1"},"geometry":{"type":"Point","coordinates":[1.5978915,43.9694576]},"id":"way/156798372"},{"type":"Feature","properties":{"@id":"way/231992599","name":"Location2"},"geometry":{"type":"Point","coordinates":[1.8692822,44.0008908]},"id":"way/231992599"}]}' $JSON = _JSON_Parse($test) $features = _JSON_Get($JSON, 'features') For $I = 0 To UBound($features) - 1 $coordinates = _JSON_Get($JSON, 'features.['&$I&'].geometry.coordinates') $name = _JSON_Get($JSON, 'features.['&$I&'].properties.name') For $c = 0 To UBound($coordinates) - 1 $coordinates = _JSON_Get($JSON, 'features.['&$I&'].geometry.coordinates.['&$c&']') MsgBox(0,$name,$coordinates) Next Next Edited April 15, 2023 by mccree littlebigman 1 Link to comment Share on other sites More sharing options...
TheDcoder Posted April 15, 2023 Share Posted April 15, 2023 1 hour ago, littlebigman said: Can this UDF handle GeoJSON As long it's valid JSON any parser worth its salt would be able to handle it, the internal structure doesn't matter. littlebigman 1 EasyCodeIt - A cross-platform AutoIt implementation - Fund the development! (GitHub will double your donations for a limited time) DcodingTheWeb Forum - Follow for updates and Join for discussion Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now