Cuestión : Usar RegExp para simular gusto

Necesito realizar “como” prueba en secuencia en un VBScript con los patrones que contienen * los comodines.  Estoy seguro que esto se puede hacer con RegExp, pero no consigo realmente cómo trabaja.  ¿Puede alguien aconsejar cómo terminar este código? El
del

Function IsLike (valor, patrón) amortigua RXObject, RXPattern
RXObject = NewRexExp
con RXObject
. Global = True
.IngoreCase = True
RXPattern = ......
.RXPattern = RXPattern
IsLike =. Extremo With
RXObject = Nothing
End Function

Mike
del
de la prueba (valor) class= del

Respuesta : Usar RegExp para simular gusto

El parecer como para:

Función IsLike (valor, patrón)
regEx dévil
   
    Fijar el regEx = CreateObject (“vbscript.regexp”)
        Con el regEx
            . Global = verdad
            .IgnoreCase = verdad
            . El patrón = “^” y substituye (patrón, “*”,”. {0,} ") y “$”
            IsLike =. Probar (valor)
        Terminar con
    Fijar el regEx = nada
Terminar la función

Aceptará códigos de control entre las secuencias mientras que

Función IsLike (ByVal TextVal, patrón de ByVal)
  RXP dévil
  IsLike = falso
  Fijar RXP = nuevo RegExp
    Con RXP
      . Global = verdad
      .IgnoreCase = verdad
      . El patrón = “^” y substituye (patrón, “*”,” [\ x20- \ x7E] *") y “$”
      IsLike =. Probar (TextVal)
    Terminar con
  Fijar RXP = nada
Terminar la función

Se asegurará que los únicos carácteres entre los componentes sean alfanuméicos y puntuación común.

Chris