|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
Процедура ПоказатьДБФ(дбф, имяФайла) далее Процедура Сформировать() перем дбф, флаг, папка; тЗнач.Очистить(); флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF"); Если флаг=0 Тогда возврат; КонецЕсли; дбф=СоздатьОбъект("Xbase"); дбф.ОткрытьФайл(папка+имяФайла); папк=папка; файл=имяФайла; Если дбф.открыта()=0 Тогда Предупреждение("Не могу открыть файл"+имяФайла); возврат; КонецЕсли; ПоказатьДБФ(дбф, имяФайла); КонецПроцедуры Процедура ПоказатьДБФ(дбф, имяФайла) Перем ин, имяПоля, тип, длина, точность, номСтроки; для ин=1 по дбф.КоличествоПолей() цикл дбф.ОписаниеПоля(ин, имяПоля, тип, длина, точность); тЗнач.НоваяКолонка(имяПоля, тип); тЗнач.УстановитьПараметрыКолонки(ин, тип, длина, точность,, мин(10, длина)); конецЦикла; КолП=дбф.КоличествоПолей(); НомС=ДБФ.КоличествоЗаписей(); загТЗнач="Файл "+имяФайла; дбф.Первая(); номСтроки=0; Пока дбф.ВКонце()=0 Цикл номСтроки=номСтроки+1; тЗнач.НоваяСтрока(номСтроки); для ин=1 по дбф.КоличествоПолей() цикл тЗнач.УстановитьЗначение(номСтроки, ин, дбф.ПолучитьЗначениеПоля(ин)); КонецЦикла; дбф.Следующая(); конецЦикла; КонецПроцедуры |
About the Author
