Método CompareMode

Define y devuelve el modo de comparación para comparar claves de cadena en un objeto Dictionary.

Sintaxis

object.CompareMode[ = compare]

Argumentos:

• Object: necesario. Siempre es el nombre de un objeto Dictionary.

• Compare: opcional. Si se proporciona, compare es un valor que representa el modo de comparación. Los valores aceptables son 0 (binario), 1 (texto), 2 (base de datos). Los valores superiores a 2 se pueden utilizar para hacer referencia a comparaciones mediante ID de configuración regional (LCID) específicos.

Observaciones

Se produce un error si intenta cambiar el modo de comparación de un objeto Dictionary que ya contiene datos.

En el siguiente ejemplo se muestra el uso de la propiedad CompareMode:

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

Ejemplo 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