Подскажите, пожалуйста, как получить все записи, содержащие определенное слово, например VIKA, но не перебором всех записей, а методом НайтиПоКлючу(). Приведенный ниже код находит только одну запись.
БД = СоздатьОбъект("XBase");
БД.ОткрытьФайл(КаталогИБ() + "sc46.dbf", КаталогИБ() + "sc46.cdx", 1);
БД.КодоваяСтраница(0);
БД.ТекущийИндекс("DESCR");
БД.Ключ.DESCR = "VIKA";
БД.НайтиПоКлючу(0);
Сообщить(БД.НомерЗаписи());
Сообщить(БД.ПолучитьЗначениеПоля("DESCR"));

Пока БД.Ключ.DESCR = "VIKA" Цикл
 Сообщить(БД.НомерЗаписи());
 Сообщить(БД.ПолучитьЗначениеПоля("DESCR"));
 БД.Следующая();
КонецЦикла;

(1) Проверял сам то?

(2) нет конечно.

+(3) а в чем трабла?

(0) Погодь, ты в своей рабочей базе пытаешься открыть один из файлов базы.
По-моему это работать не должно.

(4) Не знал что так можно(Если это конечно работет).

(5) он же написал что "Приведенный ниже код находит только одну запись"
(6) учись ;))

(5) Файл можно открывать, если режим не монопольный.

(8) Ты лучше скажи спаботал код Лиса или нет

Код не работает...

(10) почему? тема не раскрыта.

А если:
1. Нашел -- Удаляешь запись
2. Ищешь следующую
3. Отменяешь изменения

(11) Не знаю почему... Как-нибудь можно без перебора обойтись? Интересует именно НайтиПоКлючу() или Найти(). Файл очень большой, перебором долго ищет.

(13) Домой вернусь - погляжу. Где-то года два назад делал такое. Конфа дома точно есть.

(13) не работает или не охота перебором? у тебя записи по индексу стоят... отсортированы они... друг под дружкой тобишь... че те исчо надо?

Но там дальше нужно (по воспоминаниям) просто использовать метод следующая и проверять индекс.

БД = СоздатьОбъект("XBase");
БД.ОткрытьФайл(КаталогИБ() + "sc46.dbf", КаталогИБ() + "sc46.cdx", 1);
БД.КодоваяСтраница(0);
БД.ТекущийИндекс("DESCR");
БД.Ключ.DESCR = "VIKA";
БД.Первая(0);
Пока БД.Ключ.DESCR = "VIKA" Цикл
Сообщить(БД.НомерЗаписи());
Сообщить(БД.ПолучитьЗначениеПоля("DESCR"));
БД.Следующая();
КонецЦикла;
Проверь. Это не из дома, но должно работать.

Без перебора необойтись.

Не мучайся.Возьми фокспро и делай скока надо.

Фильтр ДБФ по вхождению в код_чегото "Код", работает без проблем.
AX_TNR - поле в ДБФ код_чегото.
База.ДобавитьИндекс("IDXCODE", "AX_TNR", 1, 0, Строка(""""+СокрЛП(Код)+""""+" $ AX_TNR" ));
База.СоздатьИндексныйФайл("IDXCNEW.CDX");
База.ТекущийИндекс("IDXCODE");

Да проще надо
БД = СоздатьОбъект("XBase");
БД.ОткрытьФайл(КаталогИБ() + "sc46.dbf", КаталогИБ() + "sc46.cdx", 1);
БД.КодоваяСтраница(0);
БД.ТекущийИндекс("DESCR");
БД.Найти("VIKA");

Пока БД.DESCR = "VIKA" Цикл
Сообщить(БД.НомерЗаписи());
Сообщить(БД.ПолучитьЗначениеПоля("DESCR"));
БД.Следующая();
КонецЦикла;

+(20) Очень большое значение играет регистр символов. К поле ДБФ желательно чтобы всегда вводилось в верхнем регистре соотв. СокрЛП(Врег(Код)).

(21) Все херня, если сделать как в (20), в базе будут записи удовлетворяющие вхождению строки "Код", в поле (здесь AX_TNR). и не надо делать больше никаких сравнений.
База.Первая();
Пока База.ВКонце()=0 цикл  
 База.Следующая();      
КонецЦикла

Поддерживаю (20) лучще создать свой индекс, если неизвестен готовый.
Может надо Искать не "VIKA", а "VIKA     ".

(24) Что искать не важно, если Код="VIKA", то в базе будут записи удовлетворяющие "%VIKA%"

(21) Такой код не работает.

а так?
БД = СоздатьОбъект("XBase");
БД.ОткрытьФайл(КаталогИБ() + "sc46.dbf", КаталогИБ() + "sc46.cdx", 1);
БД.КодоваяСтраница(0);
БД.ТекущийИндекс("DESCR");
БД.Найти("VIKA");

Пока СокрЛП(БД.DESCR) = "VIKA" Цикл
Сообщить(БД.НомерЗаписи());
Сообщить(БД.ПолучитьЗначениеПоля("DESCR"));
БД.Следующая();
КонецЦикла;

(26) ... Написано используй (20) (22) (23)

(25) Что-то я не понял,  что ты лепишь.
В 20 понятно. Создал индекс, 23 что такое. Перебор всей базы что-ли

(29) Я написал - создал индекс и можешь перебирать всю базу без всяких "Если".

(26) он у тебя не работает потому, что не находит запись.

(30) И как же ты найдешь нужную запись без условия?

(32) условие в индексе...

(32) Не понял...
База.ДобавитьИндекс("IDXCODE", "AX_TNR", 1, 0, Строка(""""+СокрЛП(Код)+""""+" $ AX_TNR" ));
Фильтрует База по вхождению в поле AX_TNR строки Код. Я понимаю именно это нужно было автору.

(34) И что для каждого икомого значения ты будешь индекс создавать?

будет ли это быстрее?

ДБФ 400000 записей, создание индекса с перебором и загрузкой в ТЗ занимает меньше 1 минуты. (локально на моей машине: индекс 2 сек и выгрузка в ТЗ примерно 15 сек)

Вопросик дополнительный. А чтоб это дело универсальней сделать нужно программно определить название файла дбф, соответствующего справочнику. Для этого только ДД парсить? или проще способы есть?

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

Всем спасибо за совет. Теперь все работает... Воспользовался (27), только переделал немного...
БД = СоздатьОбъект("XBase");
   БД.ОткрытьФайл(КаталогИБ() + "sc46.dbf", КаталогИБ() + "sc46.cdx", 1);
   БД.КодоваяСтраница(0);
   БД.ТекущийИндекс("DESCR");
   БД.Ключ.DESCR = "сталь";
   БД.НайтиПоКлючу(0);
   
   Пока Найти(НРег(СокрЛП(БД.ПолучитьЗначениеПоля("DESCR"))), "сталь") > 0 Цикл
       Сообщить(БД.ПолучитьЗначениеПоля("DESCR"));
       БД.Следующая();
   КонецЦикла;

БЛИН. ну в (1) же ответ дал... тока сокрлп() надо было поставить...

(39) Странно, вопрос задавал не ты, но что то пытаешся доказать. В прочем, мне все равно. Я не навязываю свой вариант. Однако в моем случае (для моей базы), это работает намного быстрее, даже если пользователь введет код такой что в базе только одна запись будет ему соответствовать, мой код сработает в разы быстрее чем перебор всех 400000.

(41 ) Все дело было не в СокрЛП(), а в ВРег() (или НРег)... Можно так еще:
   БД = СоздатьОбъект("XBase");
   БД.ОткрытьФайл(КаталогИБ() + "sc46.dbf", КаталогИБ() + "sc46.cdx", 1);
   БД.КодоваяСтраница(0);
   БД.ТекущийИндекс("DESCR");
   БД.Найти("СТАЛЬ");
   
   Пока Найти(ВРег(БД.DESCR), "СТАЛЬ") > 0 Цикл
       Сообщить(БД.DESCR);
       БД.Следующая();
   КонецЦикла;

(43) неработает... неработает... все нормально работает... просто ты условия правильно не поставил...

Лису в курятнике отдельное списибо ;-)