Кто силен в dbf подскажите (в поисковиках не нашел реальных примеров)
Задача следующая:
Есть dbf - таблица, с 2 полями: товар и цена
нужно отобрать из нее товары с определенной ценой, например 100р
Есть метод Найти(), но как я понял ищет одну (первую) запись, а как найти все записи по условию?

НайтиПоКлючу, а дальше перебирать, пока не конец файла.
Это если чисто дибейсик

загрузи в тз и разбери ее как тебе надо

(2) зачем лишние телодвижения? индексированный дбф и так достаточно быстр...

(1) а нет примерчика, не разу с dbf не работал
в СП написано: "Найти запись по индексу". (Запись - в единственном числе), и еще
"Перед вызовом метода следует установить значения всех атрибутов агрегатного объекта типа ''Ключ'', которые участвуют в вычислении выражения текущего индекса."
Эта фраза вообще не понятна, для меня

(2) мне как раз надо наоборот, через ТЗ долго
(3) поле цена у меня индексное
предлагаете просто перебором?

ДБФ.Первая();
Пока 1 = 1 Цикл
    Если ДБФ.Следующая() = 0 Тогда
        Прервать;
    КонецЕсли;

    Если ДБФ.PRICE <> Цена Тогда
        Продолжить;            
    КонецЕсли;
    Сообщить(ДБФ.NAME);
КонецЦикла;

так работает, но я думал через ключи/индексы будет намного быстрее

Опишу задачу, кассир вводит в поле "цена" - цену
Нужно чтобы по нажатию каждой кнопки, чтобы перезаполнялась таблица. Т.е. в реальном режиме, а товаров около 40000

Я пробовал, через перебор/удаление не нужных позиций из ТЗ уходит 300мс, через цикл по dbf - и заполнение ТЗ заново - где-то 100мс
Хочу еще сократить это время, т.к. компы на кассах "не шустрые"

Анафея каждый раз читать весь файл? Загрузить и оперировать им не?

(6) загружается dbf файл один раз, при запуске 1с
Как им "оперировать"? как найти ВСЕ записи по условию (например цене)

ДБФ.ДобавитьИндекс("Price","Price",0,0)
ДБФ.Price=1000
Если ДБФ.НайтиПоКлючу(1) тогда
ДБФ.ХХХ - первая запись с равным или больше ключом
пока ДБФ.ВКонце()=0 цикл
   ДБФ.ХХХ - остальные записи с равным или больше ключом

+(8) Пардон...
ДБФ.КЛЮЧ.Price=1000

(8) сорри конечно, но до меня не доходит, как теперь достать все записи из него
что значит ДБФ.ХХХ

Еще просит перед использованием индекса указать индекс, т.е. пока такая конструкция получилась

ДБФ.ДобавитьИндекс("IDXPRICE","PRICE",0,0)
    
ДБФ.ТекущийИндекс("IDXPRICE");

ДБФ.КЛЮЧ.PRICE=Цена;
    
Если ДБФ.НайтиПоКлючу(0) > 0 тогда
//        ДБФ.ХХХ - первая запись с равным или больше ключом
//    пока ДБФ.ВКонце()=0 цикл
//      ДБФ.ХХХ - остальные записи с равным или больше ключом

КонецЕсли;

(10) Ты не "все" достаешь,  а по очереди.
после НайтиПоКлючу - у тебя либо конец файла, либо выборка записей

(11) после установки индекса вроде надо передернуть позицию.
сделай, например, .Первая()

(12) все-равно не получается ((

ДБФ.ТекущийИндекс("IDXPRICE");
ДБФ.Первая();
Цена = 100;    
ДБФ.КЛЮЧ.PRICE=Цена;
    
Если ДБФ.НайтиПоКлючу(0) > 0 тогда
//    ДБФ.ХХХ - первая запись с равным или больше ключом
    пока ДБФ.ВКонце()=0 цикл
    //      ДБФ.ХХХ - остальные записи с равным или больше ключом
            
        Сообщить(ДБФ.NAME);            

        ДБФ.Следующая();
    КонецЦикла;

КонецЕсли;

Выходят все поля, а не только с ценой 100

Вернее выходят поля у которых цена БОЛЬШЕ или равна 100
и работает горазззздо дольше, 2100мс

(14) ДБФ.НайтиПоКлючу(0)- ищет точное соответсвие

(16) ну да! сам удивляюсь
пробовал ДБФ.НайтиПоКлючу("="), то-же самое
и самое главное: работает гораздо дольше

набросал тест, может кто у себя проверить?

Процедура Сформировать()
    ДБФ = СоздатьОбъект("XBase");

    ДБФ.ДобавитьПоле("NAME", 2, 100, 0);
    ДБФ.ДобавитьПоле("PRICE", 1, 8, 2);
    
    //ДобавитьИндекс(<Название>, <Выражение>, <Уникальность>, <Убывание>, <Фильтр>)
    ДБФ.ДобавитьИндекс("IDXPRICE", "PRICE", 0, 0, "");

    ДБФ.СоздатьФайл("c:\temp\goods.dbf", "c:\temp\goods.cdx");
    ДБФ.ОчиститьФайл();

ДБФ.Добавить();
ДБФ.NAME = "Булка хлеба";
ДБФ.PRICE = 20;
ДБФ.Записать();    


ДБФ.Добавить();
ДБФ.NAME = "Два кусочека колбаски";
ДБФ.PRICE = 100;
ДБФ.Записать();    

ДБФ.Добавить();
ДБФ.NAME = "Коньяк Арарат";
ДБФ.PRICE = 1000;
ДБФ.Записать();    
    
ДБФ.Переиндексировать();



    ДБФ.ТекущийИндекс("IDXPRICE");
    ДБФ.Первая();
    
    Цена = 100;
    
    ДБФ.КЛЮЧ.PRICE=Цена;
    
    Если ДБФ.НайтиПоКлючу("=") > 0 тогда
//        ДБФ.ХХХ - первая запись с равным или больше ключом
        пока ДБФ.ВКонце()=0 цикл
//      ДБФ.ХХХ - остальные записи с равным или больше ключом
            
            Сообщить("" + ДБФ.NAME);

            ДБФ.Следующая();
        КонецЦикла;

    КонецЕсли;

КонецПроцедуры

добавил простой перебор
даже на таком простом примере видно что перебор работает быстрее. У меня 4мс, против 1мс

//*******************************************
Процедура Сформировать()
    ДБФ = СоздатьОбъект("XBase");

    ДБФ.ДобавитьПоле("NAME", 2, 100, 0);
    ДБФ.ДобавитьПоле("PRICE", 1, 8, 2);
    
    //ДобавитьИндекс(<Название>, <Выражение>, <Уникальность>, <Убывание>, <Фильтр>)
    ДБФ.ДобавитьИндекс("IDXPRICE", "PRICE", 0, 0, "");

    ДБФ.СоздатьФайл("c:\temp\goods.dbf", "c:\temp\goods.cdx");
    ДБФ.ОчиститьФайл();

ДБФ.Добавить();
ДБФ.NAME = "Булка хлеба";
ДБФ.PRICE = 20;
ДБФ.Записать();    


ДБФ.Добавить();
ДБФ.NAME = "Два кусочека колбаски";
ДБФ.PRICE = 100;
ДБФ.Записать();    

ДБФ.Добавить();
ДБФ.NAME = "Коньяк Арарат";
ДБФ.PRICE = 1000;
ДБФ.Записать();    
    
ДБФ.Переиндексировать();


    Начало = _GetPerformanceCounter(); //зафиксируем начало процесса...


    ДБФ.ТекущийИндекс("IDXPRICE");
//    ДБФ.Первая();
    
    Цена = 100;
    
    ДБФ.КЛЮЧ.PRICE=Цена;
    
    Если ДБФ.НайтиПоКлючу("=") > 0 тогда
//        ДБФ.ХХХ - первая запись с равным или больше ключом
        пока ДБФ.ВКонце()=0 цикл
//      ДБФ.ХХХ - остальные записи с равным или больше ключом
            
            Сообщить("" + ДБФ.NAME);

            ДБФ.Следующая();
        КонецЦикла;

    КонецЕсли;
    
    
    Конец = _GetPerformanceCounter(); //зафиксируем окончание процесса...
    Сообщить("" + (Конец - Начало)); //вычислим время выполнения цикла в секундах.
    
    // простой перебор
    Начало = _GetPerformanceCounter(); //зафиксируем начало процесса...
    
    ДБФ.Первая();

    Пока 1 = 1 Цикл
        Если ДБФ.Следующая() = 0 Тогда
            Прервать;
        КонецЕсли;

        Если ДБФ.PRICE <> Цена Тогда
            Продолжить;            
        КонецЕсли;
        Сообщить("" + ДБФ.NAME);
        
    КонецЦикла;

    Конец = _GetPerformanceCounter(); //зафиксируем окончание процесса...
    Сообщить("" + (Конец - Начало)); //вычислим время выполнения цикла в секундах.
    

КонецПроцедуры

(19) естественно, тупой перебор быстрее. а теперь перебери пару миллионов записей...

(20) ну фиг его знает, я проверял на 40тыщ записей
поиск по ключу 2100мс, а перебор 100мс
на 3 записях я еще поверю, установка ключей, поиск и т.д.
но не на 40тыщ - же
И самое ГЛАВНОЕ: не находит точное соответствие ключу!

(21) значит, что-то с руками.
у меня работало

(22) мож и руки конечно, но код-же я привел..
мож там какой команды не хватает
или может НайтиПоКлючу() для поиска одной записи..

есть у кого мысли, по этому поводу )

(0) на вот, наслаждайся
https://cloud.mail.ru/public/ED6T/M7DrVqnxT

Тупо запрос к файлику и там что угодно - группировки, фильтры и т.д

(0) если стандартными средствами, то по-моему, там только нафигационный метод. Т.е. найти первую запись и дальше пока условиям поиска удовлетворяет.
Ну или если так неохота, тогда можно попробовать открыть средствами ADO (провайдер MS Jet) и дальше обычный SQL. Я, правда, так не пробовал, но не вижу, почему бы могло не получиться.

вот здесь описана строка коннекта ADO+MS Jet 4.0 для файлов dbf:
https://support.microsoft.com/ru-ru/kb/326548#bookmark-3

(24) (25) (26) не знаю, нужно-ли настолько все усложнять
и будет-ли это работать быстрее простого перебора
это програмка будет стоять на старых машинах с WinXP
в принципе там все работает, кроме поиска по цене "реал-тайм",
сейчас работает по принципу, набрал цену, нажал поиск
а я хочу набрал цифру 1, вывелись товары с ценой 1р, нажал 0, вывелись товары с ценой 10р, и т.д.

(27) поклади куданить файлик, посмотрю...

(27) будет работать быстрее, если будет задействован подходящий индекс

ну а просто уссловие, для такого маленького файла, это милисекунды

(30) ну 40 тыщ записей - всяко быстрее, чем перебор должно быть...

dbf... dbf...
1sqlite, 770к записей (загруженная из xml база алкогольных лицензий), отбор 618 записей по индексу инн - 160мс на холодную базу (полный перезапуск компа) и 2мс на горячую

Сорри за задержку..
(28) http://файлообменник.рф/s5ueadz6bx1w.html
попробуйте отсюда скачать, если не получиться пишите
(32) я понимаю что вариантов реализации множество, в 1с77 встроенна поддержка dbf, мне нужно чтобы работало из коробки. Програмка простенькая, не хочу ее наворачивать 1sqlite, ADO+MS Jet 4.0 и иже с ними.

(28) либо вот
https://cloud.mail.ru/public/JQp4/K23EjSE8Y
это файлик без индексов, там продукты, еще есть такой-же хозтовары, но я думаю хватит одного для тестов

Кажется разобрался.
В общем метод НайтиПоКлючу() - видимо сортирует таблицу по этому ключу, и устанавливает указатель на первую запись
Если в цикле вставить проверку на этот ключ, то все начинает работать на порядок быстрее.
Без проверки время было 2000мс, с проверкой 5-10мс. Напомню прямым перебором у меня было 100мс

ДБФ.ТекущийИндекс("IDXPRICE");
ДБФ.КЛЮЧ.PRICE=Цена;
    
Если ДБФ.НайтиПоКлючу("=") > 0 тогда
//    ДБФ.ХХХ - первая запись с равным или больше ключом
    пока ДБФ_товары.ВКонце()=0 цикл
//      ДБФ.ХХХ - остальные записи с равным или больше ключом
           
        Если ДБФ.PRICE > Цена Тогда
            Прервать;    
        КонецЕсли;
        
        Сообщить(ДБФ.NAME);

        ДБФ.Следующая();
    КонецЦикла;
КонецЕсли;

Всем большое спасибо! как всегда форум выручил))

(35) он не сортирует по ключу - он строит индекс. Ну, типа сортировки, да...
но вроде при поиске по ключу по равенству - должен выбирать только равные, и заканчивать выборку по еоф.
ДБФ.НайтиПоКлючу("=") - не знаю
попробуй как в СП, ДБФ.НайтиПоКлючу(0)

(37) я пробовал и так и так, эффект тот-же
я думаю так, он же не может удалить записи из таблицы (те которые не проходят по условию). Просто он упорядочивает их (по ключу), и ставит указатель на первый.
Т.е. в таблице остаются ВСЕ записи, только отсортированные, остается выбрать нужные ))
Если взять все записи после НайтиПоКлючу(0), то видно что они отсортированные именно по цене становятся

у меня был такой же результат как в (35) прерывать приходилось по условию.

ну, значит я все уже позабыл нафик...