jj

ClipboardWatcher/ClipboardWatcher.vbproj

@@ -144,6 +144,10 @@
     <None Include="packages.config" />
   </ItemGroup>
   <ItemGroup>
+    <ProjectReference Include="..\Modules.Database\Database.vbproj">
+      <Project>{EAF0EA75-5FA7-485D-89C7-B2D843B03A96}</Project>
+      <Name>Database</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Modules.Language\Language.vbproj">
       <Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
       <Name>Language</Name>
@@ -156,6 +160,10 @@
       <Project>{81CAC44F-3711-4C8F-AE98-E02A7448782A}</Project>
       <Name>ZooFlow</Name>
     </ProjectReference>
+    <ProjectReference Include="..\Patterns\Patterns.vbproj">
+      <Project>{7C3B0C7E-59FE-4E1A-A655-27AE119F9444}</Project>
+      <Name>Patterns</Name>
+    </ProjectReference>
     <ProjectReference Include="..\Windows\Windows.vbproj">
       <Project>{5efaef9b-90b9-4f05-9f70-f79ad77fff86}</Project>
       <Name>Windows</Name>

ClipboardWatcher/ProfileFilter.vb

@@ -1,9 +1,12 @@
 Imports System.Text.RegularExpressions
 Imports System.Windows.Forms
+Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Language.Utils
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Windows
 Imports DigitalData.Modules.ZooFlow.Params
+Imports DigitalData.Modules.ZooFlow.State
+Imports Patterns
 
 Public Class ProfileFilter
     Private _ProfileMatch As ProfileMatch
@@ -215,7 +218,7 @@ Public Class ProfileFilter
                 Next
 
                 If oFound Then
-                    oFilteredProfiles.Add(oProfile)
+                    oControls.Add(oControl)
                 End If
 
                 Dim oParent = _ProfileMatch.FindNodeByTag(_TreeView.Nodes, oControl.WindowId & "-WINDOW")
@@ -235,58 +238,76 @@ Public Class ProfileFilter
         Return oFilteredProfiles
     End Function
 
-    'Public Function FilterProfilesBySearchResults(Profiles As List(Of ProfileData), DataSearchTable As DataTable, DocSearchTable As DataTable) As List(Of ProfileData)
-    '    Dim oProfiles As New List(Of ProfileData)
+    Public Function FilterProfilesBySearchResults(Profiles As List(Of ProfileData), Database As MSSQLServer, User As UserState) As List(Of ProfileData)
+        Dim oProfiles As New List(Of ProfileData)
 
-    '    For Each oProfile In Profiles
-    '        Dim oResultDocs As Integer = 0
-    '        Dim oResultData As Integer = 0
+        For Each oProfile In Profiles
+            Dim oResultDocs As Integer = 0
+            Dim oResultData As Integer = 0
 
-    '        Dim oPatterns As New ClassPatterns(_LogConfig)
-    '        Dim oDataSearches As DataTable = DataSearchTable
-    '        Dim oDocSearches As DataTable = DocSearchTable
+            Dim oPatterns As New ClassPatterns(_LogConfig)
 
-    '        For Each oRow As DataRow In oDataSearches.Rows
-    '            Dim oCountCommand = String.Empty
-    '            Try
-    '                oCountCommand = NotNull(oRow.Item("COUNT_COMMAND"), String.Empty)
+            Dim oDataSearches As DataTable
+            Dim oDocSearches As DataTable
 
-    '                If oCountCommand = String.Empty Then
-    '                    Continue For
-    '                End If
+            Try
+                oDataSearches = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
+            Catch ex As Exception
+                _Logger.Error(ex)
+                Continue For
+            End Try
 
-    '                oCountCommand = oPatterns.ReplaceAllValues(oCountCommand, My.Application.User)
-    '                oResultData += NotNull(Of Integer)(My.Database.GetScalarValue(oCountCommand), 0)
-    '            Catch ex As Exception
-    '                _Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
-    '            End Try
-    '        Next
+            Try
+                oDocSearches = Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
+            Catch ex As Exception
+                _Logger.Error(ex)
+                Continue For
+            End Try
 
-    '        For Each oRow As DataRow In oDocSearches.Rows
-    '            Dim oCountCommand = String.Empty
-    '            Try
-    '                oCountCommand = NotNull(oRow.Item("COUNT_COMMAND"), String.Empty)
+            For Each oRow As DataRow In oDataSearches.Rows
+                Dim oCountCommand = String.Empty
+                Try
+                    oCountCommand = NotNull(oRow.Item("COUNT_COMMAND"), String.Empty)
 
-    '                If oCountCommand = String.Empty Then
-    '                    Continue For
-    '                End If
+                    If oCountCommand = String.Empty Then
+                        Continue For
+                    End If
 
-    '                oCountCommand = oPatterns.ReplaceAllValues(oCountCommand, My.Application.User)
-    '                oResultDocs += NotNull(Of Integer)(My.Database.GetScalarValue(oCountCommand), 0)
-    '            Catch ex As Exception
-    '                _Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
-    '            End Try
-    '        Next
+                    oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
+                    oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, User)
 
-    '        If oResultData > 0 Or oResultDocs > 0 Then
-    '            oProfile.CountData = oResultData
-    '            oProfile.CountDocs = oResultDocs
-    '            oProfiles.Add(oProfile)
-    '        End If
-    '    Next
+                    oResultData += NotNull(Of Integer)(Database.GetScalarValue(oCountCommand), 0)
+                Catch ex As Exception
+                    _Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
+                End Try
+            Next
 
-    '    Return oProfiles
-    'End Function
+            For Each oRow As DataRow In oDocSearches.Rows
+                Dim oCountCommand = String.Empty
+                Try
+                    oCountCommand = NotNull(oRow.Item("COUNT_COMMAND"), String.Empty)
+
+                    If oCountCommand = String.Empty Then
+                        Continue For
+                    End If
+
+                    oCountCommand = oPatterns.ReplaceInternalValues(oCountCommand)
+                    oCountCommand = oPatterns.ReplaceUserValues(oCountCommand, User)
+                    oResultDocs += NotNull(Of Integer)(Database.GetScalarValue(oCountCommand), 0)
+                Catch ex As Exception
+                    _Logger.Warn("Invalid SQL Query for Counting Data in Profile {0}: {1}", oProfile.Guid, oCountCommand)
+                End Try
+            Next
+
+            If oResultData > 0 Or oResultDocs > 0 Then
+                oProfile.CountData = oResultData
+                oProfile.CountDocs = oResultDocs
+                oProfiles.Add(oProfile)
+            End If
+        Next
+
+        Return oProfiles
+    End Function
 
     Public Function FilterWindowsByWindowClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
         Dim oProfiles As New List(Of ProfileData)

ClipboardWatcher/frmTreeView.Designer.vb

@@ -22,7 +22,9 @@ Partial Class frmTreeView
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTreeView))
         Me.TreeView1 = New System.Windows.Forms.TreeView()
+        Me.ImageList1 = New System.Windows.Forms.ImageList()
         Me.SuspendLayout()
         '
         'TreeView1
@@ -33,6 +35,16 @@ Partial Class frmTreeView
         Me.TreeView1.Size = New System.Drawing.Size(800, 450)
         Me.TreeView1.TabIndex = 0
         '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "award_star_gold_1.png")
+        Me.ImageList1.Images.SetKeyName(1, "application_xp.png")
+        Me.ImageList1.Images.SetKeyName(2, "application_form.png")
+        Me.ImageList1.Images.SetKeyName(3, "brick.png")
+        Me.ImageList1.Images.SetKeyName(4, "application_view_tile.png")
+        '
         'frmTreeView
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -46,4 +58,5 @@ Partial Class frmTreeView
     End Sub
 
     Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
+    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
 End Class

ClipboardWatcher/frmTreeView.resx

@@ -117,4 +117,65 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
+        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
+        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADo
+        CwAAAk1TRnQBSQFMAgEBBQEAAQgBAAEIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
+        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
+        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
+        AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
+        AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
+        AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
+        ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
+        AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
+        AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
+        AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
+        AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
+        AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
+        AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
+        AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
+        AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
+        ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
+        Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
+        AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
+        AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
+        AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
+        ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
+        Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
+        AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
+        AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
+        AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
+        AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
+        AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
+        AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/4EAAQcFtAPPBa4BBzEA
+        AbQN/wGuMQABtAH/A5cB/wN1Af8DegH/Aa4xAAG0Af8BlwGYAZcB/wN1Af8BegGgAXoB/wGuMQABtAH/
+        A5cB/wN1Af8DegH/Ac8xAAG0Df8BzzEAAbQB/wPcAf8DlwH/A9wB/wHPMQABtAH/A9wB/wGXAZgBlwH/
+        AdwBCQHcAf8BtDEAAbQB/wPcAf8DlwH/A9wB/wG0MQABtA3/AbQxAA+0MQABtQ0JAbQxAAHxAbsLtAG1
+        AfF0AAEaAVIB8wQAAf8BmQFSNgAB8wFZAVIBmQH/AQAB8wJSAXQDAAG8BrQDzwWuAQcWAAHzAgcB8wkA
+        Af8BWQGaAVkBUgGZAVIBegFYARoDAAG0AbwE8AS8BAcB7wGuAQcFtAPPBa4BBwUAAfQBvAGSAbwBBwH3
+        AQcB9AgAA5oEegFSAfQDAAG0Dv8BrgG0DfIBrgMAAf8B8QH3AQcC8wK8Ae8BkgHwAf8GAAEaAXoBmgR6
+        AVIEAAG0Af8M9AH/Aa4BtAHyAfMD8gEHBv8B8gGuAQAB/wHyAe8BBwLzAfEB8AIHAbwBBwLvAfIB/wMA
+        Af8CegGaBHoBUgHzAwABtAP/CvQB/wGuAbQB8wO0AfMBBwb/AfMBrgEAAgcB8gH0AfIC8QHwBAcBvAEH
+        AfcBBwIAAfYBWQF6ApoFegErARoCAAG0Bf8I9AH/Ac8BtAXzBwcB8wHPAQAB7wL0AvIC8QHwBgcBvAGS
+        AQABGwEyAXoBwwOaA3oCmgFSAXkB/wG0B/8G9AH/Ac8BtA3zAc8BAAHvAvQC8wHyAvEGBwG8AfcBAAVZ
+        AXoCmgF6BFkBMQEbAbQJ/wT0Af8BzwG0BfQBBwb/AfQBzwEAAe8C9AHzAfIBBwG8AvABvAHvAwcBvAH3
+        AQAB/wH1AvYBmgFTApoBWQGaA/QB9gEAAbQL/wL0Af8CtAH0A7QB9AEHBv8B9AG0AQAB7wH0AfMC8QEH
+        AfEC/wHxAQcB8AIHAbwB9wQAAb0B4wFTAXoBmgEyARcBvQQAAbQO/wK0BfQHBwH0AbQBAAHvAfECvAHw
+        Ae8E/wHvAfABvAIHAZIDAAG9AeMBFgHjATgBegFTARYBFwG9AwABtA7wArQN9AG0AQAB8AHvAfAC/wEH
+        Ae8C9wHvAQcC/wHwAe8BvAMAAeMBFgHjAUcBUwFZAUcB4wEWAUcDAB+0AgAB7wP/AfIB7wLwAe8B8gP/
+        Ae8EAAHjAZQCRwFNAVMCRwEWAUcDAAG1ARkHCQHuAQkB7gEJAU0BCQG0AbUNCQG0AgAB8gEHAvcB7wHw
+        Av8B8AHvAvcBBwHyBAAB4wGUBkcBFgFHAwABCQG7DLQBtQG7AfEBuwu0AbUB8QUAAf8B7wT/Ae8B/wcA
+        AeMBlAZHARYBFygAAfIBBwL3AQcB8gUAAUIBTQE+BwABPgMAASgDAAFAAwABIAMAAQEBAAEBBgABARYA
+        A/8BAAL/BgAC/wcAAQEHAAEBBwABAQcAAQEHAAEBBwABAQcAAQEHAAEBBwABAQcAAQEHAAEBBwABAQcA
+        AQEGAAL/BgAB4wHHBv8B4AGHAgAC/wH8AT8B4AEHAwABAQHwAQ8B8AEHAwABAQHAAQMB8AEPAwABAQIA
+        AeABBwMAAQECAAHAAQMDAAEBAgABgAQAAQECAAGABAABAQIAAYABAQMAAQECAAHwAQ8DAAEBAgAB4AEH
+        AwABAQIAAeABBwMAAQEBgAEBAeABBwMAAQEBgAEBAeABBwMAAQEB8AEPAeABBwT/AfgBHws=
+</value>
+  </data>
 </root>