El parecer como para:
Función IsLike (valor, patrón)
regEx dévil
Fijar el regEx = CreateObject (“vbscript.regexp”)
Con el regEx
. Global = verdad
.IgnoreCase = verdad
. El patrón = “^” y substituye (patrón, “*”,”. {0,} ") y “$”
IsLike =. Probar (valor)
Terminar con
Fijar el regEx = nada
Terminar la función
Aceptará códigos de control entre las secuencias mientras que
Función IsLike (ByVal TextVal, patrón de ByVal)
RXP dévil
IsLike = falso
Fijar RXP = nuevo RegExp
Con RXP
. Global = verdad
.IgnoreCase = verdad
. El patrón = “^” y substituye (patrón, “*”,” [\ x20- \ x7E] *") y “$”
IsLike =. Probar (TextVal)
Terminar con
Fijar RXP = nada
Terminar la función
Se asegurará que los únicos carácteres entre los componentes sean alfanuméicos y puntuación común.
Chris