Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "aaa bbb xyz 123"
      Dim aaa = t.FromTo("aaa", "111")
      Dim xyz = t.Pattern("xyz")
      t.Filter()
      Console.WriteLine(t.Matches.Text)
      
      Console.WriteLine("-----")
      Console.WriteLine(aaa.Replacement)
      Console.WriteLine(xyz.Replacement)
      
   End Sub
End Module