Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Файловые Утилиты    >>    oem2ansi
   
 
 Конвертор Win to DOS  GVC Energetiki 05.11.1996

Конвертирование текстовых файлов из Win в DOS



1k 
 

From: root@kt3asu.tatpeo.elektra.ru Subject: OEM <-> ANSI Date: 5 Nov 1996 10:51:59 GMT Organization: JSC "GVC Energetiky",Moscow,Russia > как перекодировать из OEM в ANSI, из Виндов в DOS ? Держи исходник ! Мне однажды помогли в обратном случае, теперь сам бог велел помочь тебе здесь. Исходник для ТП6.0, но не расстраивайся сильно ! Могу прислать переделыш для наоборот ! program win2dos; var infile, outfile: text; Insymbol, Outsymbol: char; Innumber, Outnumber: word; begin if paramstr(1) = '' then begin writeln('не задано имя для конвертации'); Halt end; if paramstr(2) = '' then begin writeln('не задано результирующее имя для конвертации'); Halt end; assign(infile, paramstr(1)); reset(infile); assign(outfile,paramstr(2)); rewrite(outfile); while not eof(infile) do begin read(infile, insymbol); innumber:=ord(insymbol); if innumber in [192..255] then if innumber in [192..239] then outnumber := innumber-64 else outnumber := innumber-16 else outnumber := innumber; if innumber = 133 then innumber := 168; if innumber = 165 then innumber := 184; outsymbol:=chr(outnumber); write(outfile,outsymbol); end; close(infile); close(outfile); end.