MS Globix3

GUIs.ZooFlow/ModuleHelpers.vb

@@ -0,0 +1,60 @@
+Imports System.Text
+Imports System.Text.RegularExpressions
+
+Module ModuleHelpers
+    ''' <summary>
+    ''' Überprüft einen Wert auf verschiedene Arten von "Null" und gibt einen Standard-Wert zurück, wenn der Wert "Null" ist.
+    ''' </summary>
+    ''' <param name="value">Der zu überprüfende Wert</param>
+    ''' <param name="defaultValue">Der Standard Wert</param>
+    ''' <returns>value oder wenn dieser "Null" ist, defaultValue</returns>
+    Public Function NotNull(Of T)(ByVal value As T, ByVal defaultValue As T) As T
+        If IsNothing(value) OrElse String.IsNullOrEmpty(value.ToString) OrElse IsDBNull(value) Then
+            Return defaultValue
+        Else
+            Return value
+        End If
+    End Function
+    Public Function encode_utf8(ByVal str As String) As String
+        Try
+            'supply True as the construction parameter to indicate
+            'that you wanted the class to emit BOM (Byte Order Mark)
+            'NOTE: this BOM value is the indicator of a UTF-8 string
+            Dim utf8Encoding As New System.Text.UTF8Encoding(True)
+            Dim encodedString() As Byte
+            encodedString = utf8Encoding.GetBytes(str)
+            Return utf8Encoding.GetString(encodedString)
+        Catch ex As Exception
+            MsgBox("Unexpected error in encode_utf8: " & ex.Message, MsgBoxStyle.Critical)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function StringAsUtf8Bytes(ByVal strData As String) As Byte()
+        Try
+            Dim bytes() As Byte
+            ' get unicode string as bytes
+            bytes = Encoding.UTF8.GetBytes(strData)
+            ' return byte data
+            Return bytes
+        Catch ex As Exception
+            MsgBox("Unexpected error in StringAsUtf8Bytes: " & ex.Message, MsgBoxStyle.Critical)
+            Return Nothing
+        End Try
+
+    End Function
+    Public Function CheckSpecialSigns(ByVal str As String)
+        Try
+            Dim pattern As String = "[!""#$%&'()*+,\-./:;<=>?@[\\\]^_`{|}~\s]"
+            Dim matches As MatchCollection = Regex.Matches(str, pattern)
+            Return matches.Count
+        Catch ex As Exception
+            MsgBox("Unexpected error in CheckSpecialSigns: " & ex.Message, MsgBoxStyle.Critical)
+            Return 0
+        End Try
+    End Function
+    Public Sub Refresh_RegexTable()
+        My.Application.BASE_DATA_DT_REGEX = My.Database.GetDatatable("SELECT * FROM TBGI_FUNCTION_REGEX")
+    End Sub
+
+End Module