Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.Text = "ID:100, Name:Admin, ID:200"
      
      '// Define two rules, but only one is marked as 'focusable'
      t.Pattern("ID:{@Number}").SetFocusable(true)
      t.Pattern("Name:{@Alpha}").SetFocusable(false)
      t.Find()
      
      '// Get all matches using the default option
      Dim allMatches = t.GetMatches()
      Console.WriteLine($"--- All Matches ({allMatches.Count()}) ---")
      Console.WriteLine(allMatches.Text)
      
      '// Get only the focusable matches
      Dim focusableMatches = t.GetMatches(MatchesOption.FocusableOnly)
      Console.WriteLine("")
      Console.WriteLine($"--- Focusable Matches Only ({focusableMatches.Count()}) ---")
      Console.WriteLine(focusableMatches.Text)
   End Sub
End Module