Регулярное выражение

[xlebobulka]

Ребят, помогите, пожалуйста, составить регэксп на VBA!
Допустим, мне нужно, чтобы он учитывал три слова кот, кит, слон. В расширении файла (кстати, да, суть в том, что он будет использоваться для поиска файлов, содержащих в любом месте названия одно из трёх слов) может быть любое экселевское расширение.
Просто в масках я писала *кот*.x*, у меня их было три и всё работало.

Накалякала objRegExp.Pattern = "(кот*|кит*|слон*.x*)",но оно вроде как не учитывает мой x*!
Скорректируйте меня, пожалуйста!
Спасибо=)

Уже поняла, что звёздочки не нужны!

[xlebobulka]

Меня все игнорят, но вдруг...

Предыдущий вопрос снят)
Теперь другая проблема.
Можно ли как то присвоить паттерну значение из переменной?
у меня дебаггер говорит что паттерн пустой, хотя пишу objRegExp.Pattern = strList(Index)
стрлист точно не пустой, в чём может быть проблема?

[kuklp]

Вы бы пример выложили в Экс-файле - давно бы решения были. А гадать, что у Вас на уме и что в файле, не очень интересно.

[SAS888]

Если переменная strList(Index) содержит значение, которое полностью удовлетворяет синтаксису метасимволов объекта RegExp, то попробуйте записать так:

objRegExp.Pattern = Chr(34) & strList(Index) & Chr(34)

[xlebobulka]

Сообщение от SAS888

Если переменная strList(Index) содержит значение, которое полностью удовлетворяет синтаксису метасимволов объекта RegExp, то попробуйте записать так:

objRegExp.Pattern = Chr(34) & strList(Index) & Chr(34)

не сработало..
strFileNameList(0) = "[кот]([a-z]|[0-9]|\s|[.]).*[x]+.+"
в переменной такое значение, проверяла на калькуляторе его пригодность - всё подходит

[The_Prist]

Без файла трудно понять проблему и гадать можно долго.
Если strList(Index) не пусто, а в Pattern все же попадает пустая строка - значит strList(Index) все же не содержит значения. Либо по пути где-то обнуляется, либо объявлен этот массив неверно. Чудес не бывает и не может быть и strList(Index) не пуст и Pattern пуст, которому из этого strList(Index) значение присваивается.
Проверьте, нет ли у Вас игнорирования ошибок: On Error Resume Next. Если есть - уберите и посмотрите, мало ли где ругаться начнет VBE.