Помогите написать пожалуйста такую штуку...
Есть три переменные:
Перем1, Перем2, Перем3.
Они содержат определенные значения...
Есть файл DBF, который содержит три поля, строк там около 100 000.
Нужно найти строку в файле в точности соответствубщую этим трем переменным.

создай индексный файл
потом можно НайтиПоКлючу()

Создай индексный файл по трем полям и ищи по индексу

Так а как создать-то ?

Хоть Фоксом. Зачем себя люди ограничивают?

Причем тут фокс ? Мне в 1с нада ...

(5) Синтаксис-помощник религия не позволяет смотреть?
СоздатьИндексныйФайл(<?>)
Синтаксис:
СоздатьИндексныйФайл(<ИмяФайла>)
Назначение:
Создает индексный файл, содержащий все индексы, которые были созданы методом ''ДобавитьИндекс''.
Параметры:
<ИмяФайла> - строковое выражение с именем создаваемого индексного файла.
ДобавитьИндекс(<?>,,,,);
Синтаксис:
ДобавитьИндекс(<Название>,<Выражение>,<Уникальность>,<Убывание>,<Фильтр>)
Назначение:
Добавить индекс в структуру базы.
Метод можно использовать только перед созданием новой базы.
Параметры:
<Название> - строковое выражение, содержащее имя создаваемого индекса,
<Выражение> - строковое выражение, содержащее ключ индекса (должно соответствовать инструкциям CodeBase),
<Уникальность> - флаг уникальности индекса (1 - уникальный, 0 - нет),
<Убывание> - флаг направления убывания индекса (1 - по убыванию значения ключа, 0 - по возрастанию),
<Фильтр> - строковое выражение содержащее фильтр индекса (в соответствии с инструкциям CodeBase).
Подробнее см. в документации, глава ''Работа с базами данных DBF формата''

Да религия-то не причем здесь... Читал я синтаксис, да не пойму как мне организовать поиск сразу по трем полям. Вот по одному получается... Если может кто-нить кроме как копировать строки из синт.помошника, напишите пожалуйста какой-нить элементарный пример... Заранее благодарен.

Как мне индекс-то постоить ?

Вам же написали:
ДобавитьИндекс(<Название>,<Выражение>,<Уникальность>,<Убывание>,<Фильтр>)
<Название> - просто обзовите
<Выражение> - сцепите в одно выражение Ваши 3 переменные, получите из них уникальную строку

а почему бы ADO не попользовать ? ;)

БазаЗ=СоздатьОбъект("XBase");
фильтр="Pole1='"+Перем1+"'.AND.Pole3='"+Перем2+"'.AND.Pole3='"+Перем3+"'";
БазаЗ.ДобавитьИндекс("ПервыйИндекс","Pole1+Pole2+Pole3",0,0,фильтр);
БазаЗ.СоздатьИндексныйФайл(""+КаталогБазыДанных()+"МойИндекс.cdx");
БазаЗ.ТекущийИндекс("ПервыйИндекс");
все, теперь в БазаЗ, будут только те записи,
которые удовлетворяют условию

+(11) если же тебе надо проверять в цикла,
то будет работать быстрее, если сделать так:
БазаЗ=СоздатьОбъект("XBase");
БазаЗ.ДобавитьИндекс("ПервыйИндекс","Pole1+Pole2+Pole3",0,0,);
БазаЗ.СоздатьИндексныйФайл(""+КаталогБазыДанных()+"МойИндекс.cdx");
БазаЗ.ТекущийИндекс("ПервыйИндекс");
Для н=1 По СколькоРазТебеНадо Цикл
   БазаЗ.Ключ.Pole1=Перем1;
   БазаЗ.Ключ.Pole2=Перем2;
   БазаЗ.Ключ.Pole3=Перем3;
   Если БазаЗ.НайтиПоКлючу(0)=1 Тогда
       //вот она твоя запись
   КонецЕсли;
КонецЦикла;

Спасибо.

А так быстрее будет ;)
ADO = CreateObject("ADODB.Connection");
  Base= CreateObject("ADODB.Recordset");
    ADO.Open("Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB="+КаталогИБ()+";Exclusive=No;Collate=Machine;NULL=NO;DELETED=NO;BACKGROUNDFETCH=NO");
  ЗапросСтр = "Select * from "+ИмяДБФ+" where (поле1 = """+зн1+""") and (поле2 = """+зн2+""") and (поле3 = """+зн3+""");";
  //Сообщить(ЗапросСтр);
  Base.Open(ЗапросСтр,ADO);
Пока Base.EOF()=0 Цикл
    // Делаем что-нить...
   Base.MoveNext();
КонецЦикла;
Base.Close();

а что значит Base.EOF()=0 ?

EndOfFile

(12) Не получается почему-то так сделать в 1Cv8... :(
Пишет ошибку при создании индексного файла №460. Неверный тип подвыражения.

(17) а ты хоть слово говорил пор то, что ты это делаешь в восьмерке?
(11,12) это для 7.7,
а с восьмеркой я еще мало знаком

Про восьмерку не говорил, но работаю в ней. В приципе в плане работы с DBF там всё похоже... Но почему-то так не работает...

(19)тогда тебе прямая дорога в синтаксис-помощник

Как я понимаю, ошибка именно тут...
БазаЗ.ДобавитьИндекс("ПервыйИндекс","Pole1+Pole2+Pole3",0,0,);
Потому что так - "БазаЗ.ДобавитьИндекс("ПервыйИндекс","Pole1",0,0,);" - создается индексный файл нормально.

Так синтаксис уже цитировали тут... Там ничего толкового не сказано...
Можно ли несколько полей в один индекс запихивать ?

(22)ЖКК

Что за ЖКК ?

(24)Желто-красные книжки

Нда... Особенно у 8ки они очень информативные...

Я всё понял, я складывал в один индекс поля разных типов. Ну а что же делать в этом случае ? У меня такой вот расклад (Дата,Строка,Строка,Строка,Число).

А ты того... преобразовывай
БДОст.ДобавитьИндекс("GOODS","TRIM(ALLTYPE)+TRIM(GOOD)+'@'+STR(STORE)+'@'",0,0,"");
БДПоз.ДобавитьИндекс("POSDOCS","DTOS(DOCDATE)+TRIM(DOCNUM)+'@'",0,0,"");

Неа, снова ошибку такую-же выдавать начинает...

+'@' - а что это значит ?

(21) (*)|(*) и как >> БазаЗ.ДобавитьИндекс("ПервыйИндекс"...
Хавает название индекса на русском языке и с такой длиннннннной?

"ПервыйИндекс" - условность-же. Какой пример привели, то и цитирую. Я использую свое название латинскими символави до 8 знаков.

А по (14) не пробовал?
Или в 8-ке так не прокатывает?

Не пробовал... Я не совсем понимаю (14). У меня другим способом всё получилось, за исключением преобразований...

Вообще-то перобразуется всё нормально, только больше двух полей в индекс почемуто не помещается...

Пишет Error#:-350 Key Length is too Large

Что за длина ключа ?

Ауу

Вот такой строкой я добавляю индекс...
БД_Стр.Индексы.Добавить("IDXData", "DTOS(Data)+TRIM(Customer)+TRIM(Document)+TRIM(Account)+STR(Sum,15,2)");

Что я не правильно делаю ?

слушай, а если убрать один из длинных/неудобных ключей и перебирать его циклом?

(41) Долго-же будет...
(39) Я пришел к выводу, что больше 2х текстовых полей запихать в индекс не получается, однако нигде не нашел, что-б говорилось об ограничении...

Я всё понял ! Длина индекса не должна превышать 256 байт.