StrComp-Funktion

Gibt einen Wert zurück, der das Ergebnis eines Zeichenfolgenvergleichs angibt.

Syntax

StrComp(string1, string2[, compare])

Argumente:

  • string1: Erforderlich. Beliebiger gültiger Zeichenfolgenausdruck.
  • string2: Erforderlich. Beliebiger gültiger Zeichenfolgenausdruck.
  • Compare: Optional. Numerischer Wert, der die Art des Vergleichs angibt, der beim Auswerten von Zeichenfolgen verwendet werden soll. Wird diese Option ausgelassen, wird ein binärer Vergleich durchgeführt. Werte finden Sie im Abschnitt Einstellungen.
  • Einstellungen: Das Argument "compare" kann die folgenden Werte aufweisen:

    Tabelle 11-21 Vergleichskonstanten und Beschreibungen

    Konstante Wert Beschreibung
    vbBinaryCompare 0 Binären Vergleich durchführen
    vbTextCompare 1 Textvergleich durchführen

Rückgabewert

Die StrComp-Funktion hat die folgenden Rückgabewerte:

Tabelle 11-22 Rückgabewerte der StrComp-Funktion

Ausgangssituation Rückgabewerte von StrComp
string1 ist kleiner als string2 -1
string1 ist gleich string2 0
string1 ist größer als string2 1

Anmerkungen

Im folgenden 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 ausgelassen wird, wird ein binärer Vergleich durchgeführt. Wenn das dritte Argument ausgelassen wird, wird ein Systemstandardvergleich durchgeführt.

Das folgende Beispiel veranschaulicht die Verwendung der StrComp-Funktion:

Beispiel 1:

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"   ' Define variables.
MyComp = StrComp(MyStr2, MyStr1)   
' Output: 1

MyComp = StrComp(MyStr1, MyStr2, 1)   
' Output: 0
MyComp = StrComp(MyStr1, MyStr2, 0)   
' Output: -1

Beispiel 2:

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD"
MyStr2 = "XYZ"
MyComp = StrComp(MyStr1, MyStr2)   
' Output: -1

Beispiel 3:

Dim MyStr1, MyStr2, MyComp
MyStr1 = "XYZ"
MyStr2 = "ABCD"
MyComp = StrComp(MyStr1, MyStr2)   
' Output: 1