Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Печать в DOS кодировке вида @ say через VFP 8 / 4 сообщений из 4, страница 1 из 1
14.05.2009, 17:30
    #35986297
Ok888
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать в DOS кодировке вида @ say через VFP 8
Добрый день!
У меня досовская таблица ( соотв байт установлен )
печатаю посредством @ ... say предварительно set device to <file>
печатает ( выводит ) в вин кодировке - 1251
Подскажите пож-та как напечатать в 866?
...
Рейтинг: 0 / 0
14.05.2009, 19:10
    #35986594
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать в DOS кодировке вида @ say через VFP 8
Проще всего сначала завершить вывод в файл, а потом сконвертировать содержимое файла

Код: plaintext
1.
2.
lcFileName = "MyFile.txt"
=StrToFile(CPConvert( 1251 , 866 ,FileToStr(m.lcFileName)), m.lcFileName)

Правда, если объем файла не превышает 16МБ - это системное ограничение на длину символьной переменной, которая будет получена по FileToStr().

Можно еще не задавать явно номера кодовых страниц, а читать из настроек системы

CPCurrent() - без параметров - текущая кодовая страница среды FoxPro. В ней будет создан файл
CPCurrent(2) - кодовая страница сеанса DOS в текущей операционной системе. Для русскоязычной Windows будет 866, для англоязычной - 437
...
Рейтинг: 0 / 0
14.05.2009, 19:16
    #35986609
Ok888
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать в DOS кодировке вида @ say через VFP 8
оо, спасибо большое Владимир!
-- очень развёрнутый ответ.
Успехов!
...
Рейтинг: 0 / 0
18.05.2009, 09:09
    #35990678
Ok888
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать в DOS кодировке вида @ say через VFP 8
можно дополнить также что данный вывод реагирует на установку CODEPAGE = 866...
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Печать в DOS кодировке вида @ say через VFP 8 / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]