New StringHasUnicode closes joyfullservice#186

Version Control.accda.src/modules/modEncoding.bas

@@ -1,4 +1,4 @@
-'---------------------------------------------------------------------------------------
+'---------------------------------------------------------------------------------------
 ' Module    : modEncoding
 ' Author    : Adam Waller
 ' Date      : 12/4/2020
@@ -531,16 +531,7 @@ End Sub
 '---------------------------------------------------------------------------------------
 '
 Public Function StringHasUnicode(strText As String) As Boolean
+
+    StringHasUnicode = (StrConv(strText, vbUnicode) = strText)
 
-    Dim reg As VBScript_RegExp_55.RegExp
-
-    Perf.OperationStart "Unicode Check"
-    Set reg = New VBScript_RegExp_55.RegExp
-    With reg
-        ' Include extended ASCII characters here.
-        .Pattern = "[^\u0000-\u007F]"
-        StringHasUnicode = .Test(strText)
-    End With
-    Perf.OperationEnd
-
-End Function
+End Function

Version Control.accda.src/modules/modUnitTesting.bas

@@ -1,4 +1,4 @@
-Option Compare Database
+Option Compare Database
 Option Explicit
 Option Private Module
 
@@ -39,7 +39,7 @@ Public Sub TestUCS2toUTF8RoundTrip()
 
     'Arrange:
     Dim queryName As String
-    queryName = "Temp_Test_Query_Delete_Me_Æ_ø_Å"
+    queryName = "Temp_Test_Query_Delete_Me_Æ_ø_Å"
     Dim tempFileName As String
     tempFileName = GetTempFile()
 
@@ -53,7 +53,7 @@ Public Sub TestUCS2toUTF8RoundTrip()
     UTFtoUCS = tempFileName & "UTF-8toUCS-2"
 
     ' Use temporary query to export example file
-    CurrentDb.CreateQueryDef queryName, "SELECT * FROM TEST WHERE TESTING='ÆØÅ'"
+    CurrentDb.CreateQueryDef queryName, "SELECT * FROM TEST WHERE TESTING='ÆØÅ'"
     Application.SaveAsText acQuery, queryName, tempFileName
     CurrentDb.QueryDefs.Delete queryName
 
@@ -106,7 +106,7 @@ Private Sub TestParseSpecialCharsInJson()
 
     Set FSO = CreateObject("Scripting.FileSystemObject")
     With FSO.CreateTextFile(strPath, True)
-        .WriteLine "{""Test"":""ÆØÅ are special?""}"
+        .WriteLine "{""Test"":""ÆØÅ are special?""}"
         .Close
     End With
 
@@ -130,6 +130,13 @@ TestFail:
     Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
 End Sub
 
+'@TestMethod("TextConversion")
+Private Sub TestStringHasUnicode()
+    Assert.IsTrue StringHasUnicode("aß?de?????µ???p?st?f?")
+    Assert.IsFalse StringHasUnicode("'——————————————————————————————————————————————————————————————————————————————————————————")
+End Sub
+
+
 
 '@TestMethod("Sorting")
 Private Sub TestSortDictionaryByKeys()
@@ -213,4 +220,4 @@ TestExit:
     Exit Sub
 TestFail:
     Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
-End Sub
+End Sub