Méthode CompareMode

Définit et renvoie le mode de comparaison des clés de chaîne dans un objet Dictionary.

Syntaxe

object.CompareMode[ = compare]

Arguments :

• object : requis. Toujours le nom d'un objet Dictionary.

• compare : facultatif. Si indiqué, compare est une valeur représentant le mode de comparaison. Les valeurs acceptables sont 0 (Binaire), 1 (Texte) et 2 (Base de données). Les valeurs supérieures à 2 peuvent être employées pour faire référence à des comparaisons utilisant des ID d'environnement local (LCID) spécifiques.

Remarques

Une erreur survient si vous essayez de modifier le mode de comparaison d'un objet Dictionary qui contient déjà des données.

Les exemples suivants illustrent l'utilisation de la propriété CompareMode :

Exemple 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.

Exemple 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