Консультация № 110091
19.11.2007, 08:30
0.00 руб.
0 1 1
Доброго времени суток. Подскажите пожалуйста как при создании dbf файла сделать имя больше 8 символов, и как сделать файл индекса к этому файлу. Если можно в виде примера.
Заранее благодарен.

Обсуждение

Неизвестный
20.11.2007, 16:11
общий
это ответ
Здравствуйте, Шмачков А. В.!
Работать с dbf имеющим длинное имя файла вряд-ли получится.
Есть альтернатива.
Хранить данные - любое имя файла - ДлинноеИмяФайлаDBF
Перед использованием переименовывать в формат 8.3 -
Например:
ДБФ = СоздатьОбъект("XBase");
ДлинноеИмяФайлаDBF="ДлинноеИмяФайлаDBF";
ИмяРабочее="StdFile.dbf";
ИмяИндекс="StdFile.cdx";
ФС.ПереименоватьФайл(ДлинноеИмяФайлаDBF, ИмяРабочее,1);
ДБФ.ОткрытьФайл(ИмяРабочее,"",0);
Если ДБФ.Открыта()=1 Тогда
ДБФ.ДобавитьИндекс("FIRST","STR(POLE1)+STR(POLE2)",0,0,"");
ДБФ.СоздатьИндексныйФайл(ИмяИндекс);
ДБФ.ЗакрытьФайл();
КонецЕсли;
ДБФ.ОткрытьФайл(ИмяРабочее,ИмяИндекс,1);
ДБФ.ТекущийИндекс("FIRST");
Если ДБФ.Открыта()=1 Тогда
и т.д. работаем.
в конце:
ДБФ.ЗакрытьФайл();
и опять переименовываем

ФС.ПереименоватьФайл(ИмяРабочее,ДлинноеИмяФайлаDBF,1);
Форма ответа