HelpF.pro

Загрузка данных из DBF файла в Таблицу Значений

Код 1C v 7.x
  Процедура ПоказатьДБФ(дбф, имяФайла) далее

Процедура Сформировать()
перем дбф, флаг, папка;
тЗнач.Очистить();
флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF");
Если флаг=0 Тогда
возврат;
КонецЕсли;
дбф=СоздатьОбъект("Xbase");
дбф.ОткрытьФайл(папка+имяФайла);
папк=папка;
файл=имяФайла;
Если дбф.открыта()=0 Тогда
Предупреждение("Не могу открыть файл"+имяФайла);
возврат;
КонецЕсли;
ПоказатьДБФ(дбф, имяФайла);
КонецПроцедуры

Процедура ПоказатьДБФ(дбф, имяФайла)
Перем ин, имяПоля, тип, длина, точность, номСтроки;
для ин=1 по дбф.КоличествоПолей() цикл
дбф.ОписаниеПоля(ин, имяПоля, тип, длина, точность);
тЗнач.НоваяКолонка(имяПоля, тип);
тЗнач.УстановитьПараметрыКолонки(ин, тип, длина, точность,, мин(10, длина));
конецЦикла;

КолП=дбф.КоличествоПолей();
НомС=ДБФ.КоличествоЗаписей();

загТЗнач="Файл "+имяФайла;
дбф.Первая();
номСтроки=0;
Пока дбф.ВКонце()=0 Цикл
номСтроки=номСтроки+1;
тЗнач.НоваяСтрока(номСтроки);
для ин=1 по дбф.КоличествоПолей() цикл
тЗнач.УстановитьЗначение(номСтроки, ин, дбф.ПолучитьЗначениеПоля(ин));
КонецЦикла;
дбф.Следующая();
конецЦикла;
КонецПроцедуры

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/402.html