Imports System
Imports uCalcSoftware
Public Module Program
   Public Sub Main()
      Dim uc As New uCalc()
      '// Simulate user inputs for the tool
      Dim findText = "GetUserData"
      Dim replaceText = "FetchUserProfile"
      Dim sourceCode = "
// Deprecated: Use FetchUserProfile instead of GetUserData
function GetUserData(id) {
    print(""Calling GetUserData is not recommended."");
    return http.get(""/users/"" + id);
}
var user = GetUserData(123);
"
      
      Using refactorTool As New uCalc.Transformer()
         '// 1. Define rules to ignore comments. These have the highest precedence.
         refactorTool.SkipOver("// {text}")
         refactorTool.SkipOver("/* {text} */")
         
         '// 2. Define the replacement rule. QuoteSensitive is true by default, protecting strings.
         Dim rule = refactorTool.FromTo(findText, replaceText)
         
         '// 3. Run the transformation and print the result.
         Console.WriteLine(refactorTool.Transform(sourceCode))
      End Using
   End Sub
End Module