<\/p>\n
Normalerweise verwenden wir die Select Case-Bedingung so, dass wir im Kopf einen einen Teil des Vergleichsausdrucks platzieren und in den einzelnen Case-Zweigen die Vergleichswerte. Genau genommen ist das der große Unterschied zur If…Then-Bedingung, die immer den kompletten Ausdruck in einem Zweig darstellt. Die If…Then-Bedingung scheint daher bei der Auswertung von Zeichenketten Vorteile zu haben. Wir können aber auch die Select Case-Bedingung prima für Zeichenketten nutzen.<\/b><\/p>\n
Angenommen, wir untersuchen eine Zeichenkette, die wir in diesem Fall über eine InputBox <\/b>erhalten. Mit einer If…Then<\/b>-Bedingung können wir einfach bestimmte Auswertungen durchführen:<\/p>\n [<\/p>\n Wenn wir das mit einer Select Case<\/b>-Bedingung abbilden wollten, die manchmal übersichtlicher wirken, hätten wir außer bei der Abbildung der ersten Bedingung ein Problem:<\/p>\nPublic Sub <\/span>IfThen()\r\n Dim <\/span>strText As String<\/span>\r\n strText = InputBox(\"Text:\", \"Text eingeben\", \"abc\")\r\n If <\/span>strText = \"abc\" Then<\/span>\r\n MsgBox<\/span> \"Text ist ''abc''\"\r\n Else<\/span>If strText Like \"a*\" Then\r\n MsgBox<\/span> \"Text beginnt mit ''a''\"\r\n Else<\/span>If InStr<\/span>(1, strText, \"a\") Then\r\n MsgBox<\/span> \"Text enthält ''a''\"\r\n Else<\/span>If Right<\/span>(strText, 1) = \"a\" Then\r\n MsgBox<\/span> \"Text endet auf ''a''\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>SelectCase()\r\n Dim <\/span>strText As String<\/span>\r\n strText = InputBox(\"Text:\", \"Text eingeben\", \"abc\")\r\n Select Case strText\r\n Case <\/span>\"abc\"\r\n MsgBox<\/span> \"Text ist ''abc''\"\r\n Case <\/span>?\r\n MsgBox<\/span> \"Text beginnt mit ''a''\"\r\n Case <\/span>?\r\n MsgBox<\/span> \"Text enthält ''a''\"\r\n Case <\/span>?\r\n MsgBox<\/span> \"Text endet auf ''a''\"\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n