При загрузке DBF файла в 1С 8.1. текст отображается «иероглифами». Пробовала и OEM и ANSI кодировку.
Если открыть данный файл в Excel, то все нормально читается.

Подскажите, пожалуйста, в чем может быть проблема.

Up

надо кодировку устанавливать ДО открытия файла

(2) +1
И код покажи.

(3)+ еще лучше фотку

Функция ИмпортDBF(Параметры)
   
   ИмяФайла = Параметры.ИмяФайла;
   
   ФайлDBF = Новый XBase;

   ФайлDBF.Кодировка = КодировкаXBase.OEM;    //DOS

   Попытка
       ФайлDBF.ОткрытьФайл(ИмяФайла,,Истина); //Только для чтения
   Исключение
       Предупреждение("Ошибка открытия файла " + ИмяФайла);
       Возврат Неопределено;
   КонецПопытки;        
   
   Если НЕ ФайлDBF.Открыта() Тогда
       Предупреждение("Ошибка открытия файла " + ИмяФайла);
       Возврат Неопределено;
   КонецЕсли;
   
   тзВыписка =  Новый ТаблицаЗначений;
   тзВыписка.Колонки.Добавить("НомерПП");
   тзВыписка.Колонки.Добавить("Приход");
   тзВыписка.Колонки.Добавить("Расход");
   тзВыписка.Колонки.Добавить("ОКПО");
   тзВыписка.Колонки.Добавить("Контрагент");
   тзВыписка.Колонки.Добавить("МФО");
   тзВыписка.Колонки.Добавить("РСчет");
   тзВыписка.Колонки.Добавить("Содержание");
   
   ФайлDBF.Первая();
   
   Пока НЕ ФайлDBF.ВКонце() Цикл
       
       Если ФайлDBF.ЗаписьУдалена() Тогда
           ФайлDBF.Следующая();
           Продолжить;
       КонецЕсли;    
       
       // проверка на дату платежа
       Если ФайлDBF.DAT <> Параметры.ДатаДок Тогда
           ФайлDBF.Следующая();
           Продолжить;
       КонецЕсли;    
       
       Если СокрЛП(Формат(ФайлDBF.RR_DB, "ЧГ=0")) = Параметры.РСчет Тогда
           НовСтрока = тзВыписка.Добавить();
           НовСтрока.Приход    = 0;
           НовСтрока.Расход    = ФайлDBF.SUM;
           НовСтрока.НомерПП        = СокрЛП(Формат(ФайлDBF.N_DOC,"ЧГ=0"));
           НовСтрока.ОКПО            = СокрЛП(Формат(ФайлDBF.OKPO_CR,"ЧГ=0"));
           НовСтрока.Контрагент    = СокрЛП(ФайлDBF.NAIM_K);
           НовСтрока.МФО            = СокрЛП(Формат(ФайлDBF.MFO_CR,"ЧГ=0"));
           НовСтрока.РСчет            = СокрЛП(Формат(ФайлDBF.RR_K,"ЧГ=0"));
           НовСтрока.Содержание    = ФайлDBF.PRIZN;
       ИначеЕсли СокрЛП(Формат(ФайлDBF.RR_K, "ЧГ=0")) = Параметры.РСчет Тогда
           НовСтрока = тзВыписка.Добавить();
           НовСтрока.Расход    = 0;
           НовСтрока.Приход    = ФайлDBF.SUM;
           НовСтрока.НомерПП        = СокрЛП(Формат(ФайлDBF.N_DOC,"ЧГ=0"));
           НовСтрока.ОКПО            = СокрЛП(Формат(ФайлDBF.OKPO_DB,"ЧГ=0"));
           НовСтрока.Контрагент    = СокрЛП(ФайлDBF.NAIM_D);
           НовСтрока.МФО            = СокрЛП(Формат(ФайлDBF.MFO_DB,"ЧГ=0"));
           НовСтрока.РСчет            = СокрЛП(Формат(ФайлDBF.RR_DB,"ЧГ=0"));
           НовСтрока.Содержание    = ФайлDBF.PRIZN;
       Иначе    
           ФайлDBF.Следующая();
           Продолжить;
       КонецЕсли;
       ФайлDBF.Следующая();
       
   КонецЦикла;    
   
   Если НЕ тзВыписка.Количество() И ФайлDBF.КоличествоЗаписей() Тогда
       Предупреждение("В текущем файле нет платежей с данной датой выписки и расчетным счетом!");
   КонецЕсли;
   
   ФайлDBF.ЗакрытьФайл();
   
   Возврат тзВыписка;
   
КонецФункции

Кодировка у меня ДО открытия и стоит. Работала с DBF-файлами раньше неоднократно, таких проблем не возникало. Обычная загрузка выписки.
Банк-клиент стоит на ОС Vista. Файл и на Vista и на XP читается «иероглифами».

Up

KOI-8?

(8) В синтаксисе 8 можно выбрать или OEM или ANSI кодировку. Как установить KOI-8 (я так понимаю это кодировка)?

В Клиент-Банке есть настройка кодировки?

(10)Скорее всего есть какие-то. Но у меня в наличии только файлы.

все иероглифами или только часть текста?

(9)KOI-8,это кодировка действительно,но стандартными средствами 1с можно считать только в кодировке OEM или ANSI

‡  Ї« вҐ¦ ‘®Ј« б­® ¤®Ј®ў®аг Ї.2.2.¤®Ј.ь110 ўi¤ 23.07.2003а. 03.01.2002 §  12.08.2009-12.08.2009. ЃҐ§ Џ„‚

‘Ї« в  §  б⮬ в. Ї®б«гЈЁ §Ј. а е. ь112 ўi¤ 15,07,09. ўбм®Ј® - 3230,00 Ја­. ЃҐ§ Џ„‚

Вот, например.

(14) ваще за досил :0)

Как-то мне под руку попадался dbf-viewer, с возможностью менять кодировку, но это же не выход. Чем каждый раз обрабатывать файл, может лучше попросить выдавать файлы в правильной кодировке?

(0) Используйте Visual Fox Pro ODBC Driver или связку MS Access - dbf.

(17)к чему это все?нужно чтоб выдали файл в нужной кодировке.зачем лишние телодвижения

(18) Банки, например далеко не всегда идут на такое

пришли мне файл на st2009st собака qip.ru

(14)То что ты прислала, это - "База в формате DOS" ОЕМ

(19) Надо им правильно объяснять, почему клиент всегда прав...  :0)

(21) Только какой-то украинский DOS...

в коде как раз и считывается в таком формате...

(23) ну да "послуги зг" :0)))

(20) отправила письмо с файлом

пока не получил :0(

так и не получил файл. попробуй на sttt собака bk.ru отправить

попробуй пропатчить реестр и перезагрузить комп

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Xbase]
"DataCodePage"="ANSI"
"BDE"=dword:00000002

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Nls\CodePage]
"1250"="c_1251.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"

Проблема решилась, после того как кодировка:

ФайлDBF.Кодировка = КодировкаXBase.OEM;

Была установлена ПОСЛЕ открытия файла, а не ДО.

Всем спасибо!

вот это развод...

(31) да, развели как пацанов, причем меня дважды в (26) :0))

(31) проблему решила не я, а один из наших сотрудников. Он сказал, что кодировку файла установил уже после его открытия и таким образом проблема решилась. Я просто пересказываю слова, хотя сама еще не проверяла действительность сказанного. Но, думаю, что так оно и есть - врать не зачем.
(32) файл я действительно отправляла, но только сегодня мне пришел отчет о том, что письмо не было доставлено.

(5) ФайлDBF.ЗаписьУдалена()  это что он проверяет? есть какая-то отметка в файле что строка удалена, но физически она есть?