Создание файла в DOS или в Windows кодровке

[Programmer2]

Здравствуйте.

Суть моего вопроса такая: я не знаю создать файл в WINDOWS кодировке.
Опишу подробно на примере:
F - переменная типа File
OutStrim - переменная типа OutStrim

Выполняется такой код:
F.CREATE('TEST_file.txt');
F.TEXTMODE(TRUE);
F.CREATEOUTSTREAM(OutStrim);
OutStrim.WRITETEXT('{1:F01K059490000000000000000}');
OutStrim.WRITETEXT();
OutStrim.WRITETEXT('Купить машину');OutStrim.WRITETEXT();
F.CLOSE();

Файл TEST_file.txt на диске создался нормально и с верными данными в кодировке DOS.
Вопрос: можно сделать так, чтоб файл записывался в WINDOWS кодировке?

[RedFox]

Цитата:

Сообщение от Programmer2

Файл TEST_file.txt на диске создался нормально и с верными данными в кодировке DOS.
Вопрос: можно сделать так, чтоб файл записывался в WINDOWS кодировке?

Сам никогда не пользовался, но посню, что есть СЮ 12400 и функция Dos2Win.

P.S. Кстати, тут на форуме тема такая когда-то уже пробегала..

[Programmer2]

Как приятно работать с знающими людьми!! )))
RedFox, спасибо за подсказку.

Сделал след. образом:
F - переменная типа File
OutStrim - переменная типа OutStrim
cuLocalisationManagement переменная типа Codeunit - Localisation Management.

F.CREATE('TEST_file.txt');
F.TEXTMODE(TRUE);
F.CREATEOUTSTREAM(OutStrim);
OutStrim.WRITETEXT(cuLocalisationManagement.Dos2Win('{1:F01K059490000000000000000}'));
OutStrim.WRITETEXT();
OutStrim.WRITETEXT(cuLocalisationManagement.Dos2Win('Купить машину'));OutStrim.WRITETEXT();
F.CLOSE();

Файл TEST_file.txt на диске создался нормально и с верными данными, вроде, в кодировке WINDOWS.
Проверю позже, и результаты напишу.
Если будут еще какие-нибудь идеи, то пиши, рад буду ознакомиться.

[Storkich]

Должно побыстрее работать, но не сравнивал

Init()
  ASCIIstr:=' АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№#';
  ANSIstr:= ' ЊЌЋЏђ‘’“”•–—˜™љ›њќћџЈҐ©«­®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ N ';
  ANSIstr[66]:=185;
  ANSIstr[67]:=160;

DosWin(New : Text[1024]) : Text[1024]
EXIT(CONVERTSTR(New,ASCIIstr,ANSIstr));

[Dimis]

Цитата:

Сообщение от Storkich

Должно побыстрее работать, но не сравнивал

Init()
  ASCIIstr:=' АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№#';
  ANSIstr:= ' ЊЌЋЏђ‘’“”•–—˜™љ›њќћџЈҐ©«­®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ N ';
  ANSIstr[66]:=185;
  ANSIstr[67]:=160;

DosWin(New : Text[1024]) : Text[1024]
EXIT(CONVERTSTR(New,ASCIIstr,ANSIstr));

Добрый день. не хочется казаться профаном, но как получена строчка ' ЊЌЋЏђ‘’“”•–—˜™љ›њќћџЈҐ©«­®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ N ', ведь у ANSI она выглядит ЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”•–—˜™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬­®Ї°±Ііґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя

[alexb_imported]

Проблема решается без какой-либо конвертации Win2Dos, a имменно строчкой

OuStrim.Charset('windows-1251');  -> русская кодировка

Вот полный пример

FileNameLoc := 'c:\Temp\Kyrill.txt';
textLoc := 'русские буквы'; 
CREATE(StreamLoc);
StreamLoc.Open;
StreamLoc.Charset('windows-1251');  // русская кодировка
StreamLoc.WriteText(textLoc);
StreamLoc.SaveToFile(FileNameLoc,2);
StreamLoc.Close;

Обсуждалось уже подробнее здесь
Крякозябры вместо русских букв при записи в текствый файл

[Dimis]

Цитата:

Сообщение от AlexB

ameLoc,2);


Обсуждалось уже подробнее здесь
Крякозябры вместо русских букв при записи в текствый файл

дело в том что в версии 2.6 такого не успели сделать) приходится костыль изобретать. хотя если кто нить заделится механизмом этой функции, я б запростл наподобии что нить написал. заранее спасибо

[Kalex63]

Цитата:

Сообщение от AlexB

Проблема решается без какой-либо конвертации Win2Dos, a имменно строчкой

OuStrim.Charset('windows-1251');  -> русская кодировка

Небольшое уточнение.
OuStrim - это Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Stream

[Dimis]

Цитата:

Сообщение от Kalex63

Цитата:

Сообщение от AlexB

Проблема решается без какой-либо конвертации Win2Dos, a имменно строчкой

OuStrim.Charset('windows-1251');  -> русская кодировка

Небольшое уточнение.
OuStrim - это Automation 'Microsoft ActiveX Data Objects 2.8 Library'.Stream

Да..Ваще гутно.. Спасибо огромное.
Вот заветный код.

CREATE(OuStream);
OuStream.Open();
OuStream.Charset('windows-1251'); // русская кодировка
OuStream.LoadFromFile('C:\kl_to_1c.txt');
WHILE NOT (OuStream.EOS()) DO
MESSAGE(FORMAT(OuStream.ReadText(-2)));
OuStream.Close;