Frage : Using RegExp, zum des Gleichen zu simulieren

Ich muss „wie“ Test auf Schnur in einem VBScript mit Mustern durchführen, die enthalten * Wildcards.  Ich bin sicher, dass dieses mit RegExp getan werden kann, aber ich nicht wirklich erhalte, wie es funktioniert.  Kann jemand raten, wie man diesen Code abschließt?

Function IsLike (Wert, Muster)
verdunkeln RXObject, RXPattern
gesetztes RXObject = NewRexExp
mit RXObject
. Global = True
.IngoreCase = True
RXPattern = ......
.RXPattern = RXPattern
IsLike =. Test (Wert)
Ende With
gesetztes RXObject = Nothing
End Function

Mike

Antwort : Using RegExp, zum des Gleichen zu simulieren

Betrachten wie nach wie:

Funktion IsLike (Wert, Muster)
Schwaches regEx
   
    regEx = CreateObject („vbscript.regexp“) einstellen
        Mit regEx
            . Global = ausrichten
            .IgnoreCase = ausrichten en
            . Muster = „^“ u. ersetzen (Muster, „*“,“. {0,} ") u. „$“
            IsLike =. Prüfen (Wert)
        Mit beenden
    regEx einstellen = nichts
Funktion beenden

Annimmt Steuercodes zwischen den Schnüren während d

Funktion IsLike (ByVal TextVal, ByVal Muster)
  Schwaches RXP
  IsLike = falsch
  Einstellen RXP = neues RegExp
    Mit RXP
      . Global = ausrichten
      .IgnoreCase = ausrichten en
      . Muster = „^“ u. ersetzen (Muster, „*“,“ [\ x20- \ x7E] *") u. „$“
      IsLike =. Prüfen (TextVal)
    Mit beenden
  Einstellen RXP = nichts
Funktion beenden

Sicherstellt ktion, dass die einzigen Buchstaben zwischen den Bestandteilen Alphanumerik und allgemeine Interpunktion sind.

Chris