CompareMode-Methode

Legt den Vergleichsmodus zum Vergleich von Zeichenfolgeschlüsseln in einem Dictionary-Objekt fest und gibt diesen zurück.

Syntax

object.CompareMode[ = compare]

Argumente:

• Object: Erforderlich. Immer der Name eines Dictionary-Objekts.

• Compare: Optional. Falls angegeben, stellt der Compare-Wert den Vergleichsmodus dar. Zulässige Werte sind 0 (Binär), 1 (Text), 2 (Datenbank). Werte größer als 2 können verwendet werden, um auf Vergleiche mit bestimmten Gebietsschema-IDs (LCIDs) zu verweisen.

Anmerkungen

Ein Fehler tritt auf, wenn Sie versuchen, den Vergleichsmodus eines Dictionary-Objekts zu ändern, das bereits Daten enthält.

Das folgende Beispiel veranschaulicht die Verwendung der Eigenschaft CompareMode:

Beispiel 1:

Sub TextCompareExample
    Dim d   ' Create a variable.
    Set d = CreateObject("Scripting.Dictionary")

    ' Set comparison mode to Text (case-insensitive)
    d.CompareMode = vbTextCompare

    ' Add some keys and items.
    d.Add "a", "Athens"
    d.Add "b", "Belgrade"
    d.Add "c", "Cairo"

    ' Try to add a key that differs only in case
    On Error Resume Next
    d.Add "B", "Baltimore"
    Number = Err.Number
    If Number <> 0 Then
              Msg = "Error: Key 'b' already exists."
        Err.Clear
    End If
    On Error GoTo 0
 End Sub
' Output: Error: Key 'b' already exists.

Beispiel 2:

Sub BinaryCompareExample
    Dim d   ' Create a variable.
    Set d = CreateObject("Scripting.Dictionary")

    ' Set comparison mode to Binary (case-sensitive)
    d.CompareMode = vbBinaryCompare

    ' Add some keys and items.
    d.Add "x", "Xenon"
    d.Add "y", "Yttrium"
    d.Add "z", "Zirconium"

    ' Try to add a key "X" which is different from "x"
    d.Add "X", "X-Ray"
 End Sub
' Output: Dictionary Object Contain Keys: x,y,z,X Items: Xenon,Yttrium,Zirconium,X-Ray