From fb731e704ab0219624959e57041068d2cfe99ccb Mon Sep 17 00:00:00 2001 From: Fabrice Lambert Date: Mon, 20 Dec 2021 01:11:48 +0100 Subject: [PATCH 1/3] Update JsonConverter.bas Switching Scripting.Dictionary to late binding. --- JsonConverter.bas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/JsonConverter.bas b/JsonConverter.bas index 876b865..f1fe530 100644 --- a/JsonConverter.bas +++ b/JsonConverter.bas @@ -458,11 +458,11 @@ End Function ' Private Functions ' ============================================= ' -Private Function json_ParseObject(json_String As String, ByRef json_Index As Long) As Dictionary +Private Function json_ParseObject(json_String As String, ByRef json_Index As Long) As Object Dim json_Key As String Dim json_NextChar As String - Set json_ParseObject = New Dictionary + Set json_ParseObject = CreateObject("Scripting.Dictionary") json_SkipSpaces json_String, json_Index If VBA.Mid$(json_String, json_Index, 1) <> "{" Then Err.Raise 10001, "JSONConverter", json_ParseErrorMessage(json_String, json_Index, "Expecting '{'") From b37c533b29ad9c6036d181b6e2864ca937f87333 Mon Sep 17 00:00:00 2001 From: Fabrice Lambert Date: Mon, 20 Dec 2021 01:22:46 +0100 Subject: [PATCH 2/3] Update JsonConverter.bas Mac support --- JsonConverter.bas | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/JsonConverter.bas b/JsonConverter.bas index f1fe530..e8bde5c 100644 --- a/JsonConverter.bas +++ b/JsonConverter.bas @@ -462,7 +462,12 @@ Private Function json_ParseObject(json_String As String, ByRef json_Index As Lon Dim json_Key As String Dim json_NextChar As String +#If Mac Then + Set json_ParseObject = New Disctionary +#else Set json_ParseObject = CreateObject("Scripting.Dictionary") +#end if + json_SkipSpaces json_String, json_Index If VBA.Mid$(json_String, json_Index, 1) <> "{" Then Err.Raise 10001, "JSONConverter", json_ParseErrorMessage(json_String, json_Index, "Expecting '{'") From 28044b05b77324faec2345461aaca2317b12065e Mon Sep 17 00:00:00 2001 From: Fabrice Lambert Date: Mon, 20 Dec 2021 01:28:04 +0100 Subject: [PATCH 3/3] Update JsonConverter.bas Typos --- JsonConverter.bas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/JsonConverter.bas b/JsonConverter.bas index e8bde5c..3249e0c 100644 --- a/JsonConverter.bas +++ b/JsonConverter.bas @@ -463,7 +463,7 @@ Private Function json_ParseObject(json_String As String, ByRef json_Index As Lon Dim json_NextChar As String #If Mac Then - Set json_ParseObject = New Disctionary + Set json_ParseObject = New Dictionary #else Set json_ParseObject = CreateObject("Scripting.Dictionary") #end if