Nella tabella seguente sono elencate le costanti e la relativa descrizione.
Tabella 11-5 Costanti di confronto e descrizioni
| Costante | Valore | Descrizione |
|---|---|---|
vbBinaryCompare |
0 | Esegue un confronto binario |
vbTextCompare |
1 | Esegue un confronto testuale |
Negli esempi seguenti viene illustrato l'uso delle costanti di confronto.
Esempio 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
Esempio 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
Esempio 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 )