EDMIService: sEcond working version

Service.EDMIService/IDB/Helpers.vb

@@ -3,18 +3,45 @@ Imports DigitalData.Modules.Language
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.EDMI.API.Client
 Imports System.Data.SqlClient
+Imports System.IO
+Imports DigitalData.Modules.ZooFlow.State
+Imports DigitalData.Modules.Patterns
+Imports DigitalData.Services.EDMIService.Methods
 
 Namespace IDB
     Public Class Helpers
         Inherits BaseClass
 
-        Private Database As MSSQLServer
+        Private ReadOnly Patterns As Patterns2
+        Private ReadOnly Database As MSSQLServer
 
         Public Sub New(pLogConfig As LogConfig, pMSSQLServer As MSSQLServer)
             MyBase.New(pLogConfig)
+            Patterns = New Patterns2(pLogConfig)
             Database = pMSSQLServer
         End Sub
 
+        Public Function GetPlaceholderValue(pValue As String,
+                                            pFileInfo As FileInfo,
+                                            pUserState As UserState,
+                                            pUserAttributes As Dictionary(Of String, List(Of String)),
+                                            pAutoAttributes As Dictionary(Of String, List(Of String))) As String
+            Dim oResult As String = pValue
+
+            oResult = Patterns.ReplaceInternalValues(oResult)
+            oResult = Patterns.ReplaceFileValues(oResult, pFileInfo)
+            oResult = Patterns.ReplaceUserValues(oResult, pUserState)
+            oResult = Patterns.ReplaceGlobixValues(oResult, pUserAttributes, pAutoAttributes)
+
+            Return oResult
+        End Function
+
+        Public Function UserAttributesToDictionary(pUserAttributes As List(Of UserAttributeValue)) As Dictionary(Of String, List(Of String))
+            Return pUserAttributes.ToDictionary(
+               Function(attr) attr.AttributeName,
+               Function(attr) attr.AttributeValues)
+        End Function
+
         Public Function TestObjectIdExists(pObjectId As Long, Optional ByRef IsDeleted As Boolean = False, Optional ByRef IsActive As Boolean = False) As Boolean
             Try
                 Dim oSQL As String = $"SELECT IDB_OBJ_ID, ACTIVE, DELETED FROM TBIDB_OBJECT WHERE IDB_OBJ_ID = {pObjectId}"