Come chiamare una funzione (con parametri) che si trova nella libreria delle funzioni, prendendo il nome della funzione da una variabile?

Question

Sto provando a utilizzare getref per chiamare una funzione dalla libreria di funzioni associata al test. Il mio codice -

In action1

str = "sample" 
msg = "hi" 
x = GetRef("Function_"&str)(msg) 
msgbox x 

Nella libreria di funzioni,

Function Function_sample(strMsg) 
    Function_sample = strMsg 
End Function 

Sto ottenendo l'errore -

"Invalid procedure call or argument."

ma funziona bene se la funzione è posto nella stessa azione. Come chiamare una funzione (con parametri) che si trova nella libreria delle funzioni, prendendo il nome della funzione da una variabile?

Answer 1

minimalista esempio funzionante:

Lib.vbs:

Option Explicit 

Function Twice(n) 
    Twice = n + n 
End Function 

Main.vbs:

Option Explicit 

Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject") 

ExecuteGlobal goFS.OpenTextFile(".\lib.vbs").ReadAll() 

Dim fpTwice : Set fpTwice = GetRef("Twice") 

WScript.Echo fpTwice(42) 

uscita:

Il messaggio di errore "... errore di runtime: chiamata o argomento della procedura non valida: 'GetRef'" indica che la libreria delle funzioni (importazione della) è da incolpare.

Aggiornamento:

ho penso che è plausibile supporre che il motore VBScript mantiene una tabella che associa sub/funzione di nomi/metodo con il codice richiamabile per essere in grado di fare chiamate letterali/dirette:

n = Twice(11) 

e che GetRef ("Due volte") accede a questa tabella. Quindi non mi aspetterei mai che una chiamata indiretta/'puntatore di funzione' o un GetRef() falliscano quando l'invocazione letterale ha esito positivo.

Ma secondo this e that, ci sono almeno quattro modi per 'importazione' librerie/moduli in QTP e come Non faccio uso di QTP non posso escludere che alcuni (o anche tutti) di questi metodi fare qualcosa di sciocco per causare il comportamento scorretto che descrivi.

Answer 2

Ho affrontato lo stesso issue e ho scoperto che associare o caricare le librerie funzionali non funziona per GetRef. Per aggirare questo problema, tutto quello che devi fare è invece di associare o caricare il tuo FL, eseguirlo usando la funzione ExecuteFile.

In action1

ExecuteFile "/path/functionallibrary.vbs" 
str = "sample" 
msg = "hi" 
x = GetRef("Function_" & str)(msg) 
msgbox x