Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > 1C: Предприятие, SAP, ERP и учётные системы > Реализация Excel.Application в 1С 7.7

Автор: SubZero 19.3.2010, 15:36

На диске в различных каталогах находятся файлы dbf с длиной имени порядка 12-14 символов. Если длина имени не превышает 8 символов- файлы открываются нормально, если же больше - программа вылетает с ошибкой "Перед выполнением операции нужно открыть базу!" на строчках
ДБФ.Первая();
и Пока ДБФ.ВКонце() = 0 Цикл

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

Первоначальная версия процедур:

Код


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

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


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

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

Решил сделать возможной загрузку файлов и с длинными именами. Алгоритм следующий:
1) long = 0;
2) пытаемся открыть файл, если длина больше 8 символов Тогда
   а) усекаем имя до 8 символов;
   б) переименовываем файл на диске в короткое имя;
   в) присваиваем переменной long значение 1;
Иначе
     ничего не делаем
Далее создаем объект типа XBase, создаем новый документ, открываем наш файл DBF и начинаем заполнять документ значениями полей файла. Если у нас был длинный файл (long=1), то после окончания всех действий вновь переименовываем файл (возвращаем ему исходное имя).

Код


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

Процедура ПриВыбореИмениФайла() 
    long=0;
    Поз=Найти(ФайлЗагрузки,".");
    Если (Поз>8) Тогда // длинное имя файла
        КороткоеИмяФайла=СокрП(Лев(СокрЛ(ФайлЗагрузки),8))+".DBF";;
        long = 1;
        ФС.УстТекКаталог(КаталогЗагрузки);
        Результат = ""; 
        Результат = ФС.НайтиПервыйФайл(ФайлЗагрузки);
        Если Результат<>"" Тогда
            ФС.ПереименоватьФайл(СокрЛП(КаталогЗагрузки)+"\"+ Результат,СокрЛП (КаталогЗагрузки)+"\" + КороткоеИмяФайла,1);//теперь наш файл называется R91000.dbf        
        КонецЕсли;
    Иначе    
        КороткоеИмяФайла=СокрЛП(Лев(ФайлЗагрузки,Поз)+"DBF");
    КонецЕсли;    
КонецПроцедуры   

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

Гуру подсказали, что необходимо использовать Excel.Application, так что думаю засесть за его изучение. Никто не сталкивался с подобным?

Автор: Zero 20.3.2010, 11:36

Цитата(SubZero @ 19.3.2010, 15:36

)

Гуру подсказали, что необходимо использовать Excel.Application, так что думаю засесть за его изучение.

Начни изучение отсюда:
http://forum.vingrad.ru/articles/topic-141284/anchor-entry1065326/0.html
Может быть, многие вопросы отпадут smile

Автор: SubZero 24.3.2010, 08:45

Zero, спасибо большое!

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

Код


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


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

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

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

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

Автор: SaschaL 24.3.2010, 11:45

Я же и говорил что проблемы с загрузкой из *.dbf нет, надо просто гибко подойти к этому

Автор: korund2010 26.3.2010, 12:34

По поводу определения числа строк

//Определяю размеры входного файла
Функция ПрочитатьСписокПолейВходногоФайла()
    Если НачальнаяСтрока<=0 Тогда    // не задано число строк
        НачальнаяСтрока = 1;
    КонецЕсли;
    Если КонечнаяСтрока<=0 Тогда            // не задано число строк
        КонечнаяСтрока = 1;
        Для НомСтр=1 по ЧислоСтрокExcelФайла Цикл
            Если ПустаяСтрока(ВходExcel.Sheets(SheetOfBook).Cells(КонечнаяСтрока,1).Value)=0 Тогда
                КонечнаяСтрока = КонечнаяСтрока + 1;

   и т.д

где  ЧислоСтрокExcelФайла - предварительно задается числом заведомо большим. чем ожидается
     ВходExcel = СоздатьОбъект("Excel.Application");
        SheetOfBook - номер страницы книги Excel

Автор: Zero 27.3.2010, 18:43

Цитата(SubZero @ 24.3.2010, 08:45

)

вот только я не понял как узнать количество строк в файле (чтобы правильно организовать цикл)?

Код


  // Чтобы знать размер листа, т.е. количество строк и количество
  // столбцов, мы активируем его последнюю непустую ячейку
  Эксель.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;

  // Определим количество строк и столбцов в текущем листе
  x := Эксель.ActiveCell.Row;
  y := Эксель.ActiveCell.Column-1+Эксель.Selection.Columns.Count;

Автор: SubZero 29.3.2010, 07:50

SaschaL, спасибо огромное за решение моей проблемы стандартными средствами! smile

korund2010, Zero, огромное спасибо за помощь в освоении Excel.Application smile