VB.NET - 字符串和委托字典

Question

我正在尝试创建一个程序，用于输入来自用户的命令，例如“add 2 4”，然后根据该命令调用方法。 所以我输入命令字符串“add 2 4”，然后解析器读取第一个单词“add”并输出它作为例程的名称，将该例程名称发送到带有参数的另一个sub，然后调用相关的sub 。

基本上我试图避免这种情况：

Select Case RoutineName.ToUpper
    Case "ADD"
        Add(Param1, Param2)
    Case "SUBTRACT"
        Subtract(Param1, Param2)
    Case "MULTIPLY"
        Multiply(Param1, Param2)
    ...

因为我希望能够轻松地添加对新子的引用，而不必不断更新Selection语句。

我看到其他人有同样的问题： 在.NET中基于字符串值创建一个方法调用，但我无法理解他的问题的任何答案，或者他们不是在VB中。 一个人建议使用代表字典，字符串作为键。 这听起来是一个好主意，但代表们对我很困惑：有人能告诉我这个解决方案是如何实施的吗？

Answer 1

你必须看看反射 。 在.NET上搜索，VB.NET中也有很多例子。 我可以建议的策略是有一个实现Add Subtract等函数的类，并使用反射GetMethod（）和Invoke（）根据命令字符串调用它们。

一个例子可能是：

Type type = calcobject.GetType();
MethodInfo method = type.GetMethod(RoutineName);
if (method != null)
{
    method.Invoke(this, ...parameters...);
}

使用委托字典可能会更好，但它不能满足您的自动绑定请求：当您决定扩展解释器所理解的功能时，您需要在字典中手动添加新函数。 你甚至可以自动填写字典; 但在这种情况下，反思又出现了。

Answer 2

我使用数组，以防你想将可变数量的参数传递给函数。 你没必要

Dim methods As New Dictionary(Of String, Func(Of Double(), Double))
Dim results as double

methods.Add("Add", Function(values() As Double) values(0) + values(1))
methods.Add("Sub", Function(values() As Double) values(0) - values(1))
methods.Add("Mul", Function(values() As Double) values(0) * values(1))
methods.Add("Div", Function(values() As Double) values(0) / values(1))

results = methods("Add")(New Double() {1, 2})
results = methods("Sub")(New Double() {5, 3})
results = methods("Mul")(New Double() {4, 8})
results = methods("Div")(New Double() {1, 2})

没有阵列......

Dim methods As New Dictionary(Of String, Func(Of Double, Double, Double))

methods.Add("Add", Function(a As Double, b As Double)
                       Return a + b
                   End Function)

methods.Add("Sub", Function(a As Double, b As Double)
                       Return a - b
                   End Function)

methods.Add("Mul", Function(a As Double, b As Double)
                       Return a * b
                   End Function)

methods.Add("Div", Function(a As Double, b As Double)
                       Return a / b
                   End Function)

results = methods("Add")(1, 2)
results = methods("Sub")(5, 3)
results = methods("Mul")(4, 8)
results = methods("Div")(1, 2)