Доброе время суток.
Нужен совет в выгрузке данных в текстовой файл. Каждая строка текстового файла должна иметь длину 444 символа. Строки другой длины игнорируются.

Вот код:

   Текст = СоздатьОбъект("Текст");
   Текст.КодоваяСтраница(0);

   Пока Запрос.Группировка(1) = 1 Цикл
           
       тз.НоваяСтрока();
       тз.ДатаДок          = Запрос.ДатаДок;
       тз.НомерДок         = Запрос.НомерДок;

               //-- заполнил таб.значений

               стр = "";
               стр = тз.ДатаДок + "_" + тз.НомерДок + "_" + // и т.д (всё в одной строке)
               Текст.ДобавитьСтроку(стр);

       КонецЦикла;

       Текст.Записать(ВыбФайлаДанныхВыгрузки);

Посмотри в сторону FSO:
oFSO = СоздатьОбъект("Scripting.FileSystemObject");

Используй Scripting.FileSystemObject

(2) Оксана, зачем тебе ЭТО?

пробовал = перенос строк происходит

Выгрузка в банк клиент

(3) Хобби.

(6) Точно

use Write instead WriteLine

А в чем прикол с 255 символов в текстовом файле. Вроде этот толькона вывод окно сообщений ограничивает.

(8) Языком общения на форуме является русский. Сообщения, написаные на любом другом языке, ввиду незнания модератором всех языков мира, кроме русского, автоматически рассматриваются как подстрекательство к свержению правящего строя


Зачем ты пытаешься свергнуть правящий строй?

(2) ок, тогда самозабанься за (2)

"Каждая строка текстового файла должна иметь длину 444 символа. Строки другой длины игнорируются. "
интересно, кто такой формат придумал? расстрелять

(11) Ты же не маленький мальчик и знаешь разницу.

(13) хочешь поговорить об этом?

Других идей нет ???

есть. adodb.Stream

Использовал - "Scripting.FileSystemObject" и "AddIn.V7TextFile" - желаемого результата не добился.

Подробнее про - adodb.Stream

(17) значит неправильно использовал

(0) Можно ещё использовать v7plus, там длинные строки проходят, вроде бы.

(20) описание функции v7plus есть

(19) проверял несколько раз

(22) печалька. забей, это судьба

(23) не пойдет. :)

(20) так как насчет описаний функций и процедур v7plus.dll - если нет то чего предлагаешь ?

не, ну сам подумай: СП украли, в гугле забанили, на мисте игнорируют

(26):)

я думаю, нашел-бы выход из ситуации.
еще один вариант - разбивать перед записью строку на 2 строки, и читать их с конкатенацией.. просто помнить, что строки разрезаны

(0)
   Текст=СоздатьОбъект("Текст");
   стр="";
   для х=1 по 444 Цикл
       стр=стр+"1";
   КонецЦикла;
   Для х=1 по 15 Цикл
       Текст.ДобавитьСтроку(стр);
   КонецЦикла;
   Текст.Записать("C:\test.txt");
   Текст2=СоздатьОбъект("Текст");
   Текст2.Открыть("C:\test.txt");
   Для х=1 по 15 Цикл
       Сообщить("Длина строки "+х+": "+СтрДлина(Текст2.ПолучитьСтроку(х))+" символов.");
   КонецЦикла;


выдает:

Длина строки 1: 444 символов.
Длина строки 2: 444 символов.
Длина строки 3: 444 символов.
Длина строки 4: 444 символов.
Длина строки 5: 444 символов.
Длина строки 6: 444 символов.
Длина строки 7: 444 символов.
Длина строки 8: 444 символов.
Длина строки 9: 444 символов.
Длина строки 10: 444 символов.
Длина строки 11: 444 символов.
Длина строки 12: 444 символов.
Длина строки 13: 444 символов.
Длина строки 14: 444 символов.
Длина строки 15: 444 символов.

Вот и у меня так же. В чем прикол, понять не могу. Хотя судя по хитрому взгляду smaharbA здесь :) Ограничение на длину строки что-то в этом есть :).

(30) то есть через "scripting.filesystemobject" ? Если да - результат не тот.

(29) на таком простом примере всё в норме, ты попробуй выгрузи одно платежное поручение в 1 строку.

(32) Так в теме из (30) есть еще про наличие спецсимволов в строке.

(33) у тебя дало желанный результат

(26) ...ЖКК сгорели...

(34) Не пробовал. Экспериментировал как в (29).

(36) в (29) тоже что-то есть :)

(29) делаю по твоему примеру:

   колстр = 0;
   Пока Запрос.Группировка(1) = 1 Цикл

       колстр = колстр + 1;
       
       тз.НоваяСтрока();
       тз.ДатаДок          = Запрос.ДатаДок;
       тз.НомерДок         = Запрос.НомерДок;

               //-- и т.д.


       стр = "";
       Для н=1 по тз.КоличествоКолонок() Цикл
          стр = стр + тз.ПолучитьЗначение(колстр, н);
       КонецЦикла;

       Текст.ДобавитьСтроку(стр);
       
   КонецЦикла;
     
   Текст.Записать(ВыбФайлаДанныхВыгрузки);

Да-а-а больше нет идей !?

Объект "Текст" - Зло от 1С + Билла.
Используй 1С++ - BinaryData

(40) нет спасибо...

(39) ты можешь объяснить что именно у тебя не получается?

ДАТА      |ИСП|ДАТА ДОК. |N ДОК     |ТИП|КОД|ДЕБЕТ          |КРЕДИТ         | должно быть.

ДАТА      |ИСП|ДАТА ДОК. |N ДОК     |ТИП
|КОД|ДЕБЕТ          |КРЕДИТ         | - получается

Так попробуй.

     стр = "";
       Для н=1 по тз.КоличествоКолонок() Цикл
          стр = стр + тз.ПолучитьЗначение(колстр, н);
       КонецЦикла;

   Стр = СтрЗаменить(Стр,Симв(10),"");
       Стр = СтрЗаменить(Стр,Симв(13),"");        

       Текст.ДобавитьСтроку(стр);

(41)Зря, ну а если серьезно, то начни лучше выгрузку делать через XML :)

(45) что заменяет ? Не поиму.

   Стр = СтрЗаменить(Стр,Симв(10),"");
   Стр = СтрЗаменить(Стр,Симв(13),"");

Ты выгрузку для какой программы делаешь?

(48) для клиент банка

(49)И что у них есть прописаный формат файла?
Или ты строчишь со слов туп. Буха?

+ Приведи текст формата, они обычно на словах не общаются :)

(49) Что за банк такой странный, что ему типовая не подходит?

(51) есть описание текст.файла для импорта плат.поручений

Покажи, что ты там имеешь в виду.
Думается ты даже понятие не имеешь, что тебе надо нарисовать :)

(54) Либо не Россия, либо ТС гонит

(54) ... так, понятно спасибо за помощь.

(55) ... и тебе тоже спасибо.

(55) .. по нику мог бы определить что не Россия.

Ну ты бы таки выложил хотя бы пару строчек из полученного тобой файла. Конфеденциальную информацию забей единичками.

(58) Так ты из Молдовы что ли ?

(58) у меня телепат сегодня выключен.
не жми формат - выложи

(47) Заменяет символы перевода строки CR+LF.
И у тебя всегда режет как в (44) ?

(62) спасибо сейчас попробую

(62) Большое спасибо за помощь.
Кого интересует:

     стр = "";
       Для н=1 по тз.КоличествоКолонок() Цикл
          стр = стр + тз.ПолучитьЗначение(колстр, н);
       КонецЦикла;

       стр = СтрЗаменить(Стр,РазделительСтрок,"");


       Текст.ДобавитьСтроку(стр);