Convert Table Data Macro to UTF-8

Table data macro export files need to be converted from UTF-16 LE to UTF-8 before parsing the XML contents. #324, #325
joyfullservice · May 2, 2022 · 27a99c6 · 27a99c6
1 parent f30e251
commit 27a99c6
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/Version Control.accda.src/dbs-properties.json b/Version Control.accda.src/dbs-properties.json
@@ -41,7 +41,7 @@
       "Type": 10
     },
     "AppVersion": {
-      "Value": "3.4.21",
+      "Value": "3.4.22",
       "Type": 10
     },
     "Auto Compact": {

diff --git a/Version Control.accda.src/modules/modSanitize.bas b/Version Control.accda.src/modules/modSanitize.bas
@@ -491,7 +491,11 @@ Public Sub SanitizeXML(strPath As String)
     Set rxLine = New VBScript_RegExp_55.RegExp
 
     ' Read text from file
-    strFile = ReadFile(strPath)
+    If HasUcs2Bom(strPath) Then
+        strFile = ReadFile(strPath, "Unicode")
+    Else
+        strFile = ReadFile(strPath)
+    End If
     Perf.OperationStart "Sanitize XML"
     curStart = Perf.MicroTimer
 

diff --git a/Version Control.accda.src/vcs-options.json b/Version Control.accda.src/vcs-options.json
@@ -1,6 +1,6 @@
 {
   "Info": {
-    "AddinVersion": "3.4.21",
+    "AddinVersion": "3.4.22",
     "AccessVersion": "14.0 32-bit"
   },
   "Options": {