Add files via upload

WalkerMx · Sep 11, 2020 · 6c82dfc · 6c82dfc
1 parent 0b58df1
commit 6c82dfc
Show file tree

Hide file tree

Showing 5 changed files with 76 additions and 26 deletions.
diff --git a/AutoCrispy/AutoCrispy/AutoCrispy.vbproj b/AutoCrispy/AutoCrispy/AutoCrispy.vbproj
@@ -79,6 +79,7 @@
     <Reference Include="System.Xml.Linq" />
     <Reference Include="System.Data.DataSetExtensions" />
     <Reference Include="System.Net.Http" />
+    <Reference Include="WindowsBase" />
   </ItemGroup>
   <ItemGroup>
     <Import Include="Microsoft.VisualBasic" />

diff --git a/AutoCrispy/AutoCrispy/EditChainDialog.Designer.vb b/AutoCrispy/AutoCrispy/EditChainDialog.Designer.vb
diff --git a/AutoCrispy/AutoCrispy/EditChainDialog.vb b/AutoCrispy/AutoCrispy/EditChainDialog.vb
@@ -1,4 +1,6 @@
-Public Class EditChainDialog
+Imports System.Text.RegularExpressions
+
+Public Class EditChainDialog
 
     Public Property InternalText As String
     Public Property ResultText As String
@@ -9,6 +11,10 @@
         EditTextBox.Text = Xml
     End Sub
 
+    Public Sub EditChainDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Colorize(EditTextBox, Color.DarkBlue, Color.Maroon)
+    End Sub
+
     Private Sub OK_Button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles OK_Button.Click
         Me.DialogResult = DialogResult.OK
         ResultText = EditTextBox.Text
@@ -22,6 +28,23 @@
 
     Private Sub Reset_Button_Click(sender As Object, e As EventArgs) Handles Reset_Button.Click
         EditTextBox.Text = InternalText
+        Colorize(EditTextBox, Color.DarkBlue, Color.Maroon)
+    End Sub
+
+    Private Sub Colorize(ByRef PlainTextBox As RichTextBox, TagColor As Color, QuoteColor As Color)
+        Dim TagMatches = Regex.Matches(PlainTextBox.Text, "(?<=<)(.*?)(?=>)", RegexOptions.Compiled)
+        For Each TagMatch As Match In TagMatches
+            PlainTextBox.Select(TagMatch.Index, TagMatch.Length)
+            PlainTextBox.SelectionColor = TagColor
+        Next
+        Dim QuoteMatches = Regex.Matches(PlainTextBox.Text, "\" & ControlChars.Quote & "(.*?)" & "\" & ControlChars.Quote, RegexOptions.Compiled)
+        For Each QuoteMatch As Match In QuoteMatches
+            If Not QuoteMatch.Value.Contains("="c) Then
+                PlainTextBox.Select(QuoteMatch.Index, QuoteMatch.Length)
+                PlainTextBox.SelectionColor = QuoteColor
+            End If
+        Next
+        PlainTextBox.Select(0, 0)
     End Sub
 
 End Class
diff --git a/AutoCrispy/AutoCrispy/Form1.Designer.vb b/AutoCrispy/AutoCrispy/Form1.Designer.vb
diff --git a/AutoCrispy/AutoCrispy/My Project/AssemblyInfo.vb b/AutoCrispy/AutoCrispy/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.0.2.3")>
-<Assembly: AssemblyFileVersion("1.0.2.3")>
+<Assembly: AssemblyVersion("1.0.2.4")>
+<Assembly: AssemblyFileVersion("1.0.2.4")>