• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

1c V.7.7, кодировка, ДБФ

  • Автор темы Helena
  • Дата начала
Статус
Закрыто для дальнейших ответов.
H

Helena

1C v.7.7. Подскажите, плз, как сделать нормальную кодировку загружаемых данных из DBF-файла?
Делаю следующее, не помогает:

ДБФ1=СоздатьОбъект("Xbase");
ДБФ1.ОткрытьФайл(СокрЛП(Константа.ПутьКСуперОкнам)+"orders.dbf");

ДБФ1.Первая();

Пока ДБФ1.ВКонце()=0 Цикл
Тз.новаяСтрока();
Тз.Фирма=AnsiToOem(ДБФ1.CLIENT);
Тз.Отдел=ДБФ1.MANAGER;
Тз.ДатаДок=ДБФ1.DATA;
ДБФ1.Следующая();
КонецЦикла;
 
V

vitfil

Поясните, что в вашем понимании "нормальная кодировка"?
Для меня что 866, что 1251 - все нормальные...
смотрите соответствующий метод объекта XBase.
 
T

Typhoon

Опять прошу прощения у Уважаемого vitfil'а за прямой ответ с приведением куска кода !

КодоваяСтраница(<Режим>)

Назначение:
Установить режим кодировки для чтения и записи строковых значений в файл.
Возвращает: текущее числовое значение режима кодировки (на момент до исполнения метода).

Параметры:
<Режим> : 0 - windows-кодировка, 1 - DOS-кодировка


Вот кусочек кода: ДБФ.КодоваяСтраница(1) это применитнльно тебя, так при экспорте из PAradox у тебя будет ДОС кодировка dbf!

;)
 
H

Helena

пробовала я и так и эдак (и 0 и 1)
ДБФ1.КодоваяСтраница(1);

Код страницы 1251 в обоих случаях. Текст так и отображается коряво
 
H

Helena

наверно, дело не в 1С, а в самой таблице что-то не так...
 
K

kaa

Попробуйте создать средствами 1С dbf-ку, из исходоной перегрузите данные в созданную и замените

Писал выгрузку в банк клиент мне помогло
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!