Escape special characters in JSON key names

If a key name includes a special character like a double quote, this should be escaped before outputting as JSON. Fixes #259
joyfullservice · Sep 23, 2021 · 91a49bb · 91a49bb
1 parent abdf5a0
commit 91a49bb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Version Control.accda.src/modules/modJsonConverter.bas b/Version Control.accda.src/modules/modJsonConverter.bas
@@ -392,9 +392,9 @@ Public Function ConvertToJson(ByVal JsonValue As Variant, Optional ByVal Whitesp
                     End If
 
                     If json_PrettyPrint Then
-                        json_Converted = vbNewLine & json_Indentation & """" & json_Key & """: " & json_Converted
+                        json_Converted = vbNewLine & json_Indentation & """" & json_Encode(json_Key) & """: " & json_Converted
                     Else
-                        json_Converted = """" & json_Key & """:" & json_Converted
+                        json_Converted = """" & json_Encode(json_Key) & """:" & json_Converted
                     End If
 
                     json_BufferAppend json_Buffer, json_Converted, json_BufferPosition, json_BufferLength