function - 调用存储在字符串变量中的函数名称？

Question

这个问题已经有答案了:

Is it possible to call a function whose name is stored in a string in vbscript? (3 个回答)

已关闭 6 年前。

我正在使用 VBScript，我想知道是否有任何方法可以调用存储在字符串变量中的函数名称？

这是我的尝试？

a = "b"

sub b() 
    msgbox "c"
end sub

a()

但它总是会导致错误

Type mismatch 'a'

Answer 1

正确答案是:使用 GetRef() 如下:

Function F(p)
  F = p + p
End Function

Dim FP : Set FP = GetRef("F")

WScript.Echo FP("a")
WScript.Echo FP(123)

输出:

aa
246