Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Str("<h3>Title</h3><b>Bold statement</b><h3>Title B</h3><b>Other text</b>")
      
      Dim BoldTag = t.Pattern("<b>{text}</b>")
      Dim H3Tag = t.Pattern("<h3>{text}</h3>")
      t.Find()
      
      
      Console.WriteLine(t.Matches.Text)
      Console.WriteLine("")
      
      BoldTag.Active = false
      Console.WriteLine($"BoldTag.Active(): {BoldTag.Active}")
      Console.WriteLine("-----------------------")
      t.Find()
      Console.WriteLine(t.Matches.Text)
      Console.WriteLine("")
      
      BoldTag.Active = true
      Console.WriteLine($"BoldTag.Active(): {BoldTag.Active}")
      Console.WriteLine("----------------------")
      
      t.Find()
      Console.WriteLine(t.Matches.Text)
      Console.WriteLine("")
      
   End Sub
End Module