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

Вниз

перекодировка текста DOS в ANSI   Найти похожие ветки 

 
оля   (2002-05-21 02:47) [0]

Помогите написать прогу для чтения текста написанного под DOS ?


 
XOY   (2002-05-21 05:41) [1]

Ну вот фрагменты порцедур перекодировки из моей программы. Вроде работают.


procedure TForm1.prToDos(Sender: TObject); {Windows -> Dos}
begin
.......
AssignFile(F,FName);
AssignFile(F1,Fname1"); {FName, FName1: string}
reset(F);
rewrite(F1);
While not eof(F) do begin
read(F,buf); {buf: byte}
case buf of
{в 5 следующих строчках и есть сам олгаритм}
224..239: buf:= buf - 64;
240..255: buf:= buf - 16;
192..223: buf:= buf - 64;
184: buf:= 241;
168: buf:= 240
end;
write(F1,buf);
end;
closefile(F);
closefile(F1);
end;
end;



procedure TForm1.prToWindows(Sender: TObject); {Dos -> Windows}
begin
.........
AssignFile(F,FName);
AssignFile(F1,FName1");
reset(F);
rewrite(F1);
While not eof(F) do begin
read(F,buf);
case buf of
128..159: buf:= buf + 64;
160..175: buf:= buf + 64;
224..239: buf:= buf + 16;
240: buf:= 168;
241: buf:= 184;
end;
write(F1,buf);
end;
closefile(F);
closefile(F1);
end;


 
VAleksey   (2002-05-21 07:07) [2]

CharToOem и
OemToChar
чем не устраивают ?


 
PONTIY   (2002-05-21 09:05) [3]

А еще можно сделать так:


Function DecDosToWin(var r:string): String; //DOS to WIN
var
sDOS, sWIN: string;
n: integer;

begin
sDOS := " _Ў_ў"__¤"_:ср



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

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

Наверх




Память: 0.45 MB
Время: 0.004 c
7-97439
DmitryZ
2002-03-04 10:02
2002.05.30
Работа с портами под W2K, DLPrinterPortIO и не только...


1-97277
Well
2002-05-18 16:35
2002.05.30
Excel


3-97214
Fareader
2002-05-10 11:47
2002.05.30
Значение генератора


3-97194
wed
2002-05-08 15:25
2002.05.30
ADO - значение ConnectionString


1-97344
Dinara
2002-05-19 21:07
2002.05.30
Как прибить поток и им же порожденные?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский