1С 8.3 Установить свойство объекта (рекурсивно)
Данные > Примеры кода 1С > 1С 8.3 Описание типов
Перейти в раздел примеры кода 1С 8.3:
Установить свойство объекта (рекурсивно) в 1С 8.3:
// Устанавливает свойство объекта по его полному пути (с учетом подчиненных свойств).
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/142
//
// Параметры:
// Объект - Произвольный - Любой объект, который имеет какие-то свойства
// ПутьКСвойству - Строка - Полный путь к свойству
// Значение - Произвольный - Устанавливаемое значение
//
// Пример:
// УстановитьСвойствоОбъекта(Объект, "Свойство.ПодчиненноеСвойство.ЕщеПодчиненное", Значение);
//
Процедура УстановитьСвойствоОбъекта(Знач Объект, Знач ПутьКСвойству, Знач Значение) Экспорт
ЧастиПути = СтрРазделить(ПутьКСвойству, ".");
ИндексГраницы = ЧастиПути.ВГраница();
ТекущийОбъект = Объект;
Для Индекс = 0 По ИндексГраницы - 1 Цикл
ТекущийОбъект = ТекущийОбъект[ЧастиПути[Индекс]]; //Произвольный
КонецЦикла;
ТекущийОбъект[ЧастиПути[ИндексГраницы]] = Значение;
КонецПроцедуры
// 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/142
//
// Параметры:
// Объект - Произвольный - Любой объект, который имеет какие-то свойства
// ПутьКСвойству - Строка - Полный путь к свойству
// Значение - Произвольный - Устанавливаемое значение
//
// Пример:
// УстановитьСвойствоОбъекта(Объект, "Свойство.ПодчиненноеСвойство.ЕщеПодчиненное", Значение);
//
Процедура УстановитьСвойствоОбъекта(Знач Объект, Знач ПутьКСвойству, Знач Значение) Экспорт
ЧастиПути = СтрРазделить(ПутьКСвойству, ".");
ИндексГраницы = ЧастиПути.ВГраница();
ТекущийОбъект = Объект;
Для Индекс = 0 По ИндексГраницы - 1 Цикл
ТекущийОбъект = ТекущийОбъект[ЧастиПути[Индекс]]; //Произвольный
КонецЦикла;
ТекущийОбъект[ЧастиПути[ИндексГраницы]] = Значение;
КонецПроцедуры
// 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
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник