Как записать текстовый файл в DOS кодировке

← →
abhtr (2008-07-18 10:42) [0]

Необходимо записать информацию в текстовый файл в DOS кодировке.
Сейчас использую проверенную конструкцию

var
MyTextFile : TextFile; //файл для печати

sss : string;
begin
...
AssignFile(MyTextFile,sDirDoc+"\Spravka.rpt");
Rewrite(MyTextFile);
...
sss := "выводимая информация, которая меняется";
WriteLn(MyTextFile,sss);
...

CloseFile(MyTextFile);

Но текст выводиться в кодировке Win, а у клиента на ПК только DOS (есть еще такие, и пока еще будут)
Так вот, для него надо, чтобы в файл записывалось в DOS кодировке.
Как это можно сделать?
Написать функцию преобразования в DOS, с использованием CharToOem?
Может есть более красивое решение?

← →
Palladin © (2008-07-18 10:42) [1]

а CharToOem чем уродлив?

← →
Свекровка (2008-07-18 10:43) [2]

Может есть более красивое решение?

<Цитата>

В смысле не требующее программирования?

← →
Свекровка (2008-07-18 10:43) [3]

Ох уж эти эстеты с обостренным чувством прекрасного .....

← →
brother © (2008-07-18 10:51) [4]

> Может есть более красивое решение?

CharToOem - правильное решение)

← →
oldman © (2008-07-18 10:51) [5]

> а у клиента на ПК только DOS

И твоя программа там запускается?

← →
brother © (2008-07-18 10:54) [6]

> И твоя программа там запускается?

логичный вопрос ;)

← →
Поросенок Винни-Пух © (2008-07-18 10:54) [7]

Более красивое решение:

Создаем файл в анси.
Делаем shellexecute фару.
Посылаем в окно фара нажатие alt + имя файла + F4
Делаем Ctrl + A
Делаем Ctrl + X
Делаем F8
Делаем Ctrl + V
Делаем F2
Делаем F10

Красивее просто не придумаешь.

← →
abhtr (2008-07-18 10:55) [8]

> И твоя программа там запускается?

Нет. Туда передается только файл.

> CharToOem - правильное решение)

Хорошо. Спасибо что подтвердили мое решение.

← →
brother © (2008-07-18 10:55) [9]

> Посылаем в окно фара

фар в дос не работает.

← →
Поросенок Винни-Пух © (2008-07-18 10:56) [10]

А типа делфи работает

← →
oldman © (2008-07-18 10:58) [11]

Word -> SaveAs

А то вдруг кому-то захочется этот файл и под win почитать...

← →
brother © (2008-07-18 10:58) [12]

> Нет. Туда передается только файл.

угу? ;)

← →
Поросенок Винни-Пух © (2008-07-18 11:03) [13]

угу? ;)

Что угу?
На четвертый день зоркий глаз заметил что в сарае не хватает четвертой стены?

> [0] abhtr (18.07.08 10:42)

> Но текст выводиться в кодировке Win, а у клиента на ПК только
> DOS (есть еще такие, и пока еще будут)

> [5] oldman © (18.07.08 10:51)

> [7] Поросенок Винни-Пух © (18.07.08 10:54)

те не читая

> [9] brother © (18.07.08 10:55)
> > Посылаем в окно фара
>
> фар в дос не работает.

понимаем, что там голый дос )

ну дос, ну голый и чего?
дос-то там , а мы-то здесь с делфи фаром и shelleкзекутом на винде.

← →
abhtr (2008-07-18 11:11) [16]

> что там голый дос

Совершенно верно. :о(

> дос-то там , а мы-то здесь с делфи фаром и shelleкзекутом
> на винде.

упс, приношу извинения ;)

> Но текст выводиться в кодировке Win, а у клиента на ПК только
> DOS (есть еще такие, и пока еще будут)

Стесняюсь спросить, а как же твоя программа работает в ДОС, или ты просто файл пересылаешь?

> Может есть более красивое решение?

Можно написать свою функцию переконвертирования, строк на 500 - красиво!

Как записать текстовый файл в DOS кодировке Найти похожие ветки