Использование RegExp в 1С
Ключевые слова: RegExp, Регулярные выражения
//*******************************************
Процедура Выполнить()
True=-1;
False=0;
RegExp = CreateObject("VBScript.RegExp");
RegExp.IgnoreCase = False; //Игнорировать регистр
RegExp.Global = True; //Поиск всех вхождений шаблона
RegExp.Pattern = "<[^>]*>"; //Ищем теги HTML
Matches=RegExp.Execute("Это <hr> строка <br> с тегами HTML");
Если Matches.Count()>0 Тогда
Для к = 0 По Matches.Count()-1 Цикл
Match = Matches.Item(к);
Сообщить("Найден тег:"+ Match.Value);
КонецЦикла;
Иначе
Сообщить("Вхождений шаблона не найдено");
КонецЕсли;
КонецПроцедуры
|