Patterns: WIP Patterns2

2021-11-01 13:28:56 +01:00
parent d83c0125a4
commit dcf5bbe21c
8 changed files with 205 additions and 139 deletions
--- a/Modules.Patterns/Modules/User.vb
+++ b/Modules.Patterns/Modules/User.vb
@@ -0,0 +1,61 @@
+Imports DigitalData.Modules.Logging
+
+Namespace [PatternModule]
+    Public Class User
+        Inherits BaseModule
+        Implements IModule
+
+        Public Const USER_VALUE_PRENAME = "PRENAME"
+        Public Const USER_VALUE_SURNAME = "SURNAME"
+        Public Const USER_VALUE_EMAIL = "EMAIL"
+        Public Const USER_VALUE_SHORTNAME = "SHORTNAME"
+        Public Const USER_VALUE_LANGUAGE = "LANGUAGE"
+        Public Const USER_VALUE_USER_ID = "USER_ID"
+        Public Const USER_VALUE_USER_NAME = "USER_NAME"
+
+        Public Property PatternIdentifier As String = "USER" Implements IModule.PatternIdentifier
+
+        Public Property IsComplex As Boolean = True Implements IModule.IsComplex
+
+        Public Sub New(pLogConfig As LogConfig)
+            MyBase.New(pLogConfig)
+        End Sub
+
+        Public Function Replace(pInput As String, pReplaceMap As Dictionary(Of String, Object)) As String Implements IModule.Replace
+            Dim oResult = pInput
+            Dim oCounter = 0
+
+            While ContainsPatternAndValue(oResult, PatternIdentifier, USER_VALUE_PRENAME)
+                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(USER_VALUE_PRENAME))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            While ContainsPatternAndValue(oResult, PatternIdentifier, USER_VALUE_SURNAME)
+                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(USER_VALUE_SURNAME))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            While ContainsPatternAndValue(oResult, PatternIdentifier, USER_VALUE_EMAIL)
+                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(USER_VALUE_EMAIL))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            While ContainsPatternAndValue(oResult, PatternIdentifier, USER_VALUE_SHORTNAME)
+                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(USER_VALUE_SHORTNAME))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            While ContainsPatternAndValue(oResult, PatternIdentifier, USER_VALUE_LANGUAGE)
+                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(USER_VALUE_LANGUAGE))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            While ContainsPatternAndValue(oResult, PatternIdentifier, USER_VALUE_USER_ID)
+                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(USER_VALUE_USER_ID))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            Return oResult
+        End Function
+    End Class
+End Namespace