Во время написания обработки чтения dbf файла столкнулся с проблемой: длина имени файла больше 8-ми символов. Вот так решил проблему:
|
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 |
Процедура ПрочитатьФайлНажатие(Элемент) //Получаем объект Файл НашФайл = Новый Файл(ИмяФайла); //Получаем первые 8-мь симовол имени нашего исходного файла НашеИмяФайла = Лев(НашФайл.ИмяБезРасширения,8)+".dbf"; //Копируем наш исходный файл во временный каталог с нормальным именем НашПолныйПутьФайла = КаталогВременныхФайлов()+НашеИмяФайла; КопироватьФайл(ИмяФайла,НашПолныйПутьФайла); //Работа с dbf файлом ФайлДБФ = Новый XBase; ФайлДБФ.Кодировка = КодировкаXBase.OEM; ФайлДБФ.ОткрытьФайл(НашПолныйПутьФайла); ФайлДБФ.Первая(); Пока Не ФайлДБФ.ВКонце() Цикл НомерЗаказаКонтрагента = СокрЛП(ФайлДБФ.ПолучитьЗначениеПоля("MSG")); СуммаВФайле = СокрЛП(ФайлДБФ.ПолучитьЗначениеПоля("PAYSUM")); //Обрабатываем запись dbf файла ФайлДБФ.Следующая(); КонецЦикла; ФайлДБФ.ЗакрытьФайл(); КонецПроцедуры |
About the Author
