Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "1 2 3 4 5 6 7 8 9 10 11 12"
      Dim rule = t.Pattern("{@Number}")
      
      '// Get a "page" of results: matches 3 through 7.
      '// The engine will stop finding numbers after the 7th match is found.
      '// Then, it will skip the first 2 matches from that set.
      rule.StartAfter = 2 '// Skip first 2
      rule.StopAfter = 7  '// Find up to 7
      
      t.Find()
      
      Console.WriteLine("Matches found:")
      Console.WriteLine(t.Matches.Text)
   End Sub
End Module