1С 8.3 Новая структура
Данные > Примеры кода 1С > 1С 8.3 Cтруктура
Перейти в раздел примеры кода 1С 8.3:
Новая структура в 1С 8.3:
// Возвращает новую структуру на основе параметров.
// Источник: https://github.com/SeiOkami/CollectionMethodsOneS/issues/42
//
// Параметры:
// Источник - Структура
// ИсключаяКлючи - см. Массив
// ОставляяКлючи - см. Массив
// ПоУмолчаниюИсключать - Булево - Стоит ли по умолчанию исключать все ключи, если пустой список исключений
//
// Возвращаемое значение:
// Структура
Функция НоваяСтруктура(Знач Источник,
Знач ИсключаяКлючи = Неопределено, Знач ОставляяКлючи = Неопределено,
Знач ПоУмолчаниюИсключать = Ложь) Экспорт
ИсключаяКлючи = Массив(ИсключаяКлючи); // Массив из Строка
ОставляяКлючи = Массив(ОставляяКлючи); // Массив из Строка
ЕстьИсключения = ЗначениеЗаполнено(ИсключаяКлючи);
ЕстьОставления = ЗначениеЗаполнено(ОставляяКлючи);
Результат = Новый Структура;
Для Каждого КлючИЗначение Из Источник Цикл
Ключ = КлючИЗначение.Ключ;
Исключить = ПоУмолчаниюИсключать И НЕ ЕстьИсключения;
Если НЕ Исключить И ЕстьИсключения И ИсключаяКлючи.Найти(Ключ) <> Неопределено Тогда
Исключить = Истина;
КонецЕсли;
Если Исключить И ЕстьОставления И ОставляяКлючи.Найти(Ключ) <> Неопределено Тогда
Исключить = Ложь;
КонецЕсли;
Если НЕ Исключить Тогда
Результат.Вставить(Ключ, КлючИЗначение.Значение);
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции
// 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/42
//
// Параметры:
// Источник - Структура
// ИсключаяКлючи - см. Массив
// ОставляяКлючи - см. Массив
// ПоУмолчаниюИсключать - Булево - Стоит ли по умолчанию исключать все ключи, если пустой список исключений
//
// Возвращаемое значение:
// Структура
Функция НоваяСтруктура(Знач Источник,
Знач ИсключаяКлючи = Неопределено, Знач ОставляяКлючи = Неопределено,
Знач ПоУмолчаниюИсключать = Ложь) Экспорт
ИсключаяКлючи = Массив(ИсключаяКлючи); // Массив из Строка
ОставляяКлючи = Массив(ОставляяКлючи); // Массив из Строка
ЕстьИсключения = ЗначениеЗаполнено(ИсключаяКлючи);
ЕстьОставления = ЗначениеЗаполнено(ОставляяКлючи);
Результат = Новый Структура;
Для Каждого КлючИЗначение Из Источник Цикл
Ключ = КлючИЗначение.Ключ;
Исключить = ПоУмолчаниюИсключать И НЕ ЕстьИсключения;
Если НЕ Исключить И ЕстьИсключения И ИсключаяКлючи.Найти(Ключ) <> Неопределено Тогда
Исключить = Истина;
КонецЕсли;
Если Исключить И ЕстьОставления И ОставляяКлючи.Найти(Ключ) <> Неопределено Тогда
Исключить = Ложь;
КонецЕсли;
Если НЕ Исключить Тогда
Результат.Вставить(Ключ, КлючИЗначение.Значение);
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции
// 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
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник