Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

Проконсультироваться
со специалистом 1С

Консультироваться

Во время написания обработки чтения dbf файла столкнулся с проблемой: длина имени файла больше 8-ми символов. Вот так решил проблему:
Код 1C v 8.х
 Процедура ПрочитатьФайлНажатие(Элемент)
      
//Получаем объект Файл
НашФайл = Новый Файл(ИмяФайла);

//Получаем первые 8-мь симовол имени нашего исходного файла
НашеИмяФайла = Лев(НашФайл.ИмяБезРасширения,8)+".dbf";

//Копируем наш исходный файл во временный каталог с нормальным именем
НашПолныйПутьФайла = КаталогВременныхФайлов()+НашеИмяФайла;
КопироватьФайл(ИмяФайла,НашПолныйПутьФайла);

//Работа с dbf файлом
ФайлДБФ = Новый XBase;
ФайлДБФ.Кодировка = КодировкаXBase.OEM;
ФайлДБФ.ОткрытьФайл(НашПолныйПутьФайла);
ФайлДБФ.Первая();

Пока Не ФайлДБФ.ВКонце() Цикл
НомерЗаказаКонтрагента = СокрЛП(ФайлДБФ.ПолучитьЗначениеПоля("MSG"));
СуммаВФайле = СокрЛП(ФайлДБФ.ПолучитьЗначениеПоля("PAYSUM"));

//Обрабатываем запись dbf файла

ФайлДБФ.Следующая();
КонецЦикла;

ФайлДБФ.ЗакрытьФайл();
КонецПроцедуры


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.