Gibt es eine Möglichkeit, zu überprüfen, um zu sehen, wenn Sie eine VBScript-Funktion definiert ist?

Dies ist wahrscheinlich nur Wunschdenken...

Gibt es eine Möglichkeit, zu überprüfen, um zu sehen, wenn Sie eine ASP/VBScript-Funktion definiert ist, bevor Sie ihn aufrufen?

InformationsquelleAutor Matthew Cole | 2009-05-28
  1. 6

    Es ist eine etwas hacky Weg, es zu tun, wie hängt es mit "On Error Resume Next", aber Sie könnte so etwas tun:

    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

    Den Aufruf GetRef wird eine Ausnahme generiert, wenn der sub oder Funktion Sie versuchen, einen Zeiger auf nicht vorhanden ist (wie es hier der Fall ist mit DoStuff2). Sie können dann prüfen, ob der Verweis gesetzt wurde, wie erwartet.

    • Sonst bist du in die Prüfung Err.Zahl nach dem Versuch, um die Funktion aufzurufen. Aber dann ist die Funktion, die Sie aufrufen können definiert werden, genannt, bekommen, aber die Quelle der Fehler, die ich denke, ist nicht, was Sie wollen.
    InformationsquelleAutor Xiaofu
  2. 15

    Hier ist meine Lösung, die funktioniert nach dem gleichen Prinzip, aber die hacky-ness ist ziemlich selbst-enthalten:

    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
    • Ja - das ist, was ich am Ende tun. 🙂
    • Könnte man vereinfachen zu FunctionExists = (Err.Number = 0) um die Boolean.
    • nicht die gleiche Arbeit. Nicht sicher, warum nicht.
    • Vereinfachen kann zu: If Err.Anzahl = 0 ist, Dann FunctionExists = True
    InformationsquelleAutor Tristan Havelick
Schreibe einen Kommentar