Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      Dim logText = "ERROR: Fail 1. INFO: OK. ERROR: Fail 2. ERROR: Fail 3."
      t.Text = logText
      
      Dim errorRule = t.Pattern("ERROR: {msg}.")
      '// Stop after finding the first error to focus on the initial problem.
      errorRule.StopAfter = 1
      t.Find()
      
      Console.WriteLine($"First error found: {t.Matches.Text}")
   End Sub
End Module