Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Из txt в базу данных (1С:Предприятие 8.1)

Ivan Volkov
читатель
офлайн
Дата регистрации: 15.07.2009
Сообщений: 1
Пост №1
 
15.07.2009 14:57

"Здравствуйте.<br>Мне необходимо написать обработку текстового документа с целью занесения его в базу данных в иерархический справочник. Вот часть этого документа:<br>РАЗДЕЛ C ДОБЫЧА ПОЛЕЗНЫХ ИСКОПАЕМЫХ<br><br>Подраздел CA ДОБЫЧА ТОПЛИВНО - ЭНЕРГЕТИЧЕСКИХ ПОЛЕЗНЫХ ИСКОПАЕМЫХ<br><br>10       Добыча каменного угля, бурого угля и торфа<br><br>10.1      Добыча, обогащение и агломерация каменного угля<br>10.10 Добыча, обогащение и агломерация каменного угля<br>10.10.1 Добыча каменного угля<br>10.10.11 Добыча каменного угля открытым способом<br>10.10.12 Добыча каменного угля подземным способом<br>10.10.2 Обогащение и агломерация каменного угля<br>10.10.21 Обогащение каменного угля<br>10.10.22 Агломерация каменного угля<br>10.2      Добыча, обогащение и агломерация бурого угля<br>10.20 Добыча, обогащение и агломерация бурого угля<br>10.20.1 Добыча бурого угля (лигнита)<br>10.20.11 Добыча бурого угля открытым способом<br>10.20.12 Добыча бурого угля подземным способом<br>10.20.2 Обогащение и агломерация бурого угля<br>10.20.21 Обогащение бурого угля<br>10.20.22 Агломерация бурого угля<br>10.3      Добыча и агломерация торфа<br>10.30 Добыча и агломерация торфа<br>10.30.1 Добыча торфа<br>10.30.2 Агломерация торфа<br><br>11       Добыча сырой нефти и природного газа; предоставление<br>       услуг в этих областях<br><br>11.1      Добыча сырой нефти и природного газа<br>11.10 Добыча сырой нефти и природного газа<br>11.10.1 Добыча сырой нефти и нефтяного (попутного) газа;<br>       извлечение фракций из нефтяного (попутного) газа<br>11.10.11 Добыча сырой нефти и нефтяного (попутного) газа<br>11.10.12 Разделение и извлечение фракций из нефтяного (попутного)<br>       газа<br>Я знаю как текстовый документ загнать в базу а вот в иерархический справочник дело обстоит сложнее тут мне кажется должны понадобиться двумерные массивы. <br>Заранее спасибо "

BelikovS
читатель
офлайн
Дата регистрации: 05.03.2007
Сообщений: 1701
Пост №2
 
15.07.2009 15:02

Воспользуйтесь ДеревомЗначений. Сначала в него, а потом на его основании создайте справочник.

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №3
 
16.07.2009 08:22

Если можно разобрать иерархию, то какая разница сразу справочник заполнять или сначала дерево заполнять?

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №4
 
16.07.2009 08:35

"Думаю, что можно "плясать" от длины кода, если структура всегда укладывается в рамки шаблона "99.99.99.99". Т.е. проверяеть<br><br>ТекКод = <получаем код из строки текста>;<br>ДлинаКода = СтрДлина(ТекКод);<br><br>ШаблонИерархии = Новый Структура("1,2,3", "2,5,8");<br><br>Если ДлинаКода <= 2 Тогда<br><br>Уровень = 0;<br><br>ИначеЕсли ДлинаКода > 2 И ДлинаКода < 5 Тогда<br><br>Уровень = 1;<br><br>ИначеЕсли ДлинаКода > 5 И ДлинаКода < 7 Тогда<br><br>Уровень = 2;<br><br>/// и так далее<br><br>потом<br><br>Если Уровень > 0 Тогда<br><br>ДлинаКодаРодителя = ШаблонИерархии[Уровень];<br>ТекРодитель = Справочники.МойСпр.НайтиПоКоду(Лев(ТекКод, ДлинаКодаРодителя));<br><br>Иначе<br><br>ТекРодитель = Справочники.МойСпр.Пустая();<br><br>КонецЕсли;<br><br>НовСпр = Справочники.МойСпр.Добавить();<br>НовСпр.Код = ТекКод;<br>НовСпр.Наименование = <...>;<br>НовСпр.Родитель = ТекРодитель;<br><br>НовСпр.Записать();"

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация