Version 1.1.0.0

GUIs.Monitor/GridLoader.vb

@@ -138,9 +138,9 @@ Public Class GridLoader
 
     Private Function GetIconEdit() As RepositoryItemImageComboBox
         Dim oIconEdit As New RepositoryItemImageComboBox With {
-                .SmallImages = SvgImageCollection,
+            .SmallImages = SvgImageCollection,
-                .GlyphAlignment = HorzAlignment.Near
+            .GlyphAlignment = HorzAlignment.Near
-            }
+        }
         oIconEdit.Buttons.Clear()
         oIconEdit.Items.AddRange(New List(Of ImageComboBoxItem) From {
             New ImageComboBoxItem("Email", "MAIL", NodeImage.Mail),

GUIs.Monitor/My Project/AssemblyInfo.vb

@@ -11,7 +11,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")>
 <Assembly: AssemblyProduct("Monitor")>
 <Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("1.0.0.2")>
+<Assembly: AssemblyTrademark("1.1.0.0")>
 <Assembly: AssemblyCulture("")>
 
 ' Setting ComVisible to false makes the types in this assembly not visible 
@@ -32,5 +32,5 @@ Imports System.Runtime.InteropServices
 ' You can specify all the values or you can default the Build and Revision Numbers 
 ' by using the '*' as shown below:
 ' [assembly: AssemblyVersion("1.0.*")]
-<Assembly: AssemblyVersion("1.0.0.2")>
+<Assembly: AssemblyVersion("1.1.0.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>

GUIs.Monitor/frmMonitor.vb

@@ -1,4 +1,5 @@
 Imports System.ComponentModel
+Imports System.Text.RegularExpressions
 Imports DevExpress.Utils
 Imports DevExpress.XtraEditors
 Imports DevExpress.XtraEditors.Controls
@@ -26,8 +27,8 @@ Public Class frmMonitor
     Private ReadOnly ColumnMarkers As New List(Of String) From {"[HTML]", "[SQL]", "[FILENAME]"}
     Private ReadOnly SQLColumns As New List(Of String) From {"SELECT1", "SELECT2", "SELECT3", "SELECT4"}
     Private ReadOnly DocViewColumns As New List(Of String) From {"DOCVIEW1", "DOCVIEW2"}
-    Private ReadOnly HtmlViewColumns As New List(Of String) From {"HTML1", "HTML2"}
+    Private ReadOnly Property HtmlViewColumns As New List(Of String) From {"HTML1", "HTML2"}
-    Private ReadOnly DataColumns As List(Of String) = SQLColumns.
+    Private ReadOnly Property DataColumns As List(Of String) = SQLColumns.
         Concat(DocViewColumns).
         Concat(HtmlViewColumns).
         ToList
@@ -467,16 +468,19 @@ Public Class frmMonitor
         End Try
     End Sub
 
-    Private Function ExtractTitle(Value As String) As Tuple(Of String, String)
+    Private Function ExtractTitle(pValue As String) As Tuple(Of String, String)
-        If Value.Contains("|"c) Then
+        Dim oTitleRegex As New Regex("([\s\S]*)#&#([\s\S]*)#&#$")
-            Dim oSplit = Value.Split("|"c).ToList
+
-            Dim oValue = oSplit.First()
+        If oTitleRegex.IsMatch(pValue) Then
-            Dim oTitle = oSplit.Item(1)
+            Dim oMatch = oTitleRegex.Match(pValue)
+
+            Dim oValue = oMatch.Groups.Item(1).Value
+            Dim oTitle = oMatch.Groups.Item(2).Value
 
             Return New Tuple(Of String, String)(oValue, oTitle)
+        Else
+            Return New Tuple(Of String, String)(pValue, Nothing)
         End If
-
-        Return New Tuple(Of String, String)(Value, Nothing)
     End Function
 
     Private Sub ExpandNodes(RootNode As TreeListNode, Condition As Predicate(Of TreeListNode))