Различные()

Author: nixel2007

src/Классы/Поток.os

@@ -35,8 +35,15 @@
 
 КонецФункции
 
-Функция Различные() Экспорт
-	ВызватьИсключение "Не реализовано.";
+Функция Различные(ОбработчикСравнения = Неопределено) Экспорт
+
+	Если ОбработчикСравнения = Неопределено Тогда
+		ОбработчикСравнения = СтандартныйОбработчикСравнения();
+	КонецЕсли;
+
+	ПоложитьЯчейкуВКонвейер("Различные", ОбработчикСравнения);
+	Возврат ЭтотОбъект;
+	
 КонецФункции
 
 Функция Обработать(ОписаниеОповещения) Экспорт
@@ -110,6 +117,36 @@
 
 КонецПроцедуры
 
+Процедура ВыполнитьРазличные(Результат, ДополнительныеПараметры) Экспорт
+
+	Лог.Отладка("ВыполнитьРазличные");
+	
+	Результат = Новый Массив;
+	
+	ОбработчикСравнения = ДополнительныеПараметры.Обработчик;
+
+	Для Каждого Элемент Из Коллекция Цикл
+		
+		КоличествоСовпадений = 0;
+
+		Для Каждого ЭлементРезультат Из Результат Цикл
+			ОбработчикСравнения.ДополнительныеПараметры.Элемент1 = Элемент;
+			ОбработчикСравнения.ДополнительныеПараметры.Элемент2 = ЭлементРезультат;
+			РезультатСортировки = Неопределено;
+			ОписанияОповещений.ВыполнитьОбработкуОповещения(ОбработчикСравнения, РезультатСортировки);
+			Если РезультатСортировки = 0 Тогда
+				КоличествоСовпадений = КоличествоСовпадений + 1;
+			КонецЕсли;
+		КонецЦикла;
+	
+		Если КоличествоСовпадений = 0 Тогда 
+			Результат.Добавить(Элемент);
+		КонецЕсли;
+
+	КонецЦикла;
+
+КонецПроцедуры
+
 Процедура ВыполнитьФильтровать(Результат, ДополнительныеПараметры) Экспорт
 
 	Обработчик = ДополнительныеПараметры.Обработчик;
@@ -210,7 +247,11 @@
 КонецПроцедуры
 
 Функция СтандартныйОбработчикСравнения()
-	ФункцияСравнения = ОписанияОповещений.Создать("ОбработчикСравнения", ЭтотОбъект);
+	ДополнительныеПараметры = Новый Структура;
+	ДополнительныеПараметры.Вставить("Элемент1");
+	ДополнительныеПараметры.Вставить("Элемент2");
+
+	ФункцияСравнения = ОписанияОповещений.Создать("ОбработчикСравнения", ЭтотОбъект, ДополнительныеПараметры);
 	Возврат ФункцияСравнения;
 КонецФункции
 

test.os

@@ -43,4 +43,19 @@
 
 Для Каждого Элемент Из Результат Цикл
 	Сообщить(Элемент);
-КонецЦикла;
+КонецЦикла;
+
+Массив = Новый Массив;
+Массив.Добавить(1);
+Массив.Добавить(2);
+Массив.Добавить(2);
+Массив.Добавить(3);
+Массив.Добавить(3);
+Массив.Добавить(3);
+
+Стрим = Потоки.ИзКоллекции(Массив);
+Результат = Стрим.Различные().ВМассив();
+
+Для Каждого Элемент Из Результат Цикл
+	Сообщить(Элемент);
+КонецЦикла;