Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      '// Note the use of {@String} to capture the quoted text
      t.FromTo("'['{level}']' Code: {code}, Msg: {@String:message}",
      "[{level}] - {message} (Code {code})")
      
      Dim log = "[ERROR] Code: 404, Msg: 'Not Found'"
      Console.WriteLine(t.Transform(log))
   End Sub
End Module