Каталог решений - Функция загрузки из DBF-файлов

Функция ЗаполнитьТЗизDBF(ИмяФайла)
    Файл = создатьОбъект("XBASE");
    тз = СоздатьОбъект("ТаблицаЗначений");
    // открыть файл
    Файл.ОткрытьФайл(ИмяФайла);
    Файл.КодоваяСтраница(1); //задаем кодировку: 0 - windows, 1 - DOS 
    Если Файл.Открыта()=0 Тогда
        Сообщить("Не удалось открыть файл!");
        Возврат 0;
    КонецЕсли;
    сз = СоздатьОбъект("СписокЗначений");	// список имен полей
    // заполнение колонок ТЗ
    Для к = 1 По Файл.КоличествоПолей() Цикл
        ИмяПоля = "";
        Тип = "";
        Длинна = 0;
        Точность = 0;
        Файл.ОписаниеПоля(к, ИмяПоля, Тип, Длинна, Точность);
        сз.ДобавитьЗначение(ИмяПоля);
        тз.НоваяКолонка(ИмяПоля);
    КонецЦикла;
    // заполнение строк ТЗ
    Для н = 1 По Файл.КоличествоЗаписей() Цикл
        Файл.Перейти(н);
        тз.НоваяСтрока();
        Для к = 1 По сз.РазмерСписка() Цикл
            ИмяПоля = сз.ПолучитьЗначение(к);
            тз.УстановитьЗначение(н, ИмяПоля, Файл.ПолучитьЗначениеПоля(ИмяПоля));
        КонецЦикла;
    КонецЦикла;	
    Файл.ЗакрытьФайл();
    Возврат тз;
КонецФункции