Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Пример макроса работа с регулярными выражениями?

Автор RitroF, 29.03.2012, 06:18

« назад - далее »

RitroF

Добрый день!

Подскажите пожалуйста, где найти пример макроса.

Условие:
Необходимо Текст из ячейки A1, который находится между специальными символами @@ скопировать в ячейку B1
Если же символов @@ вообще нет или нет закрывающей пары то можно просто первые 5 строк текста скопировать или 200 символов.

Регуляторное выражение получилось такое RegEx  = '@@(.*)@@'


nilem

#1
UDF, например
Function Regul(s As String) As String
With CreateObject("vbscript.regexp")
   .Pattern = ".*?@@([^@@]*?)@.*"
   If .test(s) Then
       Regul = .Replace(s, "$1")
   Else
       Regul = Left(s, 200)
   End If
End With
End Function


Вот здесь можно одну собаку оставить: [^@]

sergo44441

если 200 символов, то можно и так, без макроса
Не торопись, и все успеешь намного быстрее