1С 8.3 Заполнить структуру рекурсивно
Данные > Примеры кода 1С > 1С 8.3 Cтруктура
Перейти в раздел примеры кода 1С 8.3:
Заполнить структуру рекурсивно в 1С 8.3:
// Заполнить структуру рекурсивно.
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/43
//
// Параметры:
// Приемник - Структура
// Источник - Структура
// ИгнорироватьНеопределено - Булево - Игнорировать ли значение Неопределено из Источника
// Дополнять - Булево - Нужно ли дополнять несуществующими в приемнике свойствами
//
Процедура ЗаполнитьСтруктуруРекурсивно(Знач Приемник, Знач Источник,
Знач ИгнорироватьНеопределено = Ложь, Знач Дополнять = Ложь) Экспорт
ТипСтруктура = Тип("Структура");
Если ТипЗнч(Приемник) <> ТипСтруктура
Или ТипЗнч(Источник) <> ТипСтруктура Тогда
Возврат;
КонецЕсли;
Для Каждого КлючИЗначение Из Источник Цикл
ТекущийКлюч = КлючИЗначение.Ключ;
ЗначениеИсточника = КлючИЗначение.Значение; // Структура, Произвольный
ЗначениеПриемника = Неопределено;
Если Приемник.Свойство(ТекущийКлюч, ЗначениеПриемника) Тогда
Если ТипЗнч(ЗначениеПриемника) = Тип("Структура") Тогда
ЗаполнитьСтруктуруРекурсивно(ЗначениеПриемника, ЗначениеИсточника, ИгнорироватьНеопределено);
ИначеЕсли ЗначениеИсточника = Неопределено И ИгнорироватьНеопределено Тогда
Продолжить;
Иначе
Приемник[ТекущийКлюч] = ЗначениеИсточника;
КонецЕсли;
ИначеЕсли Дополнять Тогда
Приемник.Вставить(ТекущийКлюч, ЗначениеИсточника);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
// MIT License
// Copyright (c) 2024 SeiOkami
//
// Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files
// (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify,
// merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
// The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/43
//
// Параметры:
// Приемник - Структура
// Источник - Структура
// ИгнорироватьНеопределено - Булево - Игнорировать ли значение Неопределено из Источника
// Дополнять - Булево - Нужно ли дополнять несуществующими в приемнике свойствами
//
Процедура ЗаполнитьСтруктуруРекурсивно(Знач Приемник, Знач Источник,
Знач ИгнорироватьНеопределено = Ложь, Знач Дополнять = Ложь) Экспорт
ТипСтруктура = Тип("Структура");
Если ТипЗнч(Приемник) <> ТипСтруктура
Или ТипЗнч(Источник) <> ТипСтруктура Тогда
Возврат;
КонецЕсли;
Для Каждого КлючИЗначение Из Источник Цикл
ТекущийКлюч = КлючИЗначение.Ключ;
ЗначениеИсточника = КлючИЗначение.Значение; // Структура, Произвольный
ЗначениеПриемника = Неопределено;
Если Приемник.Свойство(ТекущийКлюч, ЗначениеПриемника) Тогда
Если ТипЗнч(ЗначениеПриемника) = Тип("Структура") Тогда
ЗаполнитьСтруктуруРекурсивно(ЗначениеПриемника, ЗначениеИсточника, ИгнорироватьНеопределено);
ИначеЕсли ЗначениеИсточника = Неопределено И ИгнорироватьНеопределено Тогда
Продолжить;
Иначе
Приемник[ТекущийКлюч] = ЗначениеИсточника;
КонецЕсли;
ИначеЕсли Дополнять Тогда
Приемник.Вставить(ТекущийКлюч, ЗначениеИсточника);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
// MIT License
// Copyright (c) 2024 SeiOkami
//
// Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files
// (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify,
// merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
// The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник