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/Clipboard.vb
+++ b/Modules.Patterns/Modules/Clipboard.vb
@@ -0,0 +1,51 @@
+Imports DigitalData.Modules.Logging
+
+Namespace [PatternModule]
+    Public Class Clipboard
+        Inherits BaseModule
+        Implements IModule
+
+        Public Const CLIP_VALUE_BOARD As String = "BOARD"
+
+        Public Const CLIPBOARD_VALUE_DE = "@Zwischenablage"
+        Public Const CLIPBOARD_VALUE_EN = "@Clipboard"
+
+        Public Property PatternIdentifier As String = "CLIP" Implements IModule.PatternIdentifier
+
+        Public Property IsComplex As Boolean = False 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
+            Dim oClipboardContents = pReplaceMap.Item(CLIP_VALUE_BOARD)
+
+            Try
+                ' LEGACY: Replace Clipboard Contents
+                oResult = oResult.Replace(CLIPBOARD_VALUE_DE.ToLower, oClipboardContents)
+                oResult = oResult.Replace(CLIPBOARD_VALUE_DE.ToUpper, oClipboardContents)
+                oResult = oResult.Replace(CLIPBOARD_VALUE_DE, oClipboardContents)
+
+                oResult = oResult.Replace(CLIPBOARD_VALUE_EN.ToLower, oClipboardContents)
+                oResult = oResult.Replace(CLIPBOARD_VALUE_EN.ToUpper, oClipboardContents)
+                oResult = oResult.Replace(CLIPBOARD_VALUE_EN, oClipboardContents)
+
+                ' Replace Clipboard Contents
+                While BaseFunctions.ContainsPatternAndValue(oResult, PatternIdentifier, CLIP_VALUE_BOARD)
+                    oResult = BaseFunctions.ReplacePattern(oResult, PatternIdentifier, oClipboardContents)
+                    BaseFunctions.IncrementCounterOrThrow(oCounter)
+                End While
+
+                Logger.Debug("Input after Clipboard.Replace: [{0}]", pInput)
+            Catch ex As Exception
+                Logger.Error(ex)
+
+            End Try
+
+            Return oResult
+        End Function
+    End Class
+End Namespace