Поиск дублей в справочнике

Помогите, плз.<br><br>Существует справочник номенклатуры. Как отследить в нем повторяющиеся по артикулам товары и пометить на удаление дубли?<br><br>Спасибо.<br><br>

Обработка строк в 10. Написать?

"Примерно так...<br><br><br><br>Сп=СоздатьОбъект("СписокЗначений")<br><br>Удалять=СоздатьОбъект("СписокЗначений")<br><br>Ном=СоздатьОбъект("Справочник.Номерклатура");<br><br>Ном.ВыбратьЭлементы();<br><br>Пока Ном.ПолучитьЭлемент()=1 Цикл<br><br>  Если Ном.ЭтоГруппа()=1 Тогда<br><br>    Продолжить;<br><br>  КонецЕсли;<br><br>  Если Сп.НайтиЗначение(ном.Артикул)>0 Тогда<br><br>    Удалять.ДобавитьЗначение(Ном.ТекущийЭлемент());<br><br>  Иначе<br><br>    Сп.ДобавитьЗначение(Ном.Артикул);<br><br>  КонецЕсли;<br><br>КонецЦикла;<br><br>КК=20;<br><br>Для К=1 По Удалять.РазмерСписка() Цикл<br><br>  Если К>=КК Тогда<br><br>    Состояние("Удалено "+КК+" из "+Удалять.РазмерСписка()+" ...");<br><br>    КК=КК+20;<br><br>  КонецЕсли;<br><br>  Ном.НайтиЭлемент(Удалять.ПолучитьЗначение(К));<br><br>  Попытка<br><br>    Ном.Удалить(1);<br><br>  Исключение<br><br>    Ном.Удалить(0);<br><br>  КонецПопытки;<br><br>КонецЦикла;<br><br>Сообщить("Выполнено!");<br><br>"