Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      Dim document = "
Header: Section 1
Data: A
Data: B
Header: Section 2
Data: C
"
      t.Text = document
      
      Dim dataRule = t.Pattern("Data: {val}")
      Dim headerRule = t.Pattern("Header: {val}")
      
      dataRule.Minimum = 2
      Console.WriteLine("--- Find with Minimum(2) ---")
      t.Find()
      Console.WriteLine($"Total Matches: {t.Matches.Count()}")
      Console.WriteLine($"Data Matches: {dataRule.Matches.Count()}")
      Console.WriteLine($"Header Matches: {headerRule.Matches.Count()}")
      
      dataRule.Minimum = 4
      Console.WriteLine("")
      Console.WriteLine("--- Find with Minimum(4) ---")
      t.Find()
      Console.WriteLine($"Total Matches: {t.Matches.Count()}")
      Console.WriteLine($"Data Matches: {dataRule.Matches.Count()}")
      Console.WriteLine($"Header Matches: {headerRule.Matches.Count()}")
   End Sub
End Module