Добрый день! Помогите пожалуйста, уважаемые знатоки!

Возможно вопрос глупый но тем не менее))
Платформа 8.2.

Есть массив, в нем хранятся Ascii коды символов.

Надо тупо создать файл и записать его туда 1элемент -> 1байт.

делаю так:

К = 0;

Текст = Новый ЗаписьТекста("D:\1.txt");
   
Пока К <= Массив.ВГраница() Цикл
       
   Текст.Записать(Символ(Массив[К]));
       
   К = К+1;
       
КонецЦикла;
       
Текст.Закрыть();
       
Все нормально за исключением того, что в начале файла приписываются три каких-то неопознанных символа? Что это??!!
Это как то связано с настройками "переносов-разделителей"? Но что они тогда делают в начале файла??

это кодировка UTF-8

не могет быть в текстовом файле символа с кодом зеро

вообще может. Просто 1С не сможет его туда записать и прочитать штатными средствами. Хотя нет, прочитать сможет, через ДвоичныеДанные.

(1) да

(2) еще как могет, отлично все записывает. И зеро и не зеро.

(2) И кто сказал что это текстовый файл?

Это будет windows meta file, но это уже отдельная история.

(3)>> Просто 1С не сможет его туда записать и прочитать штатными средствами.

Пример в (0) записывает.

Вообще задача состоит в том что бы записать картинку, которую содержит массив в формате wmf, в хранилище значения.

http://en.wikipedia.org/wiki/Byte_order_mark

Нашел статью, где сказано что эти три байта - обозначают кодировку файла, для чтения другими программами. И что то мне подсказывает что заставить 1с не писать их не получиться...

(1) - теперь ясно, я думал это вопрос...

пиши через fso

Не вижу проблемы

Текст = Новый ЗаписьТекста("D:\1.txt",КодировкаТекста.ANSI);

Записать то ты его сможешь.
Прочитать - скорее всего нет.

(13) В ANSI нули не катят. Кроме того "ЗАПИСЬ ТЕКСТА"  приписывает в начале файла кодировку.

(14) Читать я его буду так:

Картинка = Новый Картинка("...");

(11) Книга знаний: Пример чтения и записи текстовых файлов (Scripting.FileSystemObject)

О таком я не знал. Спасибо! Это наверное то что нужно. Щас погуглю на эту тему.

http://msdn.microsoft.com/en-us/library/6tkce7xa(v=VS.85).aspx

вот тут все что надо щас попробую реализовать.

(16) Ты не прав.

   Запись=Новый ЗаписьТекста("C:\text.txt",КодировкаТекста.ANSI);
   Запись.Записать(Символ(0));
   Запись.Записать(Символ(0));
   Запись.Записать(Символ(0));
   Запись.Закрыть();


Открываем text.txt FAR-ом, нажимаем HEX и, о чудо, видим:

http://fotki.yandex.ru/users/liveups/view/476435?page=0

Да я не прав. Fso не помогла,кстати, там тоже эта хрень дописывается в начале.

Зато FSO упала при помещении в файл символа с кодом 148. Т.е. символ из дополнительной таблицы ASCII, а кодировка как говорил H A D G E H O G s, как раз была ASCII.

Когда я делаю как в (13) файл после метода Текст.Закрыть(); вообще исчезает!!!

Вот я и подумал сначала что это изза нулей.

Всмысле ansi-кодировка... оговорился...

(19)
<<Когда я делаю как в (13) файл после метода Текст.Закрыть(); вообще исчезает!!!>>

Код полностью приведи.

Массив = ComSA.Выгрузить();
   
К = 0;
   
Текст = Новый ЗаписьТекста("D:\1.txt", КодировкаТекста.ANSI);
       
Пока К <= Массив.ВГраница() Цикл
       
  Текст.Записать(Символ(Массив[К]));
   
  К = К+1;
       
КонецЦикла;
   
Текст.Закрыть();

COMSA - это comsafearray. Причем попробовал для интереса сделать цикл до десяти, все записалось нормально.

О! Кажется я догнал! Символ возвращает символ в unicode. Поэтому если сделать так

Запись=Новый ЗаписьТекста("C:\text.txt",КодировкаТекста.ANSI);
   Запись.Записать(Символ(148));
   Запись.Закрыть();

то запишется 3F , а не 94, что требуется...

Но почему файл исчезает все равно не понятно..

Вкурил, почему так.
Вот, попробуй этот казус развития кодировок

Запись=Новый ЗаписьТекста("C:\text.txt","ISO-8859-1");

А почему файл изчезает - сказать не могу

Спасибо О.Г.Р.О.М.Н.О.Е.! Все заработало!

А можно вкратце?? Как дошел до сией гениальной мысли??

(29) Ползанием по гиперссылкам Википедии
http://ru.wikipedia.org/wiki/Latin1

В Юникоде первые 256 кодовых позиций совпадают с ISO-8859-1.

ISO-8859-1 совпадает с unicode (читаем utf-8) по символам, а записывается в файл как ANSI - 1 символ - 1 байт.

Thank u very much!!

Еще раз всем здрасьте!

Небольшое уточнение, в конечном варианте оказалось что и ЭТО не работает. Очень долго тупил что не так, ибо вместо символа 0A записывались два символа 0D 0A.
А потом до меня дошло, что это указывается в параметрах проклятой "ЗаписиТекста", при записи в файл ставит символ переноса строки.
Т.о. взлетело все окончательно так:

Текст = Новый ЗаписьТекста("C:\sw5temp.wmf","ISO-8859-1",,,Символы.ПС);

- таким образом 0a заменяется на 0а, а не на 0D 0A.

А исчезновение файла было связвно именно с этим казусом. Когда надо было записать символ десять скажем в тысячный байт файла, на  методе "записать", файл просто исчезал! Не ясно почему((

Happy end)