Adodb.stream: Есть ли ограничение длины строки?

Есть на 7.7 такой простой код:

```1c
    Стрим = СоздатьОбъект("Adodb.Stream");
    Стрим.Type = 2; //2 - текст, 1 - бинарный файл
    Стрим.Mode= 3;
    Стрим.charset="windows-1251";

    Стрим.Open();
    Стрим.WriteText(тСтрока);
    Стрим.SaveToFile(СокрЛП(КаталогВыгрузки)+"\"+тИмяФайла+".csv",2);
    Стрим.Close();
```

При длине строки примерно более 412000 семерка просто падает на строке

```1c
    Стрим.WriteText(тСтрока);
```

Строка - сплошной текст, без перевода строки.
Меньшая длина строки - пожалуйста.
Проверял на возможно "невыгружаемые" символы: выгружал частями период, который не выгружается полностью.
---
ограничения есть, решение взял тут http://www.forum.mista.ru/topic.php?id=562533
Автор smaharbA

```1c
    Процедура Сформировать()
    Перем Имя,Путь;
    Байт=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);
    КонецПроцедуры
```
---
ограничения есть, решение взял тут http://www.forum.mista.ru/topic.php?id=562533
Автор smaharbA

```1c
    Процедура Сформировать()
    Перем Имя,Путь;
    Байт=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);
    КонецПроцедуры
```
---
Спасибо, попробую. У меня походу Яндекс сломанный был ))).
---
В итоге получилось так:

```1c
    Процедура ЗаписатьДлиннуюСтрокуВФайл(тСтрока, тИмяФайла)

    Стрим = СоздатьОбъект("Adodb.Stream");
    Стрим.Type = 2; //2 - текст, 1 - бинарный файл, с =1 ругается на кодировку
    Стрим.Mode= 3;
    Стрим.charset="windows-1251";

    Стрим.Open();
    ТекПозиция = 1;
    тДлинаСтроки = СтрДлина(тСтрока);
    ДлинаПорции = 16384;

    Все = 0;
    Пока Все = 0 Цикл
    МаленькийКусочекСтроки = Сред(тСтрока,ТекПозиция,ДлинаПорции);
    Стрим.WriteText(МаленькийКусочекСтроки);

    ТекПозиция = ТекПозиция + ДлинаПорции;
    Если ТекПозиция > тДлинаСтроки Тогда
    Прервать;
    КонецЕсли;
    КонецЦикла;

    Стрим.SaveToFile(СокрЛП(КаталогВыгрузки)+"\"+тИмяФайла+".csv",2);
    Стрим.Close();

    КонецПроцедуры // ЗаписатьДлиннуюСтрокуВФайл()
```