Имя: Пароль:
1C
1C 7.7
v7: Запись txt в одну строку
,
0 work92
 
16.09.15
14:04
Сори что пишу тему повторно так как подсказки привели к зацикливанию. может кто подскажет как решить эту проблему
1 work92
 
16.09.15
14:05
Теперь так
^_Table=
Npp1=1~Name1=Завадский Виталий Александрович~Nch1=3114005049015~Sum1=     1845000.00~
Npp1=2~Name1=Русакевич Игорь Михайлович~Nch1=3114005063886~Sum1=       33333.00~
^Date=16.09.2015^
А нужно
^_Table=Npp1=1~Name1=Куст И.А ~Nch1=5655784678~Sum1=     1845.00~Npp1=2~Name1=Рум Д.А~Nch1=57467657~Sum1=       33333.00~^Date=16.09.2015^
2 work92
 
16.09.15
14:05
Строчка="^_Table=";
    Т.ДобавитьСтроку(Строчка);
    
    КИ = СоздатьОбъект("Справочник.КадровыеДанные");
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Список");
    Жрн.ВыбратьЗаписиПоДокументу(ТекущийДокумент());
    СуммаИтого=0;
    Номер=0;
    СтрокНаЛисте=1000;
    Стр=0;
    СуммаПоЛисту=0;
    НомерЛиста=1;
    Таб.ВывестиСекцию("Шапка");
    Пока Жрн.ПолучитьЗапись()=1 Цикл
        Если Жрн.Результат=0 Тогда
            Продолжить;
        КонецЕсли;
        л_Таблица.НоваяСтрока();  
        л_Таблица.Табельный=Жрн.Объект.Код;
        л_Таблица.ФИО=Жрн.Объект.Наименование;
        л_Таблица.Сумма=Жрн.Результат;
        КИ.ИспользоватьВладельца(Жрн.Объект);
        КИ.ВыбратьЭлементы();
        л_Таблица.Лицевой=СокрЛП(КИ.СчетВбанке);
    КонецЦикла;  
    
    
    Если (ТипПлатежа = Перечисление.ТипПлатежа.ВыплатыНаДетей) или (ТипПлатежа = Перечисление.ТипПлатежа.ЕдиновременныеПособия) Тогда
        Жрн = ЖрнКомпенсации;
        Жрн.ВыбратьЗаписиПоДокументу(ТекущийДокумент());
        Пока Жрн.ПолучитьЗапись()=1 Цикл
            Если Жрн.Результат=0 Тогда
                Продолжить;
            КонецЕсли;  
            л_Таблица.НоваяСтрока();
            КИ.ИспользоватьВладельца(Жрн.Объект);
            КИ.ВыбратьЭлементы();
            л_Таблица.Сумма=Жрн.Результат;
            л_Таблица.ФИО=Жрн.Объект.Наименование;
            л_Таблица.Табельный=Жрн.Объект.Код;
            СуммаИтого=СуммаИтого+л_Таблица.Сумма;
            СтатусСтрока("Обрабатыватся "+Жрн.Объект.Наименование);
            л_Таблица.Лицевой=СокрЛП(КИ.СчетВбанке);
        КонецЦикла;
    КонецЕсли;  
    
       л_Таблица.Сортировать("Лицевой");
       л_Таблица.ВыбратьСтроки();
       Пока (л_Таблица.ПолучитьСтроку()=1) Цикл
        Номер=Номер+1;
        Если Стр>СтрокНаЛисте Тогда
            Таб.ВывестиСекцию("ПодвалЛиста");
            Таб.ВывестиСекцию("Подписи");
            Стр=0;
            Таб.НоваяСтраница();
            СуммаПоЛисту=0;
            НомерЛиста=НомерЛиста+1;
            Таб.ВывестиСекцию("Шапка");
        КонецЕсли;
        СуммаИтого=СуммаИтого+л_Таблица.Сумма;
        СуммаПоЛисту=СуммаПоЛисту+л_Таблица.Сумма;
        Таб.ВывестиСекцию("Тело");
            Стр=Стр+1;
              Строчка="Npp1="+Стр+"~Name1="+л_таблица.ФИО+"~Nch1="+л_Таблица.Лицевой+"~Sum1="+(Формат(л_таблица.Сумма,"Ч15.2"))+"~";  
        Т.ДобавитьСтроку(Строчка);          
    Конеццикла;


        
    Строчка2="^Date="+Формат(ДатаПП,"ДДДММГГГГ")+"^";
    Т.ДобавитьСтроку(Строчка2);
3 work92
 
16.09.15
14:11
Может есть идеи как решить эту вопрос
4 ДенисЧ
 
16.09.15
14:12
Вот это Т.ДобавитьСтроку(Строчка);  даёт тебе новую строку
5 fishb1
 
16.09.15
14:13
Да фиг его знает как оно у вас там в 7-ке. :)

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

Т.ДобавитьСтроку(ТекстОднойСтрокой);
6 fishb1
 
16.09.15
14:14
(5) Т.е. везде по тексту вместо Т.ДобавитьСтроку(Строчка) сделать ТекстОднойСтрокой = ТекстОднойСтрокой + Строчка;
7 work92
 
16.09.15
14:17
ТекстОднойСтрокой—ее нету в коде 7.7 эта типа перем
8 work92
 
16.09.15
14:26
Не работает этот код
9 Builder
 
16.09.15
14:31
ТекстОднойСтрокой="";
Т.ДобавитьСтроку(Строчка) заменить на
ТекстОднойСтрокой = ТекстОднойСтрокой+Строчка;
Т.ДобавитьСтроку(Строчка2); так же заменить

в конце
Т.ДобавитьСтроку(ТекстОднойСтрокой)
10 Лалым
 
16.09.15
20:45
А почему не писать сразу
              Строчка="Npp1="+Стр+"~Name1="+л_таблица.ФИО+"~Nch1="+л_Таблица.Лицевой+"~Sum1="+(Формат(л_таблица.Сумма,"Ч15.2"))+"~^Date="+Формат(ДатаПП,"ДДДММГГГГ")+"^";  
        Т.ДобавитьСтроку(Строчка);
11 G-Re
 
16.09.15
21:51
Строчка=Строчка+"Npp1="+Стр+"~Name1="+л_таблица.ФИО+"~Nch1="+л_Таблица.Лицевой+"~Sum1="+(Формат(л_таблица.Сумма,"Ч15.2"))+"~";