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

[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;