Questione : Using RegExp per simulare simile

Devo effettuare “come„ la prova su stringa in un VBScript con i modelli che contengono * caratteri sostitutivi.  Sono sicuro che questo può essere fatto con RegExp, ma realmente non ottengo come funziona.  Può qualcuno raccomandare come completare questo codice? Il
del

Function IsLike (valore, modello) oscura RXObject, RXPattern
RXObject = NewRexExp
con RXObject
. Globale = True
.IngoreCase = True
RXPattern = ......
.RXPattern = RXPattern
IsLike =. Estremità With
RXObject = Nothing
End Function

Mike
del
della prova (valore) class= del

Risposta : Using RegExp per simulare simile

Esaminando come per come:

Funzione IsLike (valore, modello)
regEx fioco
   
    Regolare il regEx = CreateObject (“vbscript.regexp„)
        Con regEx
            . Globale = allineare
            .IgnoreCase = allineano
            . Il modello = “^„ & sostituisce (modello, “*„,„. {0,} ") & “$„
            IsLike =. Provare (valore)
        Concluder con
    Regolare il regEx = niente
Concludere la funzione

Accetterà i codici di controllo fra le stringhe mentre

Funzione IsLike (ByVal TextVal, modello di ByVal)
  RXP fioco
  IsLike = falso
  Regolar RXP = nuovo RegExp
    Con RXP
      . Globale = allineare
      .IgnoreCase = allineano
      . Il modello = “^„ & sostituisce (modello, “*„,„ [\ x20- \ x7E] *") & “$„
      IsLike =. Provare (TextVal)
    Concluder con
  Regolar RXP = niente
Concludere la funzione

Si accerterà che gli unici caratteri fra le componenti siano display alfanumerico e punteggiatura comune.

Chris
Altre soluzioni  
 
programming4us programming4us