VPF::Прочитать старый Character set из Делфы

SerGreY

Дата 28.11.2005, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет

Есть старый файл, записанный видимо в Паскале в character set IBM ASCII.
Мне его нужно прочитать и перегнать в нармалую кодировку (т.е. ANSI ASCII).
Какие функции для этого использовать?

SerGreY

Дата 28.11.2005, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет

У меня получилось при помощи WinHex конвертнуть файл в ANSI ASCII, тогда все читается.

Осталось только суметь сделать эту конвертацию из Delphi, неужели никто не знает как?

SerGreY

Дата 28.11.2005, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет

Написал такую функцию. Вроде работает, но меня волнует, что будет с символами, которые не попадут в диапазон проверки.

Код


{convert ASCII to ANSI}

 function AsToAn(s: String) : String;
 Var i,kod : Integer;
 begin
  Result:=s;
  for i:=1 to length(s) do
  begin
   kod:=Ord(s[i]);
   if ( kod>=128) and ( kod<=175) then
      Result[i]:=Chr(kod+64);
   if ( kod>=224) and ( kod<=239) then
      Result[i]:=Chr(kod+16);
   if kod=240 then  Result[i]:=Chr(168);
   if kod=241 then  Result[i]:=Chr(184);
  end;
 end;

Snowy

Дата 28.11.2005, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


function DosToWin(s: string):string;
var
  p: PChar;
begin
  GetMem(p,Length(s)+1);
  OEMToAnsi(PChar(s),p);
  result:=p;
  FreeMem(p);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »