Se på något liknande för något liknande:
Fungera IsLike (värdera, mönstra),
Dunkel regEx
Fastställd regEx = CreateObject (”vbscript.regexp”)
Med regEx
. Globalt = True
.IgnoreCase = True
. Mönstra = ”^” & byt ut (mönstra, ”*”,”. {0,} ”) & ”$”,
IsLike =. Testa (värdera),
Avsluta med
Fastställd regEx = ingenting
Avsluta fungerar
Ska acceptera kontrollerar kodifierar mellan stränger eftersom
Fungera IsLike (ByVal TextVal, ByVal mönstrar),
Dunkel RXP
IsLike = falskt
Uppsättning RXP = nya RegExp
Med RXP
. Globalt = True
.IgnoreCase = True
. Mönstra = ”^” & byt ut (mönstra, ”*”,” [\ x20- \ x7E] * ") & ”$”,
IsLike =. Testa (TextVal)
Avsluta med
Uppsättning RXP = ingenting
Avsluta fungerar
Ska se till att de enda teckenen mellan delarna är visningar och vanligt interpunktion.
Chris