Имя: Пароль:
1C
1C 7.7
v7: выгрузка в TXT
,
0 serg-lom89
 
13.11.13
12:54
Подскажите с выгрузкой txt пожалуйста


нужна структура след
этот я добавил с помощью добавитьстроку("#;),а как мне затем к этой же строчке добавить еще какое то значение,которое я беру из документа?
1 ДенисЧ
 
13.11.13
12:55
Всё в одну строку собирай, потом её в текстовый уже пихай
2 mikecool
 
13.11.13
12:55
собрал строку - добавил в текст
что еще не понятно?
3 Dmitrith
 
13.11.13
12:56
Сформируй сначала строку типа: Стр = Стр + Что-то.ИзДокумента
потом добавляй в файл
4 andrewalexk
 
13.11.13
12:56
:)
кусок кода

        Текст.ДобавитьСтроку(Константа.ПолучитьАтрибут("КодФирмы"));
        Текст.ДобавитьСтроку(Возвр+""+Вид()+" "+"№"+Строка(СокрЛ(НомерДок))+" "+"от"+" "+ДатаДок);
        Текст.ДобавитьСтроку(КодШК);
        Если ХарВозвр=Перечисление.ХарВозвр.Интернет_Магазин Тогда
            Текст.ДобавитьСтроку(НомерИнтернетЗаказа(Контекст));
        КонецЕсли;
        промСпис=СоздатьОбъект("СписокЗначений");
        Спис=СоздатьОбъект("СписокЗначений");
        ВыбратьСтроки();
        Пока ПолучитьСтроку()=1 Цикл
            Спис.УдалитьВсе();
            Спис.ДобавитьЗначение(Товар.idd,"ТоварКод");
            Спис.ДобавитьЗначение(Товар.ТоргМарка.Получить(ДатаДок).Пост.Получить(ДатаДок).Наименование,"Пост");
            Если (Товар.ТоргМарка.Получить(ДатаДок).Сворачивать.Получить(ДатаДок)=Перечисление.Булево.Нет) ИЛИ
                 (Товар.Сворачивать.Получить(ДатаДок)=Перечисление.Булево.Нет)  тогда
                Спис.ДобавитьЗначение(Единица.ШтрихКод,"ШК");
            КонецЕсли;
            Спис.ДобавитьЗначение(Количество,"Колво");
            Спис.ДобавитьЗначение(ЦенаПрих,"Цена");
            промСпис.ДобавитьЗначение(ЗначениеВСтрокуВнутр(Спис),ЗначениеВСтрокуВнутр(Спис));
        КонецЦикла;
        Если промСпис.РазмерСписка()<>0 тогда
            Для Сч=1 По промСпис.РазмерСписка() Цикл
                Текст.ДобавитьСтроку(промСпис.ПолучитьЗначение(Сч));
            КонецЦикла;
        КонецЕсли;
        промСпис.УдалитьВсе();
        Имя1=Константа.КодФирмы+".txt";
        Имя1=СтрЗаменить(Имя1," ","");
        Текст.Записать("d:\"+Имя1);
5 v4442
 
13.11.13
12:58
Процедура ВыгрузкаСрТоваров()
    Спр=СоздатьОбъект( "Справочник.Номенклатура" );
    Текст.Очистить();
      нн=1;
     ТабТовар.ВыбратьСтроки();
     Пока ТабТовар.ПолучитьСтроку()=1 Цикл
         спр=ТабТовар.ПолучитьЗначение(нн,1);
         Состояние(Спр.Наименование);
         Сообщить(Спр.Наименование);
      Список.УдалитьВсе();                  
      Список.ДобавитьЗначение(СокрЛП(Спр.Код));
      Список.ДобавитьЗначение(СокрЛП(Спр.Наименование));
      Список.ДобавитьЗначение(СокрЛП(Спр.ПолнНаименование));
      Список.ДобавитьЗначение(СокрЛП(Спр.БазоваяЕдиница));
      Список.ДобавитьЗначение(СокрЛП(Спр.Родитель.Код));
      Список.ДобавитьЗначение(СокрЛП(Спр.ВидНоменклатуры));
      Список.ДобавитьЗначение(СокрЛП(Спр.Родитель.Наименование));
      Список.ДобавитьЗначение(СокрЛП(Спр.НомерГТД.Наименование));
      Список.ДобавитьЗначение(СокрЛП(Спр.СтранаПроисхождения.Наименование));
      Список.ДобавитьЗначение(Спр.СтранаПроисхождения.Код);
      нн=нн+1;
      Стр= Список.ВСтрокуСРазделителями();
      Текст.ДобавитьСтроку(Стр);
    КонецЦикла;

Текст.Записать("C:\CpTob.txt");
КонецПроцедуры
6 Serginio1
 
13.11.13
12:59
У списка значений есть два метода ВСтрокуСРазделителями()
и ИзСтрокиСРазделителями
7 serg-lom89
 
13.11.13
13:28
а если просто добавить строку и там же прописать Добавитьстроку(Товар+";"+товар.едизм)
не взлетит?
8 ДенисЧ
 
13.11.13
13:30
(7) ДобавитьСтроку - сделает тебе _новую_ строку.
9 serg-lom89
 
13.11.13
13:32
ну например если из ТЧ дока выгружать все это То не взлетит?
10 zladenuw
 
13.11.13
13:34
(9) почему ? придумай макет для выгрузки и будет тебе радость. а почему именно тхт ?
11 serg-lom89
 
13.11.13
13:34
такой вид строки Добавитьстроку(Товар+";"+товар.едизм+";"+товар.цена)
????????????
12 PuhUfa
 
13.11.13
13:35
(9) ты сначало определись в каком виде все это должно быть в TXT файле
13 serg-lom89
 
13.11.13
13:35
нак захотели они...я предлагал дбф или ексель..им надо именно в TXT
14 zladenuw
 
13.11.13
13:36
(11) а проверить. а не гадать на форуме. может и взлетит. но тебе нужно передавать все реквизиты, которые нужны будут в приемнике. ссылку ты так не выгрузишь.
15 zladenuw
 
13.11.13
13:36
(13) так если сказали в ТХТ. может тебе и шаблон дали как выгружать
16 Serginio1
 
13.11.13
13:43
(7) wiki:CSV