Имя: Пароль:
1C
1С v8
перенос значений
,
0 Triton_11
 
02.04.14
09:22
У меня есть текстовый документ там данные    
      Конфеты;Черный;16;5
      Булочки;Сладкий;900;25
      Печенье;Соленый;958;12
      Шоколад;Горький;6;14
      Куртка;Синтипон;3;30
      Брюки;Коричневый;24;20
И есть табличное поле
Номенклатура Характеристики Количестов Цена


Необходимо все данные из текстового документа внести в табличное поле
Как это можно сделать
1 Ненавижу 1С
 
гуру
02.04.14
09:24
программируя, но данные в файле - гаўно
2 Triton_11
 
02.04.14
09:27
я знаю что программируя но как
3 salvator
 
02.04.14
09:30
(2) Вообще никаких идей?
4 Triton_11
 
02.04.14
09:31
(3) да
5 Fedor-1971
 
02.04.14
09:31
(2) Посмотри в сторону ЧтениеТекста, дальше разбираешь строку и организуешь поиск нужных значений. Отрабатываешь возможность повтора наименования.
Как-то так.
6 Любопытная
 
02.04.14
09:32
синтипон это новый материал какой-то?
7 Triton_11
 
02.04.14
09:33
(5) я понял что  с помошью чтения текста я думаю что надо организовать цикл но как это сделать прогграмно покажите
8 Tateossian
 
02.04.14
09:37
Откуда вы беретесь? Ладно, понимаю, какие-то нетривиальные вопросы. Но, организовать последовательный доступ к файлу в цикле, не - мы этого не знаем.
9 Fedor-1971
 
02.04.14
09:46
(7) студент? Не, по ходу, бухгалтер и зачем Красная Буква Я нам неведомо?
например, так:
тек=новый ЧтениеТекста("load.txt",КодировкаТекста.ANSI);
стр=тек.ПрочитатьСтроку();
Пока стр<>Неопределено цикл
КонецЦикла;
10 Triton_11
 
02.04.14
10:44
это бесконечный цикл нужен работаюший
11 chelentano
 
02.04.14
10:45
(10) я тебе работающий код - ты мне свою зарплату, пойдёт?
12 Triton_11
 
02.04.14
10:47
(11) сойдет
13 chelentano
 
02.04.14
10:51
(12)
тек=новый ЧтениеТекста("load.txt",КодировкаТекста.ANSI);
стр=тек.ПрочитатьСтроку();
Пока стр<>Неопределено цикл
    Сообщить(Стр);
    Стр = тек.ПрочитатьСтроку();
КонецЦикла;

жду денег
14 Triton_11
 
02.04.14
11:42
У меня есть текстовый документ там данные    
      Конфеты;Черный;16;5
      Булочки;Сладкий;900;25
      Печенье;Соленый;958;12
      Шоколад;Горький;6;14
      Куртка;Синтипон;3;30
      Брюки;Коричневый;24;20
Как можно вместо ; точки с запятой было - тире
15 chelentano
 
02.04.14
11:43
(14) "Продолжайте наблюдения" (c)
16 barrgand
 
02.04.14
11:49
(14) Аллергия на ; ?
17 Triton_11
 
02.04.14
11:53
я понял через СтрЗаменить
18 Triton_11
 
02.04.14
11:53
нет не аллергия
19 Fedor-1971
 
02.04.14
11:57
(10) Выпал в осадок!!! честно, честно. Дружа, тебе денюх не хватит с такими вопросами.
(14) а чем ; плохо? в чём принципиальная разница ; и -?
20 Triton_11
 
02.04.14
12:02
(19) Fedor-1971 извини не обижайся
21 Triton_11
 
02.04.14
12:36
Процедура КнопкаВыполнитьНажатие(Кнопка)
    Тек = Новый ЧтениеТекста("C:\pos.rep");
    стр = Тек.ПрочитатьСтроку();
    Пока стр <> неопределено Цикл
        Стр = тек.ПрочитатьСтроку();
        Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
        Пока Стр1 = Символы.ПС Цикл
            Д = Товары.Добавить();
            Д.Номенклатура = Стр1;
        КонецЦикла;
    КонецЦикла;
КонецПроцедуры
Как можно сделать в этом цикле  чтобы элементы со значения Стр1 Добавлялись в табличное поле:
табличное поле
Номенклатура Характеристики Количестов Цена
22 Fedor-1971
 
02.04.14
12:50
(21) ты реально не понимаешь или шлангом прикидываешься?
1. ты теряешь первую строку файла
2. если уж заменил ; на ПС так и используй стрПолучитьСтроку(строка, номер) - а как придумай сам.

К стати с (13) рассчитался или просто так балабонил?
По ходу думать лень или знаний не хватает. Повышай общий уровень образованности.
За сим откланиваюсь.
23 Triton_11
 
02.04.14
12:57
Спасибо Федор сделал
24 Леша1с
 
02.04.14
14:13
А тема названа-то как красиво - "перенос значений"...
поэтично...
а на практике - голое неумение прочитать тектсовый файл...
(0) справку откройте по ЧтениеТекста().
Только если файл >1 МБ, будут проблемы со временем обработки.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс