Пересечение cписков

Altez 14 1 1
1С Пересечение Списков 
Функция ПересечениеСписков(м1,м2)
	Тз = Новый ТаблицаЗначений();
	Для каждого Эл из М1 Цикл
		ТЗ.Добавить().Элемент=Эл.Значение;
	КонецЦикла;
	Для каждого Эл из М2 Цикл
		ТЗ.Добавить().Элемент=Эл.Значение;
	КонецЦикла;
	
	ТЗ.Колонки.Добавить("Флаг");
	ТЗ.ЗаполнитьЗначения(1,"Флаг");
	ТЗ.Свернуть("Элемент","Флаг");
	
	Совпадающие = Новый СписокЗначений;
	Для каждого Строка из ТЗ.НайтиСтроки(Новый Структура("Флаг",2)) Цикл
		Совпадающие.Добавить(Строка.Элемент);
	КонецЦикла;
	
	Возврат Совпадающие
КонецФункции
0 
Заголовок публикации состоит из слитных слов. Разделите их пробелами, если это не общепринятое название и не имя собственное.
‹ ›

См. также

Общие элементы массивов

Определение пересечения интервалов в кольце

Определить элементарные интервалы, образующиеся при пересечении всех исходных интервалов

Модератору