поиск исключений по шаблону с *

в любых вариациях При*ет, *ривет, Прив*, Пр*в*т
заменил код из #877
#445

tests/smoke/тесты_ОткрытиеФормКонфигурации/Тесты_ОткрытиеФормКонфигурации/Ext/ObjectModule.bsl

@@ -1050,35 +1050,7 @@
 		КонецЕсли;
 		Если ТипЗнч(МассивИсключений) = Тип("Массив") И ЗначениеЗаполнено(МассивИсключений) Тогда
 			Результат = Новый СписокЗначений;
-			Для Каждого лИмяИсключения Из МассивИсключений Цикл
-				лЗвездаВНачале = СтрНачинаетсяС(лИмяИсключения, "*");
-				лЗвездаВКонце = СтрЗаканчиваетсяНа(лИмяИсключения, "*");
-				Если лЗвездаВНачале Или лЗвездаВКонце Тогда
-					Если СтрНайти(лИмяИсключения, ".") > 0 Тогда
-						ВызватьИсключение "Исключения метаданных со * и . пока не поддерживаются";
-					КонецЕсли;
-
-					лИмяИсключения = НРег(СтрЗаменить(лИмяИсключения, "*", ""));
-
-					Для Каждого лМД Из Метаданные[ВидМетаданного] Цикл
-						Если лЗвездаВНачале И лЗвездаВКонце Тогда
-							лПодходит = (СтрНайти(НРег(лМД.Имя), лИмяИсключения) > 0);
-						ИначеЕсли лЗвездаВНачале Тогда
-							лПодходит = СтрЗаканчиваетсяНа(НРег(лМД.Имя), лИмяИсключения);
-						ИначеЕсли лЗвездаВКонце Тогда
-							лПодходит = СтрНачинаетсяС(НРег(лМД.Имя), лИмяИсключения);
-						Иначе
-							лПодходит = Ложь;
-						КонецЕсли;
-
-						Если лПодходит Тогда
-							Результат.Добавить(лМД.Имя);
-						КонецЕсли;
-					КонецЦикла;
-				Иначе
-					Результат.Добавить(лИмяИсключения);
-				КонецЕсли;
-			КонецЦикла;
+			Результат.ЗагрузитьЗначения(МассивИсключений);
 		ИначеЕсли МассивИсключений = Ложь Тогда
 			Результат = Ложь;
 		КонецЕсли;

tests/smoke/тесты_ОткрытиеФормКонфигурации/Тесты_ОткрытиеФормКонфигурации/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -521,7 +521,7 @@
 Функция ДобавитьИменаМетаФормДляОдногоОбъектаМетаданного(СписокИменМетаФорм, ОсновнойОбъект, МетаОбъект,
 		ТолькоУправляемыеФормы, СписокИсключений, ИменаОсновныхФорм)
 
-	Если СписокИсключений = Ложь Или СписокИсключений.НайтиПоЗначению(МетаОбъект.Имя) <> Неопределено Тогда
+	Если ИсключаемПоИмени(МетаОбъект.Имя, СписокИсключений) Тогда
 		Возврат Ложь;
 	КонецЕсли;
 
@@ -832,6 +832,7 @@
 //}
 
 //{ РаботаСНастройками
+#Область Настройки
 
 &НаКлиенте
 Функция КлючНастройки() Экспорт
@@ -959,6 +960,10 @@
 	Возврат Объект().ПолучитьНастройкуГруппировки(Объект.Настройки);
 КонецФункции
 
+#КонецОбласти 
+
+#Область Исключения
+
 &НаКлиенте
 Функция ВидМетаданныхИсключенИзТестирования(ВидМетаданных)
 	Если ЕстьНастройка(ВидМетаданных) Тогда
@@ -972,6 +977,20 @@
 	Возврат Объект().ПропускаемОшибкуПоТекстуИсключения(ТекстИсключения);
 КонецФункции
 
+&НаСервереБезКонтекста
+Функция ИсключаемПоИмени(Знач ЧтоИщем, Знач КоллекцияДляПоиска, Знач КонтекстЯдра = Неопределено)
+
+	Если КоллекцияДляПоиска = Ложь Тогда
+		Возврат Истина;
+	КонецЕсли;
+
+	КонтекстЯдра = КонтекстЯдраНаСервере(КонтекстЯдра);
+	Возврат КонтекстЯдра.ЕстьВИсключаемойКоллекции(ЧтоИщем, КоллекцияДляПоиска);
+
+КонецФункции
+
+#КонецОбласти 
+
 //}
 
 //{ блок юнит-тестов - САМИ ТЕСТЫ
@@ -1330,3 +1349,13 @@
 	Возврат СтрокаРезультат;
 
 КонецФункции
+
+&НаСервереБезКонтекста
+Функция КонтекстЯдраНаСервере(Знач КонтекстЯдра = Неопределено)
+
+	Если КонтекстЯдра = Неопределено Тогда
+		Возврат ВнешниеОбработки.Создать("xddTestRunner");	
+	КонецЕсли;
+	Возврат КонтекстЯдра;
+
+КонецФункции