VBScript関数が定義されているかどうかを調べる方法はありますか？

Question

これはおそらく考えているだけのことでしょう...

ASP/VBScript関数が呼び出される前に定義されているかどうかを確認する方法はありますか？

Answer 1

それが「On Error Resume Nextを」設定したに依存しているとしてそれを行うには少しハック方法ですが、あなたはこのような何か行うことができます：GetRefへの呼び出しがあれば、例外を生成します

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 

をサブ関数、またはポインタを取得しようとしている関数が存在しません（DoStuff2の場合のように）。その後、参照が期待どおりに設定されているかどうかを確認できます。ここで

Answer 2

同じ原理で動作します私の解決策ですが、ハックネスはかなり自己完結型である：

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