Поиск:
 

Тестовая 2 Тестовая 2

стр = СокрЛП(стр);
RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.MultiLine = ложь;  // истина — текст многострочный, ложь — одна строка
RegExp.Global = ложь;     
RegExp.IgnoreCase = ложь; 
Шаблон = "№\b\d+\b\s+от\s+(0[1-9]|[12][0-9]|3[01])[- /..](0[1-9]|1[012])[- /..](19|20)[0-9]{2}г\."; 
RegExp.Pattern = Шаблон;    
matches = RegExp.Execute(стр);
Если matches.Count<>1 Тогда
    Возврат Ложь;
КонецЕсли;
Возврат ПустаяСтрока(RegExp.Replace(стр,""));



СВЯЖИТЕСЬ С НАМИ

Tel: +7 (495) 135-06-12
Email: info@sholdy.ru

ПОДЕЛИТЬСЯ ССЫЛКОЙ


ОБРАТНЫЙ ЗВОНОК

Заинтересовали наши услуги? Вы можете заказать обратный звонок. Мы ответим на все Ваши вопросы.