[WSH] Почему не работает скрипт?

Тема в разделе "Другие языки", создана пользователем RedRabbit, 31 мар 2009.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. RedRabbit

    RedRabbit

    Регистр.:
    11 июл 2008
    Сообщения:
    606
    Симпатии:
    251
    Помогите пожалуйста.
    Код:
    'проверка соответствия шаблону. Возвращаемое значение - булево (число). 
    Option Explicit
    Dim objRegExp, Str
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Pattern = "абв+"
    Str = "абвввггг"
    MsgBox objRegExp.Test(Str)
    'Если истинно выводим YAHOO!!!, но почему то не работает:(
    if Str = True Then 
    MsgBox "YAHOO!!!"
    End If
    if objRegExp.Test(Str) = true Then
    Извиняюсь не ту переменную поставил, а промучился целый час.

    Тема закрыта. Модераторы можете удалить.
     
Статус темы:
Закрыта.