Question : Using RegExp pour simuler le goût

Je dois exécuter « comme » l'essai sur la corde dans un VBScript avec les modèles qui contiennent * des cartes d'invitation.  Je suis sûr que ceci peut être fait avec RegExp, mais je n'obtiens pas vraiment comment cela fonctionne.  Est-ce que quelqu'un peut conseiller comment accomplir ce code ? Le
du

Function IsLike (valeur, modèle) obscurcissent RXObject, RXPattern
RXObject = NewRexExp
avec RXObject
. Global = True
.IngoreCase = True
RXPattern = ......
.RXPattern = RXPattern
IsLike =. Extrémité With
RXObject = Nothing
End Function

Mike
du
d'essai (valeur) class= de

Réponse : Using RegExp pour simuler le goût

Regarder comme pour comme :

Fonction IsLike (valeur, modèle)
Faible regEx
   
    Placer le regEx = le CreateObject (« vbscript.regexp »)
        Avec le regEx
            . Global = rectifier
            .IgnoreCase = rectifient
            . Le modèle = « ^ » et remplacent (modèle, « * », ». {0,} ") et « $ »
            IsLike =. Examiner (valeur)
        Finir avec
    Placer le regEx = rien
Finir la fonction

Acceptera des codes de commande entre les cordes tandis que

Fonction IsLike (ByVal TextVal, modèle de ByVal)
  Faible RXP
  IsLike = faux
  Placer RXP = nouveau RegExp
    Avec RXP
      . Global = rectifier
      .IgnoreCase = rectifient
      . Le modèle = « ^ » et remplacent (modèle, « * », » [\ x20- \ x7E] *") et « $ »
      IsLike =. Examiner (TextVal)
    Finir avec
  Placer RXP = rien
Finir la fonction

S'assurera que les seuls caractères entre les composants sont des alphanumériques et ponctuation commune.

Chris