vbscript - 是否可以调用名称存储在 vbscript 中的字符串中的函数？

Question

我正在尝试像这样在 qtp 中编写脚本

Public Function sayhi

msgbox "hi"

end

Dim level0

dim count1
 count1 = DataTable.GetSheet("Action1").GetRowCount
msgBox  count1

For counterVariable = 1 to count1
    functionname =  DataTable.value("methodnames","Action1")
    call functionname
    DataTable.GetSheet("Action1").SetCurrentRow(counterVariable)
Next

假设 functionname 将有一个值说“sayhi”。我可以使用该值来调用函数吗？就像我在代码“调用函数名”中所做的那样。

我知道它不起作用，但如何进行这样的调用？

Answer 1

使用 GetRef() 获取对子或函数的“指针”/引用:

Option Explicit

Sub S1( s )
  WScript.Echo "S1:", GetRef( "F1" )( s )
End Sub

Function F1( s )
  F1 = UCase( s )
End Function

Dim sName : sName     = "S1"
Dim subS1 : Set subS1 = GetRef( sName )

subS1 "abc"

输出:

cscript getrefdemo.vbs
S1: ABC