Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2017.01.15;
Скачать: CL | DM;

Вниз

Как перевести текст в формат DOS   Найти похожие ветки 

 
Andrey K   (2015-02-08 00:05) [0]

Доброго времени суток. Пишу редактор для станков с ЧПУ. На станке досовская операционка. УП (управляющая программа) выводит сообщения для оператора. Как перевести сообщения в досовский формат при передаче УП на станок. Или где можно про это почитать.


 
Юрий Зотов ©   (2015-02-08 00:27) [1]

Насколько помню, CharToOem <-> OemToChar. Инструкции в гугле.


 
Andrey K   (2015-02-08 00:33) [2]

Спасибо


 
Dennis I. Komarov ©   (2015-02-08 01:02) [3]

Удалено модератором


 
i2e   (2015-02-09 14:02) [4]

пользовался таким:

function TextDosToWin(S: String): String;
var I, LenS: Integer;
   P: PChar;
begin
 P := PChar(S);    LenS := StrLen(P);    I := 1;
 while I <= LenS do          // &#225;&#251;&#235;&#238; &#239;&#238;&#228;&#239;&#240;&#224;&#226;&#235;&#229;&#237;&#238; "<="
 begin
   if ( Ord(S[I]) = $F0 ) then S[I] := Chr($A8) else     // &#168;
   if ( Ord(S[I]) = $F1 ) then S[I] := Chr($B8) else     // &#184;
   if ( Ord(S[I]) >= $A0 ) and ( Ord(S[I]) <= $AF ) then //&#224;-&#239;
     S[I] := Chr( Ord(S[I]) + $40 ) else
   if ( Ord(S[I]) >= $E0 ) and ( Ord(S[I]) <= $EF ) then //&#240;-&#255;
     S[I] := Chr( Ord(S[I]) + $10 ) else
   if ( Ord(S[I]) >= $80 ) and ( Ord(S[I]) <= $9F ) then //&#192;-&#223;
     S[I] := Chr( Ord(S[I]) + $40 );
   inc(I);
 end;
 TextDosToWin := S;
end;

function TextWinToDos(S: String): String;
var I, LenS: Integer;
   P: PChar;
begin
 P := PChar(S);    LenS := StrLen(P);    I := 1;
 while I <= LenS do
 begin
   if ( Ord(S[I]) = $A8 ) then S[I] := Chr($F0) else     // &#168;
   if ( Ord(S[I]) = $B8 ) then S[I] := Chr($F1) else     // &#184;
   if ( Ord(S[I]) >= $E0 ) and ( Ord(S[I]) <= $EF ) then //&#224;-&#239;
     S[I] := Chr( Ord(S[I]) - $40 ) else
   if ( Ord(S[I]) >= $F0 ) and ( Ord(S[I]) <= $FF ) then //&#240;-&#255;
     S[I] := Chr( Ord(S[I]) - $10 ) else
   if ( Ord(S[I]) >= $C0 ) and ( Ord(S[I]) <= $DF ) then //&#192;-&#223;
     S[I] := Chr( Ord(S[I]) - $40 );
   inc(I);
 end;
 TextWinToDos := S;
end;


 
i2e   (2015-02-09 14:03) [5]

в комментариях:
// Ё
// ё
// а-п
// р-я
// А-Я



Страницы: 1 вся ветка

Текущий архив: 2017.01.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
2-1421424584
Псб
2015-01-16 19:09
2017.01.15
AV после вызова GetTempFileNameW


2-1419002742
Вован Петрович
2014-12-19 18:25
2017.01.15
Локализация ПО


15-1456754444
K-1000
2016-02-29 17:00
2017.01.15
Как объединить несколько матриц для SetWorldTransform()?


15-1450349876
DayGaykin
2015-12-17 13:57
2017.01.15
TCP прокси


15-1448473849
RusSun
2015-11-25 20:50
2017.01.15
Хулиганы добавили offtop сообщения в KOL конференции