Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      Dim log = "WARNING: low disk. ERROR: service down. WARNING: high CPU. WARNING: queue full."
      
      Dim warningRule = t.FromTo("WARNING: {msg}.", "[WARN] {msg}.")
      Dim errorRule = t.FromTo("ERROR: {msg}.", "[ERR] {msg}.")
      
      '// Set a rule-specific limit for warnings.
      warningRule.Maximum = 2
      
      t.Filter(log)
      Console.WriteLine(t.Matches.Text)
   End Sub
End Module