VB.NET Оценить строку с переменными

Question

Мне нравится заполнять мою базу данных различными формулами.

Когда у меня есть формула в базе данных, как "(2+4)*5" Я получаю результат 40:

update DB.dbo.INFOGROUP SET formula = '(2+4)*5' where INFOGROUP = 'S42'

Когда у меня есть формула в базе данных, как "(x+4)*5" Я получаю результат 20, x значение игнорируется, даже когда я устанавливаю значение x в 10:

update DB.dbo.INFOGROUP SET formula = '(x+4)*5' where INFOGROUP = 'S42'

Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
    Dim SC As New MSScriptControl.ScriptControl
    Dim x As Double = 10
    SQL.AddParam("@infogroup", "S42")
    SQL.ExecQuery($"SELECT formula FROM DB.dbo.INFOGROEP where infogroep=@infogroep")
    Dim Formula As String = <string_from_db>
    'SET LANGUAGE TO VBSCRIPT
    SC.Language = "VBSCRIPT"
    'ATTEMPT MATH
    Try
        Dim Result As Double = Convert.ToDouble(SC.Eval(Formula))
        'SHOW THAT IT WAS VALID
        MessageBox.Show("Math success, " & Formula & " equals " & Result.ToString)
    Catch ex As Exception
        'SHOW THAT IT WAS INVALID
        MessageBox.Show("Not a valid math formula for a double.")
    End Try
End Sub

Это вообще возможно или мне нужен сторонний скрипт для этого?

Кстати: в Visual Foxpro появилась такая функция EVAL(db_string),

Answer 1

Механизм сценариев не знает о переменных в ваших методах. Если вы хотите оценить формулу, которая содержит переменную, вам нужно указать, какое значение имеет эта переменная:

SC.Language = "VBSCRIPT"
sc.AddCode "Private Const x = 10"

Dim Result As Double = Convert.ToDouble(SC.Eval(Formula))