1С 8.3 Общие элементы массивов
Данные > Примеры кода 1С > 1С 8.3 Массив
Перейти в раздел примеры кода 1С 8.3:
Функция возвращает общие элементы (пересечение) двух массивов.
Общие элементы массивов (от пользователя prog1c) в 1С 8.3:
Функция ОбщиеЭлементыМассивов(Массив1N, Массив2N)
Результат = Новый Массив;
Для Каждого ЭлементМассива Из Массив1N Цикл
Если Массив2N.Найти(ЭлементМассива) <> Неопределено И
Результат.Найти(ЭлементМассива) = Неопределено Тогда
Результат.Добавить(ЭлементМассива);
КонецЕсли;
КонецЦикла;
// Если Массив1N.Найти(ЭлементМассива) <> Неопределено И
// Результат.Найти(ЭлементМассива) = Неопределено Тогда
// Результат.Добавить(ЭлементМассива);
// КонецЕсли;
//КонецЦикла;
Возврат Результат;
КонецФункции // ОбщиеЭлементыМассивов()
Результат = Новый Массив;
Для Каждого ЭлементМассива Из Массив1N Цикл
Если Массив2N.Найти(ЭлементМассива) <> Неопределено И
Результат.Найти(ЭлементМассива) = Неопределено Тогда
Результат.Добавить(ЭлементМассива);
КонецЕсли;
КонецЦикла;
// Исправлено (второй цикл лишний!)
//Для Каждого ЭлементМассива Из Массив2N Цикл// Если Массив1N.Найти(ЭлементМассива) <> Неопределено И
// Результат.Найти(ЭлементМассива) = Неопределено Тогда
// Результат.Добавить(ЭлементМассива);
// КонецЕсли;
//КонецЦикла;
Возврат Результат;
КонецФункции // ОбщиеЭлементыМассивов()
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник