Gibt eine Variante (Ganzzahl) zurück, die das Ergebnis eines Zeichenfolgenausdrucks angibt.
Syntax
StrComp(string1, string2 [, compare ] )
Die Syntax der Funktion StrComp weist die folgenden Argumente auf:
| Argument | Beschreibung |
|---|---|
| Zeichenfolge1 | Erforderlich. Ein gültiger Zeichenfolgenausdruck. |
| Zeichenfolge2 | Erforderlich. Ein gültiger Zeichenfolgenausdruck. |
| Vergleich | Optional. Gibt den Typ des Zeichenfolgenvergleichs an. Wenn dasVergleichsargument NULL ist, tritt ein Fehler auf. Wenn Vergleichen weggelassen wird, bestimmt die Option Vergleichseinstellung den Vergleichstyp. |
Einstellungen
Die Einstellungen für das Argument Zeichenvergleich lauten:
| Konstante | Wert | Beschreibung |
|---|---|---|
| vbBinaryCompare | 0 | Führt einen binären Vergleich durch. |
| vbTextCompare | 1 | Führt einen Textvergleich durch. |
Rückgabewerte
Die StrComp-Funktion hat die folgenden Rückgabewerte:
| Wenn | StrComp gibt zurück |
|---|---|
| Zeichenfolge1 ist kleiner als Zeichenfolge2 | -1 |
| Zeichenfolge1 ist gleich Zeichenfolge2 | 0 |
| Zeichenfolge1 ist größer als Zeichenfolge2 | 1 |
| Zeichenfolge1 oder Zeichenfolge2 ist Null | Null |
Abfragebeispiel
| Ausdruck | Ergebnisse |
|---|---|
| SELECT ProductSales.ProductID, StrComp(ProductID,"PRO_XYZ10") AS ComparisonResult FROM ProductSales; | Gibt die Werte aus dem Feld "ProductID" zurück, vergleicht die Werte in "ProductID" mit "PRO_XYZ1" und gibt die Ergebnisse in Spalte ComparisonResult zurück. "ProductID" ist gleich "PRO_XYZ10", die StrComp-Funktion gibt 0 zurück. Wenn "ProductID" kleiner als "PRO_XYZ10" ist, gibt die StrComp-Funktion -1 zurück. Wenn "ProductID" größer als "PRO_XYZ10" ist, gibt die StrComp-Funktion den Wert "1" zurück. Wenn entweder "Produkt-ID" oder "PRO_XYZ10" NULL ist, gibt die StrComp-Funktion NULL zurück. |
VBA-Beispiel
Hinweis
Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications).
In diesem Beispiel wird die StrComp-Funktion verwendet, um die Ergebnisse eines Zeichenfolgenvergleichs zurückzugeben. Wenn das dritte Argument 1 ist, wird ein Textvergleich durchgeführt. Wenn das dritte Argument 0 ist oder weggelassen wird, wird ein binärer Vergleich durchgeführt.
Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd" ' Define variables.
MyComp = StrComp(MyStr1, MyStr2, 1) ' Returns 0.
MyComp = StrComp(MyStr1, MyStr2, 0) ' Returns -1.
MyComp = StrComp(MyStr2, MyStr1) ' Returns 1.