Esaminando come per come:
Funzione IsLike (valore, modello)
regEx fioco
Regolare il regEx = CreateObject (“vbscript.regexp„)
Con regEx
. Globale = allineare
.IgnoreCase = allineano
. Il modello = “^„ & sostituisce (modello, “*„,„. {0,} ") & “$„
IsLike =. Provare (valore)
Concluder con
Regolare il regEx = niente
Concludere la funzione
Accetterà i codici di controllo fra le stringhe mentre
Funzione IsLike (ByVal TextVal, modello di ByVal)
RXP fioco
IsLike = falso
Regolar RXP = nuovo RegExp
Con RXP
. Globale = allineare
.IgnoreCase = allineano
. Il modello = “^„ & sostituisce (modello, “*„,„ [\ x20- \ x7E] *") & “$„
IsLike =. Provare (TextVal)
Concluder con
Regolar RXP = niente
Concludere la funzione
Si accerterà che gli unici caratteri fra le componenti siano display alfanumerico e punteggiatura comune.
Chris