Question

NCalc全新。

我有一个要评估的公式，我得到一些意想不到的（对我而言）结果。

使用的@T_No_Starters参数= 12。

如果公式为if (@T_No_Starters >= 8 ,'T','F')结果为假

如果公式为if (@T_No_Starters >= 8.0 ,'T','F')结果为TRUE

如果公式为if (@T_No_Starters >= 10 ,'T','F')结果为TRUE

我不确定发生了什么，为什么8 False但8.0是True但10又是一个整数是真的吗？如何确保评估始终正确？我将每个数字都变成十进制吗？我可以设置类似参数类型的东西吗？我什么时候输入我的参数？

以下是我用来达到上述目的的测试代码。

Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
        Dim FormulaLine As String = "if (@T_No_Starters >= 8 ,'T','F')"

        Dim Parms As New Dictionary(Of String, String)
        Parms.Add("T_No_Starters", 12)
        Dim OurAnswer = FormulaCalculator.MSGBOXEval(FormulaLine, Parms)
    End Sub

Function MSGBOXEval(Formula As String, Parms As Dictionary(Of String, String))

        Try
            Dim X As New Expression(Formula)
            For Each key As String In Parms.Keys
                X.Parameters.Add(key, Parms.Item(key))
            Next

            Dim result = X.Evaluate
            MessageBox.Show(result)
            Return result
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Return "Error " & ex.Message
        End Try

        Return 0
    End Function

我最好不要将公式中的值更改为十进制。大于等于8的启动器而不是8.0。它只是看起来不对劲。参数字典是字符串和字符串，我必须使用它，因为有些是字符串。是否像在需要值时确保参数是值一样简单？

Answer 1

这是一个相当晚的答案，但我将其发布给未来的读者。

您的字典由字符串组成：

Dim Parms As New Dictionary(Of String, String)

原始参数类型无关紧要，VB将为您转换为字符串：

Parms.Add("T_No_Starters", 12)

相当于：

Parms.Add("T_No_Starters", "12")

现在很明显你要将参数添加为字符串：

Dim X As New Expression(Formula)
For Each key As String In Parms.Keys
    X.Parameters.Add(key, Parms.Item(key))
Next

NCalc将尝试转换类型并评估表达式而不会出错：

if (@T_No_Starters >= 8 ,'T','F')

相当于：

if (@T_No_Starters >= '8' ,'T','F')

因为它是字符串比较（没有自然排序），所以'12' >= '8'正确FALSE（其他示例也合理）。< / p>

你应该怎么做？只需更改字典的类型以避免任何隐式转换，让NCalc为您执行此操作：

Dim Parms As New Dictionary(Of String, Object)

和

Function MSGBOXEval(Formula As String, Parms As Dictionary(Of String, Object))

请注意，使用Object，您仍然可以在字典中添加任何类型：

Params.Add("T_Text", "some text") 
Params.Add("T_Beginning", DateTime.Now)

在NCalc中为什么'if（12＆gt; 8）'解析为false？

1 个答案: