Как удалить дубликаты в массиве 1С

Массив в 1С не имеет встроенного метода удаления дубликатов, поэтому задачу решают вручную: перебором элементов с проверкой вхождения или через вспомогательные коллекции — Соответствие, ТаблицаЗначений, СписокЗначений. Выбор способа зависит от объёма данных, необходимости сохранить порядок элементов и требований к производительности.

Ниже разобраны четыре рабочих подхода с готовым кодом на встроенном языке 1С, их ограничения, типичные ошибки и способы проверить результат. Все примеры применимы как в толстом и тонком клиенте, так и на сервере.

Почему в массиве 1С появляются дубликаты и какой способ выбрать

Дубликаты чаще всего возникают при объединении результатов нескольких запросов, при выгрузке данных из табличных частей, при сложении массивов оператором или циклом добавления. Типичный пример: собираются ссылки на номенклатуру из нескольких документов, и один и тот же товар попадает в массив несколько раз.

Количество элементов напрямую влияет на выбор алгоритма. Простой перебор с методом Найти() удобен для небольших массивов, но его сложность растёт квадратично: на каждый элемент выполняется поиск по уже собранному результату. Для массивов из тысяч элементов быстрее работают Соответствие (поиск за счёт хеширования) или свёртка ТаблицыЗначений.

Также заранее решите, важен ли порядок элементов. Перебор с проверкой сохраняет исходный порядок первых вхождений. Соответствие порядок не гарантирует, а свёртка таблицы значений сортирует или группирует данные в зависимости от настроек.

Способ 1. Перебор массива с проверкой через Найти()

Самый наглядный метод: создаётся новый массив, в который элемент добавляется только если его там ещё нет. Порядок первых вхождений сохраняется, код легко читается и отлаживается.

Функция УдалитьДубликаты(ИсходныйМассив)
Результат = Новый Массив;
Для Каждого Элемент Из ИсходныйМассив Цикл
Если Результат.Найти(Элемент) = Неопределено Тогда
Результат.Добавить(Элемент);
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции

Метод Найти() возвращает индекс найденного элемента или Неопределено, если элемента нет. Именно проверка на Неопределено отсекает повторные добавления.

Ограничение способа — производительность. Каждый вызов Найти() линейно проходит по результирующему массиву, поэтому на массивах в десятки тысяч элементов время выполнения заметно растёт. Для таких объёмов переходите к Соответствию.

Способ 2. Удаление дубликатов через Соответствие

Соответствие — коллекция «ключ-значение», где ключ всегда уникален. Если использовать элементы массива как ключи, дубликаты исчезнут автоматически: повторная установка того же ключа просто перезапишет значение.

Функция УдалитьДубликатыСоответствием(ИсходныйМассив)
Уникальные = Новый Соответствие;
Для Каждого Элемент Из ИсходныйМассив Цикл
Уникальные.Вставить(Элемент, Истина);
КонецЦикла;
Результат = Новый Массив;
Для Каждого Пара Из Уникальные Цикл
Результат.Добавить(Пара.Ключ);
КонецЦикла;
Возврат Результат;
КонецФункции

Поиск ключа в Соответствии выполняется быстро за счёт внутреннего хеширования, поэтому способ хорошо масштабируется на больших объёмах. Это основной вариант для пакетной обработки данных в фоновых заданиях и обменах.

Минус — порядок обхода Соответствия не совпадает с порядком добавления. Если дальше по логике требуется исходная последовательность элементов, комбинируйте подходы: проверяйте вхождение через Соответствие, а добавляйте в результирующий массив в исходном порядке.

Уникальные = Новый Соответствие;
Результат = Новый Массив;
Для Каждого Элемент Из ИсходныйМассив Цикл
	Если Уникальные[Элемент] = Неопределено Тогда
		Уникальные.Вставить(Элемент, Истина);
		Результат.Добавить(Элемент);
	КонецЕсли;
КонецЦикла;

Способ 3. Свёртка через ТаблицуЗначений

ТаблицаЗначений имеет встроенный метод Свернуть(), который группирует строки по указанным колонкам и убирает повторы. Массив выгружается в колонку таблицы, выполняется свёртка, затем результат выгружается обратно в массив.

Таблица = Новый ТаблицаЗначений;
Таблица.Колонки.Добавить("Значение");
Для Каждого Элемент Из ИсходныйМассив Цикл
Таблица.Добавить().Значение = Элемент;
КонецЦикла;
Таблица.Свернуть("Значение");
Результат = Таблица.ВыгрузитьКолонку("Значение");

Способ удобен, когда помимо удаления дубликатов нужно что-то ещё: отсортировать значения, посчитать количество вхождений каждого элемента (через добавление колонки-счётчика и суммирование при свёртке) или отфильтровать результат. Одна структура данных закрывает сразу несколько задач.

Учтите, что при объявлении колонки без явного типа в неё можно поместить значения разных типов, но для стабильной свёртки лучше задать тип через ОписаниеТипов, если массив однородный. Порядок строк после свёртки определяется платформой и не гарантирует совпадения с исходным массивом.

Способ 4. СписокЗначений и особые случаи

СписокЗначений подходит, когда элементы — простые значения или ссылки и требуется метод НайтиПоЗначению(). Логика та же, что у перебора массива: элемент добавляется, только если его ещё нет в списке.

Список = Новый СписокЗначений;
Для Каждого Элемент Из ИсходныйМассив Цикл
Если Список.НайтиПоЗначению(Элемент) = Неопределено Тогда
Список.Добавить(Элемент);
КонецЕсли;
КонецЦикла;
Результат = Список.ВыгрузитьЗначения();

Массив структур или сложных объектов

Методы Найти() и НайтиПоЗначению() сравнивают значения, и для структур корректное сравнение не гарантировано. Если массив содержит структуры, сравнивайте по ключевому полю: соберите Соответствие, где ключ — значение этого поля, а значение — сама структура.

Ссылки на объекты базы

Ссылки сравниваются корректно во всех перечисленных способах, включая использование в качестве ключей Соответствия. Это самый частый сценарий на практике: массивы ссылок на номенклатуру, контрагентов, документы.

Как проверить результат и каких ошибок избегать

Минимальная проверка — сравнить количество элементов до и после обработки и убедиться, что результирующий массив не пуст и содержит ожидаемые значения. Для контроля в отладчике используйте ИсходныйМассив.Количество() и Результат.Количество(), а также выборочно проверьте наличие ключевых элементов через Найти().

Дополнительный тест — убедиться, что в результате действительно нет повторов: пройдите по нему циклом и попробуйте найти каждый элемент дважды, либо сверните результат ещё раз и сравните количество. Если свёртка ничего не изменила, дубликатов нет.

Частая ошибка — удаление элементов из массива в том же цикле, по которому идёт перебор. При удалении индексы сдвигаются, и часть элементов пропускается. Если нужно очистить исходный массив «на месте», обходите его с конца через Для Индекс = 0 По Массив.Количество()-1 в обратном порядке или просто замените его новым массивом.

Частые вопросы