|
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
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |