Всем привет!
Перекодирую текст с помощью Adodb.Stream. 1С вылетает на методе Stream.WriteText(Text). С короткой строкой проблем нет, а у меня Файл текстовый 1,5Мб.

Есть тема в архиве: utf8
Делаю все в точности.

Попробовал другой вариант. Сначала записать файл, а потом перекодировать. Тоже самое.
Ребят, подскажите пожалуйста, где копать?

Мне помогло следующее:

Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку(Stream.readText());

Спасибо, Кристина!
Я вот только думал в этом направлении, чтобы как-то по строке перекодировать.

(2) Там тоже получится одна длинная строка, но её потом можно разбить построчно и т.п.

Сейчас пробую. Напишу результат. То есть если я правильно понял, после

Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку(Stream.readText());

Должен заработать:

Stream.WriteText(Текст);

Правильно?

Stream.WriteText(Текст); --->>> Это вообще не надо.
Текст запишется в одинэсовский объект "Текст". С ним затем и  работай.

Так, но потом Текст.Записать() и где кодировка? Кодировка будет стандартной DOS или Windows. Правильно? А мне надо utf-8

Из моей обработке по загрузке файла:


Если НужнаПерекодировка = 1 Тогда
   // Перекодировка.
   Стрим = СоздатьОбъект("ADODB.Stream");
   Стрим.Type = 2;
   Стрим.charset = "windows-1251";
   Стрим.Open();
   Стрим.LoadFromFile(СокрЛП(ВыбФайл));
   Стрим.charset = "utf-8";
       
   ВремТекст = СоздатьОбъект("Текст");
   ВремТекст.ДобавитьСтроку(Стрим.readText());
   Стрим.close();
   Стрим = "";
КонецЕсли;

// Здесь у меня разбивается на строки помельче, идет замена некоторых символов и т.п. На выходе получаем многострочный текст, который уже можно записать в файл.
Текст = ОбработатьТекст(ВремТекст);


Стрим = СоздатьОбъект("ADODB.Stream");
Стрим.Type = 2;
Стрим.charset = "windows-1251";
Стрим.Open();
Стрим.LoadFromFile(СокрЛП(ВыбФайл));
Стрим.charset = "utf-8";
Пока Стрим.EOS=0 Цикл
   Сообщить(Стрим.readText(-2));
КонецЦикла;
Стрим.close();

(8) Спасибо :)

Stream = СоздатьОбъект("Adodb.Stream");
Stream.Charset="windows-1251";
Stream.Type = 2;
Stream.Open();
Stream.LoadFromFile(Файлtxt);

ВремТекст = СоздатьОбъект("Текст");
ВремТекст.ДобавитьСтроку(Stream.ReadText());
Stream.Close();
Текст.Записать(Файл2);

И после этого Файл2 совсем не в utf-8? Что не так?

*пардон в конце ВремТекст.Записать(Файл2);

(10) откуда взялся объект Текст?

(10) ты чё к этому Тексту привязался? делаешь через Stream - ну так и делай. Текст не поддерживает unicode

а где смена чарсета (а по хорошему и позиционирование на начало) ?

Стрим = СоздатьОбъект("ADODB.Stream");
Стрим.Type = 2;
Стрим.charset = "windows-1251";
Стрим.Open();
Стрим.LoadFromFile(СокрЛП(ВыбФайл));
Стрим.charset = "utf-8";
ВремТекст = СоздатьОбъект("Текст");
Пока Стрим.EOS=0 Цикл
   ВремТекст.ДобавитьСтроку(Стрим.readText(-2));
КонецЦикла;
Стрим.close();
ВремТекст.Записать(Файл2);

+(13) а, хотя тут utf-8, может и взлететь

(13) утф8 вполне "поддерживает" в нем практически не присутствует симв(0)

(15) ему нужно записать в ЮТФ, а не прочитать

(17) да, понял уже. но всё равно изврат. Stream надо юзать и для чтения, и для записи

Проблема в том, что  Stream при записи Stream.WriteText(Text) 1С вылетает и все. Никаких ошибок, просто закрывается. В чем причина неясно

77 имеет ограничение на размер строки, где-то около 800 килобайт.

по этому поточные операции должны идти вне контеста 1с

(21)+ то есть переменная хранящая текст должны быть НЕ 1с

Как это реализовать?

(23) COM объект создавать не в 1с, или загружать кусками.

кроме того в 1с в строковой переменной есть запрещенные символы, по этому если файл их содержит они просто исчезнут из результата....

используй ADO для текстовых файлов и конверти средствами TSQL

(24)Спасибо, буду пробовать.

И вообще, всем спасибо!

Привожу выдержку и описания компоненты BinFiles.dll


Непосредственному хранению двоичных данных в длинных строках 1С Предприятие 7.7 мешают
следующие обстоятельства:
1. 1С Предприятие "не признаёт" символ с кодом 0 в строках.
2. Большинство символов с кодами 1-32 в длинной строке при осуществлении операции
"Тестирование и исправление ИБ" будут восприняты как ошибка.
3. При сохранении длинной строки 1С Предприятие обрезает конечные пустые символы
(пробел, перевод строки и т.п.), что для двоичных данных недопустимо.
4. Размер длинной строки ограничен значением ~780Кб.

(15) а после этого все равно файл то не utf-8

(0)
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=6047

(29) спасибо, но это не то, там только кирилица и цифры переводятся в utf

http://www.1cpp.ru/docum/icpp/html/BinaryData.html#encoding

Автор тебе файл перекодировать ?

(32)Угу.

//*******************************************
Процедура Сформировать()
   Перем Имя,Путь;
   Байт=255;
   Если ФС.ВыбратьФайл(0,Имя,Путь,"","Файлы|*","*")=0 Тогда
       Возврат;
   КонецЕсли;
   СтримВход=СоздатьОбъект("ADODB.Stream");
   СтримВход.Type=2;
   СтримВход.charset="windows-1251";
   СтримВход.Open();
   СтримВход.LoadFromFile(Путь+Имя);
   СтримВыход=СоздатьОбъект("ADODB.Stream");
   СтримВыход.Type=2;
   СтримВыход.charset="utf-8";
   СтримВыход.LineSeparator=-1;
   СтримВыход.Open();
   Всего=СтримВход.size;
   Пока СтримВход.EOS=0 Цикл
       СтримВыход.WriteText(СтримВход.ReadText(Байт),?(Байт=-2,1,0));
       Состояние("" + Формат(100 * СтримВход.position/Всего,"Ч(0)5.2")+"%");
   КонецЦикла;
   СтримВыход.SaveToFile(Путь+Имя+".utf8",2);
КонецПроцедуры