Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "A B C"
      
      Dim ruleA = t.Pattern("A").SetFocusable(true)
      Dim ruleB = t.Pattern("B").SetFocusable(true)
      Dim ruleC = t.Pattern("C").SetFocusable(false) '// C is not focusable
      t.Find()
      
      Console.WriteLine("--- All Matches ---")
      Console.WriteLine(t.GetMatches(MatchesOption.All).Text)
      
      Console.Write("--- Focusable Matches ---")
      '// This list will exclude the match for 'C'.
      Console.WriteLine(t.GetMatches(MatchesOption.FocusableOnly).Text)
   End Sub
End Module