Загрузка из txt в 1С

@bossko944 · Регистрация: 04.03.2018

Студворк — интернет-сервис помощи студентам

Загружаю данные в справочник 1с из txt файла, всё весьма успешно, но реквизит "Специализация" заполняется из перечисления, и при загрузке все данные есть а специализация пусто

1C

&НаСервере
Процедура ЗагрузитьСотрудниковНаСервере()
    
    Текст = Новый ТекстовыйДокумент;
    Текст.Прочитать("C:\Users\bossk\Desktop\Текущие сотрудники.txt"); 
Для НомерСтроки = 1 по Текст.КоличествоСтрок() Цикл
    Стр = Текст.ПолучитьСтроку(НомерСтроки);
    Позиция = Найти (Стр, "|");
    МассивСтрок =  РазложитьСтрокуВМассивПодстрок(Стр, "|");
    Спр = Справочники.Сотрудники.СоздатьЭлемент();
    
    Спр.ФИО = МассивСтрок[0];
    Спр.Специализация = МассивСтрок[1];
    Спр.СтоимостьЧасаРаботы = МассивСтрок[2];
    
    Спр.Записать();
    
КонецЦикла
 
КонецПроцедуры
 
&НаКлиенте
Процедура ЗагрузитьСотрудников(Команда)
    ЗагрузитьСотрудниковНаСервере();
КонецПроцедуры
 
Функция РазложитьСтрокуВМассивПодстрок(Знач Стр, Разделитель = "|") Экспорт
    
    МассивСтрок = Новый Массив();
    Если Разделитель = " " Тогда
        Стр = СокрЛП(Стр);
        Пока 1 = 1 Цикл
            Поз = Найти(Стр, Разделитель);
            Если Поз = 0 Тогда
                МассивСтрок.Добавить(Стр);
                Возврат МассивСтрок;
            КонецЕсли;
            МассивСтрок.Добавить(Лев(Стр, Поз - 1));
            Стр = СокрЛ(Сред(Стр, Поз));
        КонецЦикла;
    Иначе
        ДлинаРазделителя = СтрДлина(Разделитель);
        Пока 1 = 1 Цикл
            Поз = Найти(Стр, Разделитель);
            Если Поз = 0 Тогда
                Если (СокрЛП(Стр) <> "") Тогда
                    МассивСтрок.Добавить(Стр);
                КонецЕсли;
                Возврат МассивСтрок;
            КонецЕсли;
            МассивСтрок.Добавить(Лев(Стр,Поз - 1));
            Стр = Сред(Стр, Поз + ДлинаРазделителя);
        КонецЦикла;
    КонецЕсли;
    
КонецФункции

@Yulunga · 04.02.2020, 07:53

пока 1 = 1, вы сериозно?

глубоко не вникал, но вам не кажется странным, что сначала вы пишете "РазложитьСтрокуВМассивПодстрок",
а потом считаете, что ни с того ни с сего строка будет элементом перечисления?

@Xomych · 04.02.2020, 08:35

Сообщение от bossko944

но реквизит "Специализация" заполняется из перечисления

Как выше написали, тип в Справочнике перечисление, а ты ему даёшь строку.

Ты бы хотел машину, а тебе бы дали рисунок машины? Ты бы тоже наверное отказался бы ))

@Yulunga 1145 / 692 / 203 Регистрация: 22.04.2013 Сообщений: 5,178 Записей в блоге: 1
	04.02.2020, 07:53	2
	пока 1 = 1, вы сериозно? глубоко не вникал, но вам не кажется странным, что сначала вы пишете "РазложитьСтрокуВМассивПодстрок", а потом считаете, что ни с того ни с сего строка будет элементом перечисления? 0

@Xomych 856 / 655 / 111 Регистрация: 01.11.2012 Сообщений: 2,410
	04.02.2020, 08:35	3
	Сообщение от bossko944 но реквизит "Специализация" заполняется из перечисления Как выше написали, тип в Справочнике перечисление, а ты ему даёшь строку. Ты бы хотел машину, а тебе бы дали рисунок машины? Ты бы тоже наверное отказался бы )) 0

Опции темы