Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
ВнизПерекодировка текстового файла из DOS в WIN Найти похожие ветки
← →
sniper © (2004-04-15 12:48) [0]Уважаемые мастера Delphi!!! Подскажите, плиз, как перекодировать текстовый файл DOS-кодировки в текстовый файл WIN-кодировку. Если можно, приведите пример.
Заранее очень благодарен.
← →
Smithson © (2004-04-15 12:51) [1]OemToAnsi + F1
← →
TUser © (2004-04-15 13:00) [2]См в кладовке
← →
Fay © (2004-04-15 14:07) [3]
procedure Jopa(FileName : string);
const
BSZ = 4096;
var
hr, hw, nr, nw : Cardinal;
b : array[0..BSZ - 1] of Char;
begin
hw := CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0);
if hw = INVALID_HANDLE_VALUE then
begin
ShowMessage("А ошибки обрабатывай сам 8)!");
Exit;
end;
hr := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, 0, 0);
ReadFile(hr, b, BSZ, nr, nil);
if nr <> 0 then
repeat
OemToAnsi(b, b); // в DOS
//AnsiToOem(b, b); // из DOS-а
WriteFile(hw, b, nr, nw, nil);
ReadFile(hr, b, BSZ, nr, nil);
until nr = 0;
CloseHandle(hr);
CloseHandle(hw);
end;
procedure TForm1.Button1Click(Sender : TObject);
begin
Jopa("c:\1.txt");
end;
← →
Fay © (2004-04-15 14:10) [4]Ваще-то не плохо было бы
b : array[0..BSZ] of Char;
и вот так...
b[nr] := #0;
OemToAnsi(b, b); // в DOS
....
8)
← →
Тимохов © (2004-04-15 14:43) [5]правильнее пользоваться oemtochar chartooem, т.к. ansi аналоги устарели.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.029 c