Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      Dim FruitsXML =
      "
<Fruits>
  <Fruit CommonName='Apple' ScientificName='Malus domestica' />
  <Fruit CommonName='Banana' ScientificName='Musa acuminata' />
  <Fruit CommonName='Orange' ScientificName='Citrus × sinensis' />
  <Fruit CommonName='Grapes' ScientificName='Vitis vinifera' />
  <Fruit CommonName='Strawberry' ScientificName='Fragaria × ananassa' />
  <Fruit CommonName='Pineapple' ScientificName='Ananas comosus' />
  <Fruit CommonName='Mango' ScientificName='Mangifera indica' />
  <Fruit CommonName='Blueberry' ScientificName='Vaccinium corymbosum' />
  <Fruit CommonName='Rambutan' ScientificName='Nephelium lappaceum' />
  <Fruit CommonName='Salak (Snake Fruit)' ScientificName='Salacca zalacca' />
  <Fruit CommonName='Jabuticaba' ScientificName='Plinia cauliflora' />
  <Fruit CommonName='Watermelon' ScientificName='Citrullus lanatus' />
</Fruits>
"
      
      Dim Fruit = t.FromTo("CommonName={@string:name}", "{name}")
      
      '// StopAfter()
      Fruit.StopAfter = 4
      t.Filter(FruitsXML)
      Console.WriteLine($"*** Stop after: {Fruit.StopAfter} ***")
      Console.WriteLine(t.Matches.Text)
      Fruit.StopAfter = -1 '// Resets back to infinity (default) for next example
      Console.WriteLine("")
      
      '// StartAfter()
      Fruit.StartAfter = 6
      t.Filter(FruitsXML)
      Console.WriteLine($"*** Start after: {Fruit.StartAfter} ***")
      Console.WriteLine(t.Matches.Text)
      Fruit.StartAfter = 0 '// Resets back to 0 (default) for next example
      Console.WriteLine("")
      
      
      '// Both StartAfter() and StopAfter()
      Fruit.SetStartAfter(2).SetStopAfter(5)
      t.Filter(FruitsXML)
      Console.WriteLine($"*** Between {Fruit.StartAfter + 1} and {Fruit.StopAfter} ***")
      Console.WriteLine(t.Matches.Text)
      Console.WriteLine("")
      
      '// All
      uc.DefineVariable("x = 1")
      Fruit = t.FromTo("CommonName={@string:name}", "{@Eval: x++}. {name}")
      t.Filter(FruitsXML)
      Console.WriteLine("*** All ***")
      Console.WriteLine(t.Matches.Text)
   End Sub
End Module