IsLeer

Manchmal ist es ganz nützlich mittels einer Funktion zu prüfen, ob eine Variable NULL, Nothing, Leer (Empty), einen leeren String enthält oder bei einem Zahlenwert gleich Null (0) ist. Mit den hauseigenen Mitteln von VBScript benötigt man für diese Prüfung mehr als eine Funktion. Will man oben genannte Prüfung häufiger durchführen so erspart es Arbeit diese Funktionen in eine Funktion IsLeer einzubinden:

VBScript:

Wechseln: kein Zeilenumbruch

1. Function IsLeer(CheckValue)
2.  If (TypeName(CheckValue) = "Nothing") Then ' Die Variable ist Nothing
3.   IsLeer = True
4.  ElseIf (IsObject(CheckValue) = False) Then ' Die Variable ist kein Objekt
5.   If (IsNumeric(CheckValue) = True) Then ' Die Variable ist ein Zahlenwert
6.    If (CheckValue = 0) Then ' Der Zahlenwert ist gleich Null
7.     IsLeer = True
8.    ElseIf (IsNull(CheckValue) = True OR IsEmpty(CheckValue) = True OR Trim(CheckValue) = "") Then ' Die Variable ist NULL oder Leer
9.     IsLeer = True
10.    Else
11.     IsLeer = False
12.    End If
13.   ElseIf (IsNull(CheckValue) = True OR IsEmpty(CheckValue) = True OR Trim(CheckValue) = "") Then ' Die Variable ist NULL oder Leer
14.    IsLeer = True
15.   Else
16.    IsLeer = False
17.   End If
18.  Else ' Die Variable ist ein Objekt
19.   IsLeer = False
20.  End If
21. End Function

Diese Funktion gibt den boolschen Wert „True” (Wahr) zurück, wenn die Variable NULL, Nothing, Leer (Empty), einen leeren String enthält oder bei einem Zahlenwert gleich Null ist. Handelt es sich bei der Variablen um ein Objekt, ist ein String ungleich "" vorhanden oder ein Zahlenwert ungleich Null, so liefert die Funktion den boolschen Wert „False” (Falsch) zurück.