Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.Text = "Log: INFO, Data: 123, Log: WARN"
      
      '// Define two rules with different starting anchors
      t.Pattern("Log: {@Alpha}")
      t.Pattern("Data: {@Number}")
      t.Find()
      
      Console.WriteLine("--- Match Analysis ---")
      For Each match In t.Matches
         Console.WriteLine($"Match '{match.Text}' was found by rule '{match.Rule.Name}'")
      Next
   End Sub
End Module