Вопрос : Using RegExp для того чтобы сымитировать подобие

Мне нужно выполнить «как» испытание по шнур в VBScript с картинами содержат * специальные символы.  Я уверен это можно сделать с RegExp, но я реально не получаю как он работает.  Может кто-то советовать как завершить это Кодего?


Function IsLike (значения, картины) затемняет RXObject, RXPattern
установленные RXObject = NewRexExp
с RXObject
. Глобально = True
.IngoreCase = True
RXPattern = ......
.RXPattern = RXPattern
IsLike =. Конец With
установленные RXObject = Nothing
End Function

Mike

испытания (значения) class=

Ответ : Using RegExp для того чтобы сымитировать подобие

Смотреть на как для как:

Функция IsLike (значение, картина)
Тусклое regEx
   
    Установите regEx = CreateObject («vbscript.regexp»)
        С regEx
            . Глобально = True
            .IgnoreCase = True
            . Картина = «^» & заменяет ть (картина, «*»,». {0,} ") & «$»
            IsLike =. Испытайте (значение)
        Закончитесь с
    Установите regEx = ничего
Закончите функцию

Признавает Кодих управления между шнурами тогда как

Функция IsLike (ByVal TextVal, картина ByVal)
  Тусклое RXP
  IsLike = ложно
  Установите RXP = новое RegExp
    С RXP
      . Глобально = True
      .IgnoreCase = True
      . Картина = «^» & заменяет ть (картина, «*»,» [\ x20- \ x7E] *") & «$»
      IsLike =. Испытайте (TextVal)
    Закончитесь с
  Установите RXP = ничего
Закончите функцию

Обеспечит единственными характерами между компонентами будут alphanumerics и обычный пунктуацией.

Крис