Для расширения Атташе, которое я скоро представлю на ваш суд (что это такое и для чего нужно, пока рассказывать не стану, сохраню интригу ;)) потребовалась возможность рекурсивного сравнения "сложных" значений. Например структур, массивов, соответствий. В итоге родилась функция, которой я и решил поделиться с сообществом:
Функция СравнитьЗначения(
Значение,
Эталон,
ВызыватьИсключение=Ложь,
СтрогоеСравнение=Ложь,
СтрогоеСравнениеМассивов=Неопределено,
СтрогоеСравнениеСтруктур=Неопределено,
СтрогоеСравнениеСоответствий=Неопределено
)
Описание параметров:
Значение - сравниваемое значение. Может быть скалярным значением, а так же массивом, структурой или соответствием;
Эталон - эталонное значение, с которым будет сравниваться значение. Ожидается, что Значение будет того же типа и иметь ту же структуру, что и Эталон. Подробнее см. параметр СтрогоеСравнение;
ВызыватьИсключение - Если Истина - функция вызовет исключение с текстом описывающим на каком этапе произошла ошибка сравнения. Если Ложь - исключение вызвано не будет, а текст, описывающий ошибку сравнения функция вернёт в качестве результата. Если параметр имеет тип "Строка", то эта строка будет добавлена первой строкой к описанию ошибки сравнения если таковая произойдёт. Не обязательный. По умолчанию Ложь;
СтрогоеСравнение - общая настройка строгого сравнения. Если Истина - Значение должно полностью соответствовать Эталону. Наличие лишних полей и элементов не допускается. Порядок элементов в массиве так же важен. Если Ложь - Значение может содержать больше полей и/или элементов. Порядок элементов в массивах не важен. Главное чтобы все поля и элементы из Эталона содержались в Значении. Не обязательный. По умолчанию Ложь;
СтрогоеСравнениеМассивов - настройка строгости сравнения массивов. Имеет то же действие, что и СтрогоеСравнение, но распространяется только на массивы содержащиеся в Значении; Не обязательный. По умолчанию используются настройки заданные параметром СтрогоеСравнение;
СтрогоеСравнениеСтруктур - аналогично СтрогоеСравнениеМассивов, но действует только на структуры внутри значения;
СтрогоеСравнениеСоответствий - аналогично СтрогоеСравнениеМассивов, но действует только на соответствия внутри значения;
Возвращаемое значение
Функция возвращает Истина если Значение подходит к Эталону с учётом критериев строгого сравнения. В противном случае возвращает строку описывающую на каком этапе сравнения произошла ошибка. Если значение параметра ВызыватьИсключение равно Истина, в случае ошибки сравнения вместо возврата будет вызвано исключение с тем же текстом. Если ВызыватьИсключение имеет тип строка - текст исключения будет дополнен спереди этой строкой. Это удобно для сравнений в цикле, чтобы получать, например, номер итерации в тексте исключения и в некоторых других случаях.
Примеры использования
Пример 1
Результат = СравнитьЗначения(
СтрРазделить("Мама мыла раму", " "),
СтрРазделить("Мама мыла папу", " ")
);
// Результат = "Элемент эталона [2] не найден в массиве"
Пример 2
Результат = СравнитьЗначения(
СтрРазделить("Мама мыла раму и папу", " "),
СтрРазделить("Мама мыла папу", " "),
);
// Результат = Истина
Пример 3
Результат = СравнитьЗначения(
Новый Структура("Имя, Фамилия, ГодРождения, Обучение",
"Вася",
"Иванов",
1990,
Новый Структура("НомерДетСада, НомерШколы, НазваниеИнститута",
13,
1252,
"МГУ"
)
),
Новый Структура("Имя, Фамилия, ГодРождения, Обучение",
"Вася",
"Иванов",
1990,
Новый Структура("НазваниеИнститута",
"МЭИ"
)
),
"Ошибка на итерации №5"
);
// Вызовет исключение с текстом: Ошибка на итерации №5:
// Ошибка в поле Обучение:
// Ошибка в поле НазваниеИнститута:
// Значение (МГУ) не равно эталону (МЭИ)
Полный текст функции
// Сравнивает значение с эталоном. Удобно использовать
// для тестирования
//
// Параметры:
// Значение - Произвольный - значение, которое надо сравнить с эталонным
// Эталон - Произвольный - эталонное значение, с которым будет сравниваться Значение
// ВызыватьИсключение - Булево, Строка - вызвать исключение если значение не соответствует эталону
// Если задана строка - она будт использована при вызове исключения в качестве первой строки
// (не обязательный) - по умолчанию Ложь (не вызывать)
// СтрогоеСравнение - Булево - тип сравнения по умолчанию.
// Ложь - проверять только наличие элементов эталона в значении
// Истина - проверять полное соответствие значения эталону
// (не обязательный) - по умолчанию Ложь
// СтрогоеСравнениеМассивов - Булево, Неопределено - тип сравнения для массивов. Если Неопределено
// используется параметр СтрогоеСравнение
// (не обязательный) - по умолчание Неопределено
// СтрогоеСравнениеСтруктур - Булево, Неопределено - тип сравнения для структур. Если Неопределено
// используется параметр СтрогоеСравнение
// (не обязательный) - по умолчание Неопределено
// СтрогоеСравнениеСоответствий - Булево, Неопределено - тип сравнения для соответствий. Если Неопределено
// используется параметр СтрогоеСравнение
// (не обязательный) - по умолчание Неопределено
//
// Возвращаемое значение:
// Булево, Строка - Истина - значение соответствует эталону
// Строка - описание несоответствия
//
Функция СравнитьЗначения(Значение, Эталон, ВызыватьИсключение=Ложь, СтрогоеСравнение=Ложь, СтрогоеСравнениеМассивов=Неопределено, СтрогоеСравнениеСтруктур=Неопределено, СтрогоеСравнениеСоответствий=Неопределено) Экспорт
Если ТипЗнч(Значение) <> ТипЗнч(Эталон) Тогда
Результат = СтрШаблон("Тип значения: %1 не равен типу эталона: %2", ТипЗнч(Значение), ТипЗнч(Эталон));
ИначеЕсли ТипЗнч(Значение) = Тип("Массив") Тогда
#Область СравнениеМассивов
Если Значение.Количество() < Эталон.Количество() Тогда
Результат = СтрШаблон("Количество элементов в массиве (%1) меньше чем в эталоне (%2)", Значение.Количество(), Эталон.Количество());
ИначеЕсли ?(СтрогоеСравнениеМассивов = Неопределено, СтрогоеСравнение, СтрогоеСравнениеМассивов) Тогда
// Сравнить строго
Результат = Истина;
Если Значение.Количество() <> Эталон.Количество() Тогда
Результат = СтрШаблон("Количество элементов в массиве (%1) не равно количеству в эталоне (%2)", Значение.Количество(), Эталон.Количество());;
Иначе
Для Индекс = 0 По Значение.Количество()-1 Цикл
РезультатСравнения = СравнитьЗначения(Значение[Индекс], Эталон[Индекс], Ложь, СтрогоеСравнение, СтрогоеСравнениеМассивов, СтрогоеСравнениеСтруктур, СтрогоеСравнениеСоответствий);
Если РезультатСравнения <> Истина Тогда
Результат = СтрШаблон("Ошибка в элементе [%1]:
|", Индекс) + РезультатСравнения;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Иначе
// Сравнить не строго
Результат = Истина;
Индекс = 0;
Для Каждого ЭлементЭталона Из Эталон Цикл
НайденЭлементЗначения = Ложь;
Для Каждого ЭлементЗначения Из Значение Цикл
Если Истина = СравнитьЗначения(ЭлементЗначения, ЭлементЭталона, Ложь, СтрогоеСравнение, СтрогоеСравнениеМассивов, СтрогоеСравнениеСтруктур, СтрогоеСравнениеСоответствий) Тогда
НайденЭлементЗначения = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Если Не НайденЭлементЗначения Тогда
Результат = СтрШаблон("Элемент эталона [%1] не найден в массиве", Индекс);
Прервать;
КонецЕсли;
Индекс = Индекс + 1;
КонецЦикла;
КонецЕсли;
#КонецОбласти
ИначеЕсли ТипЗнч(Значение) = Тип("Структура") Тогда
#Область СравнениеСтруктур
Результат = Истина;
Если Значение.Количество() < Эталон.Количество() Тогда
Результат = СтрШаблон("Количество полей в структуре (%1) меньше чем в эталоне (%2)", Значение.Количество(), Эталон.Количество());
ИначеЕсли Истина
И ?(СтрогоеСравнениеСтруктур = Неопределено, СтрогоеСравнение, СтрогоеСравнениеСтруктур)
И Значение.Количество() <> Эталон.Количество()
Тогда
Результат = СтрШаблон("Количество полей в структуре (%1) не равно количеству в эталоне (%2)", Значение.Количество(), Эталон.Количество());;
Иначе
Для Каждого Элемент Из Эталон Цикл
Если Значение.Свойство(Элемент.Ключ) Тогда
РезультатСравнения = СравнитьЗначения(Значение[Элемент.Ключ], Элемент.Значение, Ложь, СтрогоеСравнение, СтрогоеСравнениеМассивов, СтрогоеСравнениеСтруктур, СтрогоеСравнениеСоответствий);
Если РезультатСравнения <> Истина Тогда
Результат = СтрШаблон("Ошибка в поле %1:
|", Элемент.Ключ) + РезультатСравнения;
Прервать;
КонецЕсли;
Иначе
Результат = СтрШаблон("Поле %1 отсутсвует в структуре", Элемент.Ключ);
КонецЕсли;
КонецЦикла;
КонецЕсли;
#КонецОбласти
ИначеЕсли ТипЗнч(Значение) = Тип("Соответствие") Тогда
#Область СравнениеСоответствий
Результат = Истина;
Если Значение.Количество() < Эталон.Количество() Тогда
Результат = СтрШаблон("Количество записей в соответствии (%1) меньше чем в эталоне (%2)", Значение.Количество(), Эталон.Количество());
ИначеЕсли Истина
И ?(СтрогоеСравнениеСоответствий = Неопределено, СтрогоеСравнение, СтрогоеСравнениеСоответствий)
И Значение.Количество() <> Эталон.Количество()
Тогда
Результат = СтрШаблон("Количество записей в соответствии (%1) не равно количеству в эталоне (%2)", Значение.Количество(), Эталон.Количество());;
Иначе
Для Каждого Элемент Из Эталон Цикл
РезультатСравнения = СравнитьЗначения(Значение[Элемент.Ключ], Элемент.Значение, Ложь, СтрогоеСравнение, СтрогоеСравнениеМассивов, СтрогоеСравнениеСтруктур, СтрогоеСравнениеСоответствий);
Если РезультатСравнения <> Истина Тогда
Результат = СтрШаблон("Ошибка в записи %1:
|", Элемент.Ключ) + РезультатСравнения;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
#КонецОбласти
Иначе
Если Значение <> Эталон Тогда
Результат = СтрШаблон("Значение (%1) не равно эталону (%2)", Значение, Эталон);
Иначе
Результат = Истина;
КонецЕсли;
КонецЕсли;
Если Результат <> Истина Тогда
Если ВызыватьИсключение = Истина Тогда
ВызватьИсключение Результат;
ИначеЕсли ВызыватьИсключение <> Ложь Тогда
ВызватьИсключение ВызыватьИсключение + "
|" + Результат;
КонецЕсли;
КонецЕсли;
Возврат Результат;
КонецФункции
Пользуйтесь на здоровье )
