uCalc SDK Interactive Examples

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("{@Bracket}", "(")
      t.FromTo("{@CloseBracket}", ")")
      
      Console.WriteLine(t.Transform("{a, b, c} f(x, y) [1, 2, 3];"))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("{@sq}", "$")
      
      '// Only the single quote should be replaced
      Console.WriteLine(t.Transform("""Hello"" and 'World'"))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("{@QuoteChar}", "MATCH")
      
      '// Backticks (`) are usually not delimiters by default
      Console.WriteLine(t.Transform("`Backtick`"))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.FromTo("Price: {@Number:amt}", "Price: ${amt}")
      
      Dim input As String = "Item A Price: 19.99, Item B Price: 5"
      Console.WriteLine(t.Transform(input))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("{@dq}", "\""")
      
      Dim input As String = "He said ""Hello"""
      Console.WriteLine(t.Transform(input))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      '// Convert any quote character found to a double quote
      t.FromTo("{@QuoteChar}", """")
      
      Dim input As String = "msg = 'Hello'; val = ""World"";"
      Console.WriteLine(t.Transform(input))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      '// Replace every string literal with a placeholder
      t.FromTo("{@String}", """[REDACTED]""")
      
      Dim log As String = "UserLogin(id: 101, pass: 'secret123', name: ""Admin"")"
      Console.WriteLine(t.Transform(log))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("{@sq}", "''")
      
      Dim input As String = "It's a trap"
      Console.WriteLine(t.Transform(input))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("{@Bracket}", "[START_SCOPE]")
      
      Dim input As String = "func { data [ 1, 2 ] }"
      Console.WriteLine(t.Transform(input))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Creating a "Clean View" of a log or configuration file by replacing all
      '// actual data values with a placeholder, leaving only the structural identifiers.
      Dim t As New uCalc.Transformer()
      '// Replace every literal with a generic placeholder
      t.FromTo("{@Literal}", "?")
      
      Dim input As String = "setting_a = 500; setting_b = ""active"";"
      Console.WriteLine(t.Transform(input))
   End Sub
End Module

Imports System&#13;Imports uCalcSoftware&#13;Public Module Program&#13;   Public Sub Main()&#13;      Dim uc As New uCalc()&#13;      Dim t = uc.NewTransformer()&#13;      &#13;      t.FromTo("{@All}", "<<{@Self}>>")&#13;      &#13;      Console.WriteLine(t.Transform("This is a test"))&#13;   End Sub&#13;End Module

Imports System&#13;Imports uCalcSoftware&#13;Public Module Program&#13;   Public Sub Main()&#13;      Dim uc As New uCalc()&#13;      Dim t = uc.NewTransformer()&#13;      &#13;      t.FromTo("({@Alphanumeric:txt})", "<Alpha str={txt}>")&#13;      &#13;      Console.WriteLine(t.Transform("Testing 123 (456) (abc) ('text') (xyz111)"))&#13;   End Sub&#13;End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      
      t.FromTo("a {@Comment: Ignore this} b c", "x{@Comment: ignore} y z")
      
      Console.WriteLine(t.Transform("a b. a b c. abc."))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      
      t.Pattern("{@Define: Var: xyz = 123}")
      t.FromTo("abc", "{@Eval: xyz * 10}")
      Console.WriteLine(t.Transform("The value is: abc"))
      
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      
      t.FromTo("a test", "'{@Self}' is part of: '{@Doc}'")
      
      '// Note: .Str(0) here is a shortcut for .Matches().Str(0)
      Console.WriteLine(t.Transform("This sentence is just a test").Str(0))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      
      t.FromTo("'['{word}']'", "{@Eval: UCase(word)}")
      t.FromTo("'{'{expr}'}'", "{@@Eval: expr}")
      
      Console.WriteLine(t.Transform("Words like [this] and [that]."))
      Console.WriteLine(t.Transform("Is {5*3} bigger than {5^3}?"))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      
      t.Pattern("{@Define: Var: Count_a = 0}")
      t.Pattern("{@Define: Var: Count_an = 0}")
      
      t.FromTo("a", "{@Self}{@Exec: Count_a++}")
      t.FromTo("an", "{@Self}{@Exec: Count_an++}")
      t.FromTo(".", "{@nl}'a' occurs {@Eval: Count_a} times
'an' occurs {@Eval: Count_an} times")
      
      '// Note: it is counting "a" as a token, not as a character.
      Console.WriteLine(t.Transform("An apple, an eagle, a cat, an orange, a tree."))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.FromTo("This {etc} big test {words:2}",
      "{@Param:0}:{@Param:1}:{@Param:1+1}:{@Param:2+1}:{@Param:2*2}")
      Console.WriteLine(t.Transform("This is a big test we have today"))
   End Sub
End Module

Imports System&#13;Imports uCalcSoftware&#13;Public Module Program&#13;   Public Sub Main()&#13;      Dim uc As New uCalc()&#13;      Dim t = uc.NewTransformer()&#13;      t.FromTo("{@StatementSeparator}", "<sep>")&#13;      Console.WriteLine(t.Transform("a = b + c; x = y + 1;"))&#13;   End Sub&#13;End Module

Imports System&#13;Imports uCalcSoftware&#13;Public Module Program&#13;   Public Sub Main()&#13;      Dim uc As New uCalc()&#13;      Dim t = uc.NewTransformer()&#13;      &#13;      '// without {@Stop} "end" wouldn't be a match&#13;      t.FromTo("StopAt {abc} {@Stop} end", "<{abc}>")&#13;      t.FromTo("end", "[The End]")&#13;      &#13;      Console.WriteLine(t.Transform("StopAt a b c end"))&#13;      &#13;   End Sub&#13;End Module

Imports System&#13;Imports uCalcSoftware&#13;Public Module Program&#13;   Public Sub Main()&#13;      Dim uc As New uCalc()&#13;      Dim t = uc.NewTransformer()&#13;      t.FromTo("{@String}", "<Any quoted {@Self}>")&#13;      t.FromTo("({@Token(String_Singlequoted)})", "<Single quoted {@Self}>")&#13;      t.FromTo("({@Token(String_Doublequoted)})", "<Double quoted {@Self}>")&#13;      &#13;      Dim s = """Test"" '123' (""abc"") ('xyz')"&#13;      Console.WriteLine(t.Transform(s))&#13;   End Sub&#13;End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.FromTo("{@Whitespace}", ",")
      
      Console.WriteLine(t.Transform("This is   a 'small test' about ' whitespace ' tokens."))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Create a new Expression object with an initial formula.
      '// This uses the default uCalc instance for context.
      Dim expr As New uCalc.Expression("1 + 1")
      
      '// Implicitly calls .EvaluateStr() when used in a string context
      Console.WriteLine($"Initial value: {expr}")
      
      '// Reassign the expression to a new formula with a simple string assignment.
      '// This implicitly calls .Parse() behind the scenes.
      expr = "10 * (5 + 3)"
      
      '// Retrieve the result. For numeric results, you can assign it
      '// directly to a double. This implicitly calls .Evaluate().
      Dim result As Double = expr
      Console.Write("New value: ")
      Console.Write(result)
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      Dim ruleA = t.FromTo("a", "A")
      
      '// Case 1: Limit is 2, but 3 'a's are present. The rule is invalidated.
      t.Transform("a b a c a")
      ruleA.Maximum = 2
      Console.WriteLine("--- Maximum = 2 (Rule Fails) ---")
      Console.Write("Result: ")
      Console.WriteLine(t.Transform("a b a c a"))
      
      '// Case 2: Limit is 3. The rule passes and matches are kept.
      ruleA.Maximum = 3
      Console.WriteLine("")
      Console.WriteLine("--- Maximum = 3 (Rule Succeeds) ---")
      Console.Write("Result: ")
      Console.WriteLine(t.Transform("a b a c a"))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      t.Text = "A B C"
      
      Dim ruleA = t.Pattern("A").SetFocusable(true)
      Dim ruleB = t.Pattern("B").SetFocusable(true)
      Dim ruleC = t.Pattern("C").SetFocusable(false) '// C is not focusable
      t.Find()
      
      Console.WriteLine("--- All Matches ---")
      Console.WriteLine(t.GetMatches(MatchesOption.All).Text)
      
      Console.Write("--- Focusable Matches ---")
      '// This list will exclude the match for 'C'.
      Console.WriteLine(t.GetMatches(MatchesOption.FocusableOnly).Text)
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.FromTo("word", "WORD") '// Rule to uppercase 'word'
      t.SkipOver("({ignore})") '// Rule to ignore content in parentheses
      
      Dim text = "transform this word, but (not this word)"
      Console.WriteLine(t.Transform(text))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.Description = "My First Transformer"
      Console.WriteLine($"Transformer Description: {t.Description}")
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineVariable("x = 10")
      Console.WriteLine(uc.EvalStr("x * 5"))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      
      '// 1. Set the initial text
      t.Text = "The quick brown fox."
      
      '// 2. Define a rule and transform
      t.FromTo("brown", "red")
      t.Transform()
      
      '// 3. Get the final text
      Console.WriteLine(t.Text)
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Define a format that only applies to Double data types.
      Dim doubleType = uc.DataTypeOf("Double")
      Dim fmt = uc.Format("Result = 'Value: ' + Result", doubleType)
      
      Console.WriteLine(uc.EvalStr("10 * 2.5"))
      Console.WriteLine(uc.EvalStr("'Hello'")) '// String output is unaffected.
      
      '// Clean up the format rule
      fmt.Release()
      Console.WriteLine(uc.EvalStr("10 * 2.5")) '// No longer formatted
   End Sub
End Module