Загрузка Dbf-файлов с длиной имени больше 8 символов (1С 7.7)

В программе необходимо загружать DBF-файлы с длиной имени больше 8 символов. Если длина <=8 символам - все нормально, если же больше - программа вылетает с ошибками:

ДБФ.Первая(); : Перед выполнением операции нужно открыть базу!
Пока ДБФ.ВКонце() = 0 Цикл : Перед выполнением операции нужно открыть базу!

При этом я принудительно обрезаю имя файла до первых 8 символов - но все равно не помогает! Никак не могу понять свою ошибку(


Код ( (Unknown Language)):
Процедура ВыборФайла()

КаталогЗагрузки = "";
ФайлЗагрузки = "";
Если ФС.ВыбратьФайл(1, ФайлЗагрузки, КаталогЗагрузки, "Выберите файл", "*.dbf|*.dbf", , ) = 1 Тогда
ФайлЗагрузки = КаталогЗагрузки + ФайлЗагрузки;
КонецЕсли;

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

Процедура ПриВыбореИмениФайла()
Поз=Найти(ФайлЗагрузки,".");
Если (Поз=0) Или (Поз>8) Тогда
ФайлЗагрузки=СокрП(Лев(СокрЛ(ФайлЗагрузк и),12))+".DBF";
Иначе
ФайлЗагрузки=СокрЛП(Лев(ФайлЗагрузки,Поз )+"DBF");
КонецЕсли;
КонецПроцедуры


Процедура Сформировать()

ИмФайл=СокрЛП(Лев(СокрЛ(ФайлЗагрузки),8) )+".DBF";
Док1 = СоздатьОбъект("Документ.РеестрСчетовВход ящий");
ДБФ = СоздатьОбъект("XBase");
ДБФ.ОткрытьФайл(ИмФайл,,1);
Док1.Новый();
ДБФ.Первая(); // первая ошибка
Пока ДБФ.ВКонце() = 0 Цикл //вторая ошибка
Док1.НоваяСтрока();

0

vbs, спасибо за подсказку! Буду теперь изучать реализацию Excel.Application

0

Итак, мне все-таки удалось решить проблему загрузки файлов DBF с длинными именами, причем без использования Excel.Application!

[codebox]
Перем Выб,long, НовИмяФайла, ДлинноеИмяФайла;
Процедура ВыборФайла()
ФайлЗагрузки = "";
КаталогЗагрузки="";
long=0;
Если ФС.ВыбратьФайл(0, ФайлЗагрузки, КаталогЗагрузки, "Выберите файл",
"Файлы баз данных (*.dbf)|*.dbf", , ) = 1 Тогда
Если СтрДлина(ФайлЗагрузки) > 12 тогда
long=1;
ДлиноеИмяФайла=ФайлЗагрузки;
ЗначИмени = Лев(Строка(ФайлЗагрузки),8); // получаем первые 8 символов из имени
Расш = Прав(Строка(ФайлЗагрузки),3);
НовИмяФайла = ЗначИмени + "." + Расш;
Фс.ПереименоватьФайл(ФайлЗагрузки,НовИмя Файла,1);
Выб = НовИмяФайла;
Иначе
Выб = ФайлЗагрузки;
КонецЕсли;
КонецЕсли;
КонецПроцедуры


Процедура Сформировать()


ИмФайл=СокрЛП(Выб);
Док1 = СоздатьОбъект("Документ.РеестрСчетовВход ящийЛПУ");
ДБФ = СоздатьОбъект("XBase");
ДБФ.ОткрытьФайл(КаталогЗагрузки + "\" + Выб);
Док1.Новый();
ДБФ.Первая();
Пока ДБФ.ВКонце() = 0 Цикл
Док1.НоваяСтрока();

и т.д. (обрабатываем документ)
......
ДБФ.ЗакрытьФайл();
Если long=1 Тогда
Фс.ПереименоватьФайл(НовИмяФайла,ФайлЗаг рузки,1);
КонецЕсли;
КонецПроцедуры
[/codebox]

Так что моя гипотеза была не такой уж безумной :(

P.S. С помощью Excel.Application также удается делать загрузку, вот только я не понял как узнать количество строк в файле (чтобы правильно организовать цикл)? Хотелось бы сделать вариант и с использованием Экселя

0

Вопросик :( ... а Вы уверены, что 8 первых символов файла уникальны? ))

Сообщение от VirusVlad Вопросик :( ... а Вы уверены, что 8 первых символов файла уникальны? ))

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

0

Сообщение от BBDragon P.S. С помощью Excel.Application также удается делать загрузку, вот только я не понял как узнать количество строк в файле (чтобы правильно организовать цикл)? Хотелось бы сделать вариант и с использованием Экселя

Наверняка и это можно узнать, я не заморачиваюсь, просто читаю в цикле, пока НЕ ПустоеЗначение в колонке, которая обязательно должна
быть заполнена

0