Vraag : Het gebruiken van RegExp om te simuleren als

Ik moet „als“ test aangaande koord in een VBScript met patronen uitvoeren die * vervangingen bevatten.  Ik ben zeker dit met RegExp kan worden gedaan, maar ik word werkelijk niet hoe het werkt.  Kan iemand hoe te om deze code te voltooien adviseren?

Function IsLike (Waarde, Patroon)
Schemerige RXObject, RXPattern
Vastgestelde RXObject = NewRexExp
met RXObject
. Globaal = True
.IngoreCase = True
RXPattern = ......
.RXPattern = RXPattern
IsLike =. Van de test (Waarde)
het Eind With
Vastgestelde RXObject = Nothing
End Function

Mike

Antwoord : Het gebruiken van RegExp om te simuleren als

Het bekijken gelijkaardig voor gelijkaardig:

Functie IsLike (Waarde, Patroon)
Schemerige regEx
   
    Reeks regEx = CreateObject („vbscript.regexp“)
        Met regEx
            . Globaal = Waar
            .IgnoreCase = Waar
            . Het patroon = „^“ & vervangt (Patroon, „*“,“. {0,} „) & „$“
            IsLike =. Test (Waarde)
        Eind met
    Reeks regEx = niets
De Functie van het eind

Controlecodes tussen de koorden terwijl zal goedkeuren

Functie IsLike (Patroon ByVal TextVal, ByVal)
  Schemerige RXP
  IsLike = Vals
  Vastgesteld RXP = Nieuwe RegExp
    Met RXP
      . Globaal = Waar
      .IgnoreCase = Waar
      . Het patroon = „^“ & vervangt (Patroon, „*“,“ [\ x20- \ x7E] * ") & „$“
      IsLike =. Test (TextVal)
    Eind met
  Vastgesteld RXP = niets
De Functie van het eind

Zal verzekeren de enige karakters tussen de componenten alphanumerics en gemeenschappelijke punctuatie zijn.

Chris