Vista em como para como:
Função IsLike (valor, teste padrão)
regEx não ofuscante
Ajustar o regEx = o CreateObject (“vbscript.regexp”)
Com regEx
. Global = retificar
.IgnoreCase = retificam
. O teste padrão = “^” & substitui (teste padrão, “*”,”. {0,} ") & “$”
IsLike =. Testar (valor)
Terminar com
Ajustar o regEx = nada
Terminar a função
Aceitará códigos de controle entre as cordas visto que
Função IsLike (ByVal TextVal, teste padrão de ByVal)
RXP não ofuscante
IsLike = falso
Ajustar RXP = RegExp novo
Com RXP
. Global = retificar
.IgnoreCase = retificam
. O teste padrão = “^” & substitui (teste padrão, “*”,” [\ x20- \ x7E] *") & “$”
IsLike =. Testar (TextVal)
Terminar com
Ajustar RXP = nada
Terminar a função
Assegurar-se-á de que os únicos caráteres entre os componentes sejam indicadores alfanuméricos e pontuação comum.
Chris