Функция ПоискПоШаблону( _Стр, _Шаблон ) Экспорт

	Если ( ( ПустоеЗначение( _Стр ) = 0 ) И ( ПустоеЗначение( _Шаблон ) = 0 ) ) Тогда
		Список = СоздатьОбъект( "СписокЗначений" );

	 	Истина = -1;
	 	Ложь   = 0;
	 	RegExp = СоздатьОбъект( "VBScript.RegExp" );

	 	RegExp.IgnoreCase = Ложь; 	//Игнорировать регистр
		RegExp.Global	  = Истина; 	//Поиск всех вхождений шаблона
	 	RegExp.MultiLine  = Ложь; 	//Многострочный режим
	 	RegExp.Pattern 	  = _Шаблон;

	 	Вхождения 	  = RegExp.Execute( _Стр );
	 	ЧислоВхождений	  = Вхождения.Count();

		Если ( ЧислоВхождений > 0 ) Тогда
	        	Для к = 0 По ЧислоВхождений - 1 Цикл
				Список.ДобавитьЗначение( Вхождения.Item( к ).Value );
	        	КонецЦикла;
	 	 	Возврат Список;
	 	КонецЕсли;
 	КонецЕсли;

 	Возврат ПолучитьПустоеЗначение( "СписокЗначений" );

КонецФункции