Le tableau suivant répertorie les constantes et leur description :
Tableau 11-5 Constantes de comparaison et descriptions
| Constante | Valeur | Description |
|---|---|---|
vbBinaryCompare |
0 | Permet d'effectuer une comparaison binaire |
vbTextCompare |
1 | Permet d'effectuer une comparaison textuelle |
Les exemples suivants illustrent l'utilisation des constantes de comparaison :
Exemple 1 :
Dim result
result = StrComp("Hello", "hello", vbBinaryCompare)
If result = 0 Then
'Logic Strings are equal (Binary Comparison)
Else
'Logic Strings are NOT equal (Binary Comparison)
End If
'Output -> Strings are Not equal (Binary Comparison) Logic
Exemple 2 :
Dim result
result = StrComp("Hello", "hello", vbTextCompare)
If result = 0 Then
'Logic Strings are equal (Text Comparison)
Else
'Logic Strings are NOT equal (Text Comparison)
End If
'Output -> Strings are equal (Text Comparison) Logic
Exemple 3 :
Dim str1, str2
str1 = "Apple"
str2 = "apple"
If StrComp(str1, str2, vbTextCompare) < 0 Then
'Logic If
Else
'Logic Else
End If
'Output -> apple comes before Apple (Binary) ( Logic Else )