Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      '// Disable statement sensitivity to handle multi-line content
      t.DefaultRuleSet.StatementSensitive = false
      
      Dim htmlContent =
      "
<nav>
  <li><a href=""#intro"">Intro</a></li>
  <!-- <li><a href=""#contact"">Contact</a></li> -->
  <li><a href=""#about"">About</a></li>
</nav>
"
      t.Text = htmlContent
      
      '// A rule to find all list items
      t.Pattern("<li>{item}</li>")
      
      '// A rule to skip over HTML comments
      t.SkipOver("<!-- {comment} -->")
      
      t.Find()
      Console.WriteLine("--- Found List Items ---")
      Console.WriteLine(t.Matches.Text)
   End Sub
End Module