uCalc SDK Interactive Examples

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineVariable("x = 123")
      uc.DefineVariable("y")
      
      Console.WriteLine(uc.EvalStr("1 + 1"))
      Console.WriteLine(uc.EvalStr("UCase('Hello ' + 'world!')"))
      Console.WriteLine(uc.EvalStr("$'Interpolation: {2+3}'"))
      Console.WriteLine(uc.EvalStr("#b101 + #hAE"))
      Console.WriteLine(uc.EvalStr("Hex(1234)"))
      Console.WriteLine(uc.EvalStr("(3+5*#i)^2"))
      Console.WriteLine(uc.EvalStr("3 > 4"))
      Console.WriteLine(uc.EvalStr("Max(5, 10, 3, -5)"))
      Console.WriteLine(uc.EvalStr("x * 10"))
      uc.EvalStr("x = 456")
      Console.WriteLine(uc.EvalStr("x"))
      Console.WriteLine(uc.EvalStr("2+4, 5+4, 10+20"))
      Console.WriteLine(uc.EvalStr("y=100; ForLoop(x, 1, 10, 1, y = y + x); y"))
      Console.WriteLine(uc.EvalStr("10 / "))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uCalc.DefaultInstance.DefineVariable("x = 1.2")
      uc.DefineVariable("x = 3.2")
      
      Dim MyExprA As New uCalc.Expression()
      Dim MyExprB As New uCalc.Expression("x+4.25")
      Dim MyExprC As New uCalc.Expression("x+4.25", uCalc.DefaultInstance.DataTypeOf("int"))
      Dim MyExprD As New uCalc.Expression(uc, "x+4.25")
      
      MyExprA.Parse("x*100")
      
      Console.WriteLine(MyExprA.Evaluate())
      Console.WriteLine(MyExprB.Evaluate())
      Console.WriteLine(MyExprC.Evaluate())
      Console.WriteLine(MyExprD.Evaluate())
      
      '// Release expressions when no longer needed (see other example for auto-release)
      MyExprA.Release()
      MyExprB.Release()
      MyExprC.Release()
      MyExprD.Release()
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Define a token for C-like 0x hex notation
      uc.ExpressionTokens.Add("0x[0-9A-Fa-f]+", TokenType.TokenTransform)
      uc.TokenTransformer.FromTo("{'0x'}{Num:'[0-9A-Fa-f]+'}", "BaseConvert('{Num}', 16)")
      Console.WriteLine($"0xFF is evaluated as: {uc.EvalStr("0xFF")}")
      
      '// Define a token for C++-style 0b binary notation
      uc.ExpressionTokens.Add("0b[01]+", TokenType.TokenTransform)
      
      '// Using {@Eval} is more efficient as the conversion happens once during the token transform pass.
      uc.TokenTransformer.FromTo("{'0b'}{Num:'[01]+'}", "{@Eval: BaseConvert(Num, 2)}")
      Console.WriteLine($"0b1011 is evaluated as: {uc.EvalStr("0b1011")}")
      
      '// Note: uCalc has built-in support for hex/binary using # notation (e.g., #hFF, #b1011)
      Console.WriteLine($"uCalc's built-in #hFF is: {uc.EvalStr("#hFF")}")
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using s As New uCalc.String("Calculate (10 * 5) and ignore this.")
         
         '// Get the text from the opening parenthesis to the closing one.
         Dim expression = s.BetweenInclusive("(", ")")
         
         Console.WriteLine(expression)
      End Using
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using t As New uCalc.Transformer()
         '// Define a rule to find a key-value pair
         t.FromTo("{@Alphanumeric:key}={@Alphanumeric:val}", "Key: {key}, Value: {val}")
         
         '// Process a simple query string
         Console.WriteLine(t.Transform("user=admin"))
      End Using
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using s As New uCalc.String("ID: 12345")
         
         '// Get the text after the "ID: " prefix
         Dim value = s.After("ID: ")
         
         Console.WriteLine(value)
      End Using
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      '// Capture the alphanumeric key and any literal value
      t.FromTo("{@Alpha:key} = {@Literal:val}", "KEY:[{key}] VAL:[{val}]")
      
      Dim input = "Timeout = 100; User = 'Admin'"
      Console.WriteLine(t.Transform(input))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using t As New uCalc.Transformer()
         Dim logLine As String = "2024-10-26 10:00:05 INFO 192.168.1.10 ""GET /api/users HTTP/1.1"" 200 15ms"
         
         '// Define a pattern to capture the status and time
         Dim pattern As String = "{@String:request} {@Number:status} {@Number:time}ms"
         
         '// The replacement string formats the captured data for display
         '// {request} or {request(1)} would return the string without surrounding quotes
         '// {request(0)} returns the string with surrounding quotes
         Dim replacement As String = "Request: {request(0)}, Status: {status}, Time: {time}ms"
         
         t.FromTo(pattern, replacement)
         
         '// Use Filter() to extract only the transformed match
         Console.WriteLine(t.Transform(logLine).Matches)
      End Using
   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("ID: {value}", "Found value: {value}")
      Console.WriteLine(t.Transform("Product ID: 12345"))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using log As New uCalc.String("INFO: OK. ERROR: Fail 1. INFO: OK. ERROR: Fail 2.")
         
         '// Find the second occurrence of "ERROR" and get everything after it.
         Dim remainingLog = log.StartingFrom("ERROR", 2)
         
         Console.WriteLine(remainingLog)
      End Using
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using t As New uCalc.Transformer()
         t.FromTo("{@Number:n}", "[NUM:{n}]")
         
         Dim text = "Order 123 has 2 items for 49.95 total."
         Console.WriteLine(t.Transform(text))
      End Using
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using s As New uCalc.String("user:admin")
         Dim key = s.Before(":")
         Console.WriteLine(key)
      End Using
   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.Str("<h3>Title</h3><b>Bold statement</b><h3>Title B</h3><b>Other text</b><p>My paragraph</p>")&#13;      &#13;      Dim AnyOtherTag = t.Pattern("<{tag}>{text}</{tag}>")&#13;      Dim BoldTag = t.Pattern("<b>{text}</b>")&#13;      Dim H3Tag = t.Pattern("<h3>{text}</h3>")&#13;      t.Find()&#13;      &#13;      Console.WriteLine($"All matches -- count = {t.Matches.Count()}")&#13;      Console.WriteLine("----------------------")&#13;      Console.WriteLine(t.Matches.Text)&#13;      Console.WriteLine("")&#13;      &#13;      Console.WriteLine($"Only BoldTag matches -- count = {BoldTag.Matches.Count()}")&#13;      Console.WriteLine("-------------------------------")&#13;      Console.WriteLine(BoldTag.Matches.Text)&#13;      Console.WriteLine("")&#13;      &#13;      Console.WriteLine($"Only H3Tag matches -- count = {H3Tag.Matches.Count()}")&#13;      Console.WriteLine("-----------------------------")&#13;      Console.WriteLine(H3Tag.Matches.Text)&#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.Str("<h3>Title</h3><b>Bold statement</b><h3>Title B</h3><b>Other text</b><p>My paragraph</p>")&#13;      &#13;      Dim AnyOtherTag = t.Pattern("<{tag}>{text}</{tag}>")&#13;      Dim BoldTag = t.Pattern("<b>{text}</b>")&#13;      Dim H3Tag = t.Pattern("<h3>{text}</h3>")&#13;      t.Find()&#13;      &#13;      Console.WriteLine($"All matches -- count = {t.Matches.Count()}")&#13;      Console.WriteLine("----------------------")&#13;      Console.WriteLine(t.Matches)&#13;      Console.WriteLine("")&#13;      &#13;      Console.WriteLine($"Only BoldTag matches -- count = {BoldTag.Matches.Count()}")&#13;      Console.WriteLine("-------------------------------")&#13;      Console.WriteLine(BoldTag.Matches)&#13;      Console.WriteLine("")&#13;      &#13;      Console.WriteLine($"Only H3Tag matches -- count = {H3Tag.Matches.Count()}")&#13;      Console.WriteLine("-----------------------------")&#13;      Console.WriteLine(H3Tag.Matches)&#13;   End Sub&#13;End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t As New uCalc.Transformer()
      t.Text = "a b c a d e a f g"
      Dim ruleA = t.FromTo("a", "[MATCH]")
      
      '// Skip the first 'a' that is found
      ruleA.StartAfter = 1
      
      Console.WriteLine(t.Transform())
   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.Text = "apple banana apple cherry apple"
      t.Pattern("apple")
      t.Find()
      Console.WriteLine($"Found {t.Matches.Count()} occurrences of 'apple'.")
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Using t As New uCalc.Transformer()
         t.Text = "apple banana apple cherry"
         t.Pattern("apple")
         t.Find()
         
         Dim m = t.Matches
         Console.WriteLine($"Matches found: {m.Count()}")
         If m.Count() > 0 Then
            Console.WriteLine($"First match: {m(0).Text}")
         End If
      End Using
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      '// Match two whitespace tokens and replace with one space
      t.FromTo("{@Whitespace}", " ")
      
      Dim messy As String = "var    x   =  100;"
      Console.WriteLine(t.Transform(messy))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      uc.DefineOperator("{a As Bool} ## {b As Bool} As Bool = a And b", uc.ItemOf("And").Precedence)
      Console.WriteLine(uc.EvalStr("true Or false ## 2 > 5"))
      
      uc.ItemOf("##").SetPrecedence(uc.ItemOf("Or").Precedence)
      Console.WriteLine(uc.EvalStr("true Or false ## 2 > 5"))
   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("apple", "fruit")
      t.Text = "an apple a day"
      t.Find()
      
      Dim firstMatch = t.Matches(0)
      Dim generatingRule = firstMatch.Rule
      
      Console.Write("Match text: '")
      Console.Write(firstMatch.Text)
      Console.Write("' was found by rule: '")
      Console.Write(generatingRule.Name)
      Console.Write("'")
   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 a d e a f g a h i"
      Dim ruleA = t.FromTo("a", "[A]")
      
      '// Only find and transform the first 3 occurrences of 'a'.
      ruleA.StopAfter = 3
      
      Console.WriteLine(t.Transform())
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      Dim log = "INFO: Task started. ERROR: Connection failed. INFO: Task finished."
      
      
      Dim infoRule = t.Pattern("INFO: {msg}.")
      Dim errorRule = t.Pattern("ERROR: {msg}.")
      t.Text = log
      t.Find()
      
      '// Get the first match specific to the error rule
      Dim firstErrorMatch = errorRule.Matches(0)
      Console.WriteLine($"First error match text: '{firstErrorMatch.Text}'")
      
      '// Now, find its index within the global list of all matches
      Dim globalIndex = t.Matches.IndexOf(firstErrorMatch.StartPosition)
      Console.WriteLine($"The first error is the match at global index: {globalIndex}")
      
      '// Verify by printing the match from the global list
      Console.WriteLine($"Global match at that index: '{t.Matches(globalIndex).Text}'")
   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;      Dim FruitsXML =&#13;      "&#13;<Fruits>&#13;  <Fruit CommonName='Apple' ScientificName='Malus domestica' />&#13;  <Fruit CommonName='Banana' ScientificName='Musa acuminata' />&#13;  <Fruit CommonName='Orange' ScientificName='Citrus × sinensis' />&#13;  <!-- <Fruit CommonName='Grapes' ScientificName='Vitis vinifera' /> -->&#13;  <Fruit CommonName='Strawberry' ScientificName='Fragaria × ananassa' />&#13;  <Fruit CommonName='Pineapple' ScientificName='Ananas comosus' />&#13;  <!-- <Fruit CommonName='Mango' ScientificName='Mangifera indica' /> -->&#13;  <Fruit CommonName='Blueberry' ScientificName='Vaccinium corymbosum' />&#13;  <!-- <Fruit CommonName='Rambutan' ScientificName='Nephelium lappaceum' /> -->&#13;  <Fruit CommonName='Salak (Snake Fruit)' ScientificName='Salacca zalacca' />&#13;  <Fruit CommonName='Jabuticaba' ScientificName='Plinia cauliflora' />&#13;  <!-- <Fruit CommonName='Watermelon' ScientificName='Citrullus lanatus' /> -->&#13;</Fruits>&#13;"&#13;      &#13;      '// List names of fruit within comment, not the whole comment as well&#13;      t.Text = FruitsXML&#13;      Dim CommentedFruits = t.Pattern("<!-- {comment} -->").SetFocusable(false)&#13;      Dim CommentedFruitsTr = CommentedFruits.LocalTransformer&#13;      CommentedFruitsTr.FromTo("CommonName={@string:text}", "{text}").Focusable = true&#13;      &#13;      t.Filter()&#13;      Console.WriteLine("With Focusable()")&#13;      Console.WriteLine("----------------")&#13;      Console.WriteLine(t.GetMatches(MatchesOption.FocusableOnly).Text)&#13;      Console.WriteLine("")&#13;      &#13;      '// Note: The displayed Fruit element is modified by CommentedFruitsTr.FromTo()&#13;      Console.WriteLine("Without Focusable()")&#13;      Console.WriteLine("-------------------")&#13;      Console.WriteLine(t.Matches.Text)&#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.Str("<h3>Title</h3><b>Bold statement</b><h3>Title B</h3><b>Other text</b>")&#13;      &#13;      Dim BoldTag = t.Pattern("<b>{text}</b>").SetFocusable(true)&#13;      Dim H3Tag = t.Pattern("<h3>{text}</h3>").SetFocusable(true)&#13;      t.Find()&#13;      &#13;      Console.WriteLine(t.GetMatches(MatchesOption.FocusableOnly).Text)&#13;      Console.WriteLine("")&#13;      &#13;      BoldTag.Focusable = false&#13;      Console.WriteLine($"BoldTag.Focusable(): {BoldTag.Focusable}")&#13;      Console.WriteLine("--------------------------")&#13;      '// t.Find(); // A Find operation does not have to be executed again&#13;      Console.WriteLine(t.GetMatches(MatchesOption.FocusableOnly).Text)&#13;      Console.WriteLine("")&#13;      &#13;      BoldTag.Focusable = true&#13;      Console.WriteLine($"BoldTag.Focusable(): {BoldTag.Focusable}")&#13;      Console.WriteLine("--------------------------")&#13;      &#13;      '//t.Find(); // A Find operation does not have to be executed again&#13;      Console.WriteLine(t.GetMatches(MatchesOption.FocusableOnly).Text)&#13;      Console.WriteLine("")&#13;   End Sub&#13;End Module

Imports System&#13;Imports uCalcSoftware&#13;Public Module Program&#13;   &#13;   Public Sub OutputAnswerCB(ByVal cb As uCalc.Callback)&#13;      cb.ReturnStr("Answer: " + cb.ArgStr(1))&#13;   End Sub&#13;   Public Sub OutputSymbolCB(ByVal cb As uCalc.Callback)&#13;      cb.ReturnStr("==> " + cb.ArgStr(1))&#13;   End Sub&#13;   Public Sub OutputBoolCB(ByVal cb As uCalc.Callback)&#13;      If cb.ArgStr(1) = "false" Then&#13;         cb.ReturnStr("No")&#13;         ElseIf cb.ArgStr(1) = "true" Then&#13;         cb.ReturnStr("Yes")&#13;      End If&#13;   End Sub&#13;   Public Sub Main()&#13;      Dim uc As New uCalc()&#13;      &#13;      '// This format inserts "Answer: " in front of every result&#13;      Dim OutputAnswer = uc.Format(AddressOf OutputAnswerCB)&#13;      Console.WriteLine(uc.EvalStr("10+20"))&#13;      Console.WriteLine(uc.EvalStr("'Hello '+'world'"))&#13;      Console.WriteLine(uc.EvalStr("5 > 10"))&#13;      Console.WriteLine("---")&#13;      &#13;      '// This one inserts ==> in front of the result&#13;      '// The previously defined "Answer: " output is still prepended as well&#13;      Dim OutputSymbol = uc.Format(AddressOf OutputSymbolCB)&#13;      Console.WriteLine(uc.EvalStr("10+20"))&#13;      Console.WriteLine(uc.EvalStr("'Hello '+'world'"))&#13;      Console.WriteLine(uc.EvalStr("5 > 10"))&#13;      Console.WriteLine("---")&#13;      &#13;      '// Causes Boolean values to return Yes or No (instead of true or false)&#13;      Dim OutputBool = uc.Format(AddressOf OutputBoolCB, "Bool")&#13;      Console.WriteLine(uc.EvalStr("10+20"))&#13;      Console.WriteLine(uc.EvalStr("'Hello '+'world'"))&#13;      Console.WriteLine(uc.EvalStr("5 > 10"))&#13;      Console.WriteLine(uc.EvalStr("5 < 10"))&#13;      Console.WriteLine("---")&#13;      &#13;      '// The previously defined "==>" output is removed&#13;      OutputSymbol.Release()&#13;      Console.WriteLine(uc.EvalStr("10+20"))&#13;      Console.WriteLine(uc.EvalStr("'Hello '+'world'"))&#13;      Console.WriteLine(uc.EvalStr("5 > 10"))&#13;      Console.WriteLine(uc.EvalStr("5 < 10"))&#13;   End Sub&#13;End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Console.WriteLine(uc.Error.GetMessage(ErrorCode.Syntax_Error))
      Console.WriteLine(uc.Error.GetMessage(ErrorCode.FloatOverflow))
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim MyExpr = uc.Parse("5+4")
      
      Console.WriteLine(MyExpr.Evaluate())
      
      MyExpr.uCalc.Format("Result = 'Answer = ' + Result")
      
      Console.WriteLine(MyExpr.EvaluateStr())
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Console.WriteLine(uc.DataTypeOf(BuiltInType.Integer_8u).ToString("-1"))
      Console.WriteLine(uc.DataTypeOf(BuiltInType.Integer_16u).ToString("-1"))
      Console.WriteLine(uc.DataTypeOf(BuiltInType.Boolean).ToString("-1"))
      Console.WriteLine(uc.DataTypeOf(BuiltInType.String).ToString("-1"))
      
      Console.WriteLine(uc.DataTypeOf(BuiltInType.Integer_8u).Name)
      Console.WriteLine(uc.DataTypeOf(BuiltInType.Integer_32).ByteSize)
   End Sub
End Module

Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      Dim t = uc.NewTransformer()
      '// Matches "File Open" or "File Close". 
      '// Capture needs explicit naming.
      t.FromTo("File {cmd: Open | Close }", "Command: {cmd}")
      
      Console.WriteLine(t.Transform("File Open"))
      Console.WriteLine(t.Transform("File Close"))
   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("Statement: {val} [;]", "Found: {val}")
      
      Console.WriteLine(t.Transform("Statement: x = 1;")) '// Output: Found: x = 1
      Console.WriteLine(t.Transform("Statement: y = 2"))  '// Output: Found: y = 2
   End Sub
End Module