//ПОИСК УДАЛЕННЫХ ЭЛЕМЕНТОВ
   Сообщить("Поиск удаленных контрагентов...");
   ТекСписок = СоздатьОбъект("Справочник.DBF_VODA");
   ТекСписок.ВыбратьЭлементы();
   Поз=0;
   Пока ТекСписок.ПолучитьЭлемент() = 1 Цикл
       Поз=Поз+1;
       Состояние("Поиск удаленных: "+Поз+"");
       Если Виртуальный.НайтиЗначение(СокрЛП(ТекСписок.Наименование)) = 0 Тогда
           Ненайдены.НоваяСтрока();
           Ненайдены.Лиц = СокрЛП(ТекСписок.Наименование);
           Ненайдены.Фио = СокрЛП(ТекСписок.Фамилия);
       КонецЕсли;        
   КонецЦикла;

Виртуальный это СписокЗначений содержащий 197000 записей
ТекСписок содержит около 191000 элементов

Как быстрее все это обработать?

select...

(0)
запросом?

//        Состояние("Поиск удаленных: "+Поз+"");

(3) ага, процентов 15 отъест...

запросы вообще не знаю

(5) и?

Используй Вместо НайтиЗначение() Принадлежит() поидее должно быть быстрее.
а ще лучше в Списке иметь не наименования а сами элементы.

а вообще ПрямойЗапрос тебе поможет.

прямой запрос с условием "not in ()"

SELECT
 Спр.Id [Вода  $Справочник.Справочник.DBF_VODA]
FROM $Справочник.DBF_VODA Спр
WHERE
  Спр.Descr NOT IN (SELECT Val FROM #СпВирт)


Запрос.УложитьСписокОбъектов(Вируальный, "#СпВирт")

(10) три раза подряд прочитал СпВирт как ВСпирт...
вот сижу и думаю, к чем бы это...

для dbf будет быстрее пройтись по списку Виртуальный с поиском по наименованию

для sql будет быстрее прямой запрос. если не умеешь, то как для dbf

(11) Пятница...

хотя ... если по списку значений идти, то получится не то, что надо :)

(0) А поместить Цикл в транзакцию (хотя-бы по 500 позиций). Не будет быстрее?

(14) дык не потребляю. да еще надо завтра выйти, сервера с админом немного помучить (точнее, чтоб он не чувствовал себя несправедливо заставленным)

(7) огромное спасибо, сократил время
раньше с НайтиЗначение() вся обработка выполнялось 1068 секунд (17,8мин)
а с Принадлежит() выполняется 107 секунд (1,78мин)

107 секунд меня устраивает :)))))

проскакивало где-то:
сравнение на <> работает быстрее чем сравнение на =

(18) ждать 2 минуты ? Это п..ц дорогая редакция.

(0) Если база dbf, можно воспользоваться sqlite, как-то так:

   База = СоздатьОбъект("SQLiteBase");
   База.Открыть(":memory:");
   
   База.УложитьОбъекты(Виртуальный, "Виртуальный");
   
   Запрос = База.НовыйЗапрос();
   
   ТекстЗапроса = "
   |SELECT
   |    trim(спр.DESCR) as [Лиц],
   |    trim(спр.Фамилия) as [ФИО]
   |FROM
   |    [Справочник.DBF_VODA] as спр
   |WHERE
   |    NOT EXISTS (trim(спр.DESCR) IN (SELECT * FROM Виртуальный))
   |";
   
   тз = Запрос.ВыполнитьЗапрос(ТекстЗапроса);

транзакцию не предлагать?

(21) Даже так вроде:

   ТекстЗапроса = "
   |SELECT
   |    trim(Вирт.val) as [Лиц],
   |    trim(спр.Фамилия) as [ФИО]
   |FROM
   |    [Справочник.DBF_VODA] as спр
   |    inner join Виртуальный as Вирт on trim(спр.DESCR) = trim(Вирт.val)
   |";