-pulizia codice

ScriptWindow/ScriptWindowVM.vb

@@ -563,7 +563,7 @@ Public Class ScriptWindowVM
       Dim keywordColor As Color = Colors.Blue
       Dim commentColor As Color = Colors.Green
       Dim valueColor As Color = Colors.MediumSeaGreen
-      Dim egtColor As Color = Colors.LightGoldenrodYellow
+      Dim egtColor As Color = Colors.Gold
       Dim infoColor As New System.Windows.Media.Color With {
          .A = 255,
          .R = 206,
@@ -656,34 +656,6 @@ Public Class ScriptWindowVM
       Return navigator
    End Function
 
-   Private Sub RegexFun(text As String)
-      Dim pattern As String = "(?<=function\s)[^(]+"
-
-      ' Instantiate the regular expression object.
-      Dim r As Regex = New Regex(pattern, RegexOptions.IgnoreCase)
-
-      ' Match the regular expression pattern against a text string.
-      Dim m As Match = r.Match(text)
-      Dim matchcount As Integer = 0
-      Do While m.Success
-         matchcount += 1
-         EgtOutLog("Match" & (matchcount))
-         Dim i As Integer
-         For i = 1 To 2
-            Dim g As Group = m.Groups(i)
-            EgtOutLog("Group" & i & "='" & g.ToString() & "'")
-            Dim cc As CaptureCollection = g.Captures
-            Dim j As Integer
-            For j = 0 To cc.Count - 1
-               Dim c As Capture = cc(j)
-               EgtOutLog("Capture" & j & "='" & c.ToString() _
-                  & "', Position=" & c.Index)
-            Next
-         Next
-         m = m.NextMatch()
-      Loop
-   End Sub
-
 #End Region    ' Methods
 
 #Region "COMMANDS"