Esiste un modo per verificare se è stata definita una funzione VBScript?

Question

Questo probabilmente è solo un pio desiderio ...

C'è un modo per verificare se una funzione ASP/VBScript è definita prima di chiamarla?

Answer 1

E 'un modo un po' hacky per farlo in quanto si basa su aver impostato "On Error Resume Next", ma si potrebbe fare qualcosa di simile:

On Error Resume Next 
Dim objRef1, objRef2 
Set objRef1 = GetRef("DoStuff1") 
If objRef1 Is Nothing Then 
    Call objRef1 
Else 
    MsgBox "DoStuff1 is not defined!" 
End If 

Set objRef2 = GetRef("DoStuff2") 
If objRef2 Is Nothing Then 
    MsgBox "DoStuff2 is not defined!" 
Else 
    Call objRef2 
End If 

Sub DoStuff1 
    MsgBox "DoStuff1!" 
End Sub 

La chiamata alla GetRef genererà un'eccezione se la il sotto o la funzione a cui stai cercando di ottenere un puntatore non esiste (come nel caso di DoStuff2). È quindi possibile verificare se il riferimento è stato impostato come previsto.

Answer 2

Ecco la mia soluzione che funziona secondo lo stesso principio, ma il hacky-ness è abbastanza autosufficiente:

Function FunctionExists(func_name) 
    FunctionExists = False 

    On Error Resume Next 

    Dim f : Set f = GetRef(func_name) 

    If Err.number = 0 Then 
     FunctionExists = True 
    End If 
    On Error GoTo 0 

End Function