Busca - VBWEB

Do site do tio marcorati:

Os valores adotados para comparação no modelo são:

Caracteres no Modelo      Valor comparativo na string
?      Qualquer caractere simples
*      Nenhum ou mais de um caractere
#      Qualquer digito simples ( "0", ..."9")
[charlist]      Qualquer caractere simples da lista de caracteres
[!charlist]      Qualquer caractere simples da não presentes lista de caracteres

Vejamos alguns exemplos :

Comparação


Resultado
"ABCD"   Like   "AB?D"      True
"ABC3D"  Like  "ABC#D"      True
"ABCD"   Like  "A???D"      False
"A$1D"   Like  "A*D"      True

Dim Compara
Compara = "aBBBa" Like "a*a"                      ' Retorna True.
Compara = "F" Like "[A-Z]"                          ' Retorna True.
Compara = "F" Like "[!A-Z]"                         ' Retorna False.
Compara = "a2a" Like "a#a"                         ' Retorna True.
Compara = "aM5b" Like "a[L-P]#[!c-e]"          ' Retorna True.
Compara = "BAT123khg" Like "B?T*"              ' Retorna True.
Compara = "CAT123khg" Like "B?T*"              ' Retorna False.