Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.95/21: Рейтинг темы: голосов - 21, средняя оценка - 4.95
0 / 0 / 0
Регистрация: 19.05.2008
Сообщений: 28

Конвертация кодировки DOS в Win

15.10.2008, 16:56. Показов 4605. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть файл с данными но в кодировке DOS.
Необходимо как то преобразовать в Win, чтобы выводить данные в форму...
Если есть предложения - шлите - буду благодарен ))
P.S. Данные НЕ содержат псевдографику - только цифры и буквы (на русском языке).
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.10.2008, 16:56
Ответы с готовыми решениями:

Какие кодировки(win, koi8, dos, mac, iso) поддерживает RichEdit
Какие кодировки(win, koi8, dos, mac, iso) поддерживает RichEdit

В чём отличия кодировки ms dos от кодировки ms windows?
Всем привет, подскажите в чём отличия кодировки ms dos от кодировки ms windows?

Кодировки DOS и WIN
Основная задача пусть есть *****.txt файл с кодировкой DOS необходимо написать программу которая конвертирует текст из DOS в WIN и...

5
Adil
15.10.2008, 17:08
//------------------------------------------------
unsigned char* Decode_Win_to_DOS(unsigned char * str)
{
unsigned char ch;
short i=0;
do
{
ch=str[i];
if(ch>=128)
{
if(ch>=192&&ch<=239)
{
ch-=(unsigned char)192;
ch+=(unsigned char)128;
}
else if(ch>=240)
{
ch-=(unsigned char)240;
ch+=(unsigned char)224;
}
else if(ch==(unsigned char )'№')
ch=252;
else
ch=32;
str[i]=ch;
}
i++;
}while(ch!=0);
return str;
}
//---------------------------------------------------
unsigned char* Decode_DOS_to_Win(unsigned char * str)
{
unsigned char ch;
short i=0;
do
{
ch=str[i];
if(ch>=128)
{
if(ch<=175)
{
ch-=(unsigned char)128;
ch+=(unsigned char)192;
}
else if(ch>=224&&ch<=239)
{
ch-=(unsigned char)224;
ch+=(unsigned char)240;
}
else if(ch==252)
ch='№'
else
ch=32;
str[i]=ch;
}
i++;
}while(ch!=0);
return str;
}
//-----------------------------------------------------------
Может в этих функциях можно что и изменить в лучшую сторону - давно писаны, но руки не доходят, работают - и ладно...
Удачи.
0 / 0 / 0
Регистрация: 19.05.2008
Сообщений: 28
15.10.2008, 17:17  [ТС]
Adil - спасибо огромное - ща вставлю в прогу - посмотрю))
0
0 / 0 / 0
Регистрация: 29.07.2008
Сообщений: 15
16.10.2008, 20:35
>Adil

Поддерживает ли эта перекодировка сжатые шрифты и формат A3?
0
Adil
16.10.2008, 21:31
:??? - Что ты называешь 'сжатым шрифтом' и 'форматом А3'?
Хотя, чтобы ты не имел ввиду, ответ наверняка НЕТ.
Удачи.
0 / 0 / 0
Регистрация: 29.07.2008
Сообщений: 15
17.10.2008, 12:14
Adil-у

Я и сам не знаю, что такое сжатый шрифт.
Но такая вещь есть в DOS. И вот эти сжатые шрифты нестандартного формата надо перекодировать в win.
А заниматься этим неохота. Тоска.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.10.2008, 12:14
Помогаю со студенческими работами здесь

Из Win кодировки в Dos
Подскажите, пожалуйста, как можно преобразовать текст из Windows кодировки в Dos кодировку. В билдере, например, были функции OemToChar()...

Конвертация DBF из DOS в Win
Задача стоит перевести все базы dBASE из ОЕМ(DOS)в Win, сохранив все данные и структуру. Решаю на Delphi7. Сейчас перекодировка полей...

Смена ASCII кодировки с DOS на WIN
при открытии файла из дос для нормального отображения шрифтов в WIN нужно сменить кодировку

Программа распознавания кодировки - DOS или WIN
Программа проверяет все файлы с заданным расширением в заданном каталоге (со всеми подкаталогами) и определяет в какой кодировке DOS...

Блок схема кодировки с Win в Dos (и меню)
procedure Convert(var a:string);{ANSI --&gt; ANSII} var i:integer; begin for i:=1 to length(a) do if ord(a) in then a:=chr(ord(a)-64)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 30.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru