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