Pytanie : Using RegExp Podobieństwo

I potrzebować "Jak" test na sznurek w VBScript z wzór który zawierać * wildcards.  I być pewny ono móc robić z RegExp, ale I naprawdę dostawać jak ono pracować.  Móc kod dlaczego ten kod?

Function IsLike (Wartość, Wzór)
Ćmić RXObject, RXPattern
Ustalony RXObject = NewRexExp
Z RXObject
. Globalny = True
.IngoreCase = True
RXPattern = ......
.RXPattern = RXPattern
IsLike =. Badać (Wartość)
Końcówka With
Ustalony RXObject = Nothing
End Function

Mike

Odpowiedź : Using RegExp Podobieństwo

Przy jak dla jak:

Funkcja IsLike (Wartość, Wzór)
Ciemnawy regEx
   
    Ustalony regEx = CreateObject ("vbscript.regexp")
        Z regEx
            . Globalny = Prawdziwy
            .IgnoreCase = Prawdziwy
            . Wzór = "^" & Zamieniać (Wzór, "*",". {(0),} ") & "$"
            IsLike =. Test (Wartość)
        Końcówka Z
    Ustalony regEx = Nic
Końcówka Funkcja

Akceptować kontrolny kod między the sznurek podczas gdy

Funkcja IsLike (ByVal TextVal, ByVal Wzór)
  Ciemnawy RXP
  IsLike = Fałszywy
  Set RXP = Nowy RegExp
    Z RXP
      . Globalny = Prawdziwy
      .IgnoreCase = Prawdziwy
      . Wzór = "^" & Zamieniać (Wzór, "*"," [\ x20- \ x7E] *") & "$"
      IsLike =. Test (TextVal)
    Końcówka Z
  Set RXP = Nic
Końcówka Funkcja

Zapewniać the jedyny charakter między the składnik być alphanumerics i pospolity interpunkcja.

Chris