zooflow

ZooFlow/ClassProfileFilter.vb

@@ -217,7 +217,6 @@ Public Class ClassProfileFilter
 
         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)
 
@@ -272,7 +271,6 @@ Public Class ClassProfileFilter
 
         Return oProfiles
     End Function
-
     Public Function FilterProfilesByFocusedControl(Profiles As List(Of ProfileData), ClipboardContents As String, ControlFocusresult As String) As List(Of ProfileData)
         Dim oWindow As Window.WindowInfo
         Dim oFocusedControl As Window.WindowInfo
@@ -396,6 +394,59 @@ Public Class ClassProfileFilter
 
         Return oFilteredProfiles
     End Function
+    Public Function FilterProfilesBySearchResults(Profiles As List(Of ProfileData)) 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
+
+            Dim oPatterns As New ClassPatterns(My.LogConfig)
+            Dim oDataSearches As DataTable = My.Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
+            Dim oDocSearches As DataTable = My.Database.GetDatatable($"SELECT COUNT_COMMAND FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID = {oProfile.Guid}")
+
+            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
+
+                    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
+
+            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.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
+
+            If oResultData > 0 Or oResultDocs > 0 Then
+                oProfile.CountData = oResultData
+                oProfile.CountDocs = oResultDocs
+                oProfiles.Add(oProfile)
+            End If
+        Next
+
+        Return oProfiles
+    End Function
+
     Private Function Node_Get_Lowest_Node(NodeTag As String) As TreeNode
         Dim oExit = False
         Dim oParentNode As TreeNode
@@ -445,7 +496,6 @@ Public Class ClassProfileFilter
 
         Return oList
     End Function
-
     Private Function TransformControls(ProfileId As Integer, ControlDatatable As DataTable) As List(Of ProfileData.ControlData)
         Dim oControlList As New List(Of ProfileData.ControlData)
 
@@ -492,4 +542,6 @@ Public Class ClassProfileFilter
 
         Return oWindowList
     End Function
+
+
 End Class