Patterns: WIP Patterns version 2

2021-10-13 10:36:10 +02:00
parent 6b8d376656
commit 1c3e0b175b
11 changed files with 539 additions and 84 deletions
--- a/Modules.Patterns/Modules/Internal.vb
+++ b/Modules.Patterns/Modules/Internal.vb
@@ -0,0 +1,57 @@
+Imports DigitalData.Modules.Logging
+
+Namespace [PatternModule]
+    ''' <summary>
+    ''' Simple patterns that only rely on .NET functions
+    ''' </summary>
+    Public Class Internal
+        Inherits BaseModule
+        Implements IModule
+
+        Public Const INT_VALUE_USERNAME = "USERNAME"
+        Public Const INT_VALUE_MACHINE = "MACHINE"
+        Public Const INT_VALUE_DOMAIN = "DOMAIN"
+        Public Const INT_VALUE_DATE = "DATE"
+
+        Public Property PatternIdentifier As String = "INT" Implements IModule.PatternIdentifier
+
+        Public Property IsComplex As Boolean = False Implements IModule.IsComplex
+
+        Public Sub New(pLogConfig As LogConfig, pBaseFunctions As BaseFunctions)
+            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
+
+            ' Replace Username(s)
+            While BaseFunctions.ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_USERNAME)
+                oResult = BaseFunctions.ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(INT_VALUE_USERNAME))
+                BaseFunctions.IncrementCounterOrThrow(oCounter)
+            End While
+
+            ' Replace Machinename(s)
+            While BaseFunctions.ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_MACHINE)
+                oResult = BaseFunctions.ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(INT_VALUE_MACHINE))
+                BaseFunctions.IncrementCounterOrThrow(oCounter)
+            End While
+
+
+            ' Replace Domainname(s)
+            While BaseFunctions.ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_DOMAIN)
+                oResult = BaseFunctions.ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(INT_VALUE_DOMAIN))
+                BaseFunctions.IncrementCounterOrThrow(oCounter)
+            End While
+
+
+            ' Replace CurrentDate(s)
+            While BaseFunctions.ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_DATE)
+                oResult = BaseFunctions.ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(INT_VALUE_DATE))
+                BaseFunctions.IncrementCounterOrThrow(oCounter)
+            End While
+
+            Return oResult
+        End Function
+    End Class
+End Namespace