Inline If (Ternärer Operator) in VBScript
VBScript bietet von Hause aus kein Inline-If und keinen Ternären Operator an wie dies z.B. bei PHP der Fall ist:
$i = 1;
echo 'Die Variable $i ist ' . (($i == 1) ? 'gleich' : 'ungleich') . ' Eins.'; // Einfaches Beispiel eines Inline Ifs in PHP.
Mit einer einfachen Funktion kann man dieses Manko beheben:
Function IIf(bCondition, TrueVal, ElseVal)
If bCondition Then
IIf = TrueVal
Else
IIf = ElseVal
End If
End Function
Die Funktion lässt sich vergleichbar einem ternären Operator nutzen:
Dim i : i = 1
MsgBox Cstr("Die Variable i ist " & IIf((i = 1), "gleich", "ungleich") & " Eins.")