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


Разобрать строку по разделителю в справочник

Разобрать строку по разделителю в справочник
Я
   ZloyRafa
 
10.11.16 - 16:31
Имеется справочник с подобными реквизитами, строка с разделителем, а вот разобрать не пойму как, подкиньте для пример, если есть варианты.

Обработка

Процедура ЗагрузкаИзTXTФайла()
//Создадим новый объект типа "Текстовый документ"

  Текст = Новый ТекстовыйДокумент();
  
  
  Текст.Прочитать("C:\Users\user\Documents\1c\Конкурс\1.txt", КодировкаТекста.ANSI);    
       Для НомерСтроки = 1 по Текст.КоличествоСтрок() Цикл
        Строка = Текст.ПолучитьСтроку(НомерСтроки);
        Сообщить(Строка);
    
 Позиция = Найти (Строка,"#");

 
 Спр=Справочники.БСК.СоздатьЭлемент();
 Спр.Код = Сред(Строка,1,Позиция-1)+Прав(Строка,Позиция); 
//Спр.Наименование = Сред (Строка,3, Позиция+3);

//Спр.DateOfBirth = Сред (Строка, Позиция-1);

//Спр.Gender = Сред (Строка, Позиция+3);

//Спр.PositionIDPositionName = Сред (Строка, Позиция+4);

//Спр.PositionDescription = Сред (Строка, Позиция+5);

//Спр.PayPeriod = Сред (Строка, Позиция+6);

//Спр.PayRate = Сред (Строка, Позиция+7);

//Спр.EmailAddress = Сред (Строка, Позиция+8);

 Спр.SummaryInformatio = Сред(Строка,11,Позиция-1);
 
 
 Спр.Записать();
    КонецЦикла; 
   
   
Конецпроцедуры

Текстовик
#2#LAKISHA TOMBLIN#06.08.1961#F#2#Administrative Clerk#Provides administrative suppo#Hourly#$#l_tomblin@nnl.com# Total #Hourly Staff
 
 
   Ёпрст
 
1 - 10.11.16 - 16:32
в общегоназначения ищи разложитьстрокувмассив подстрок
   Ёпрст
 
2 - 10.11.16 - 16:32
или, СтрРазделить(<Строка>, <Разделитель>, <ВключатьПустые>)
   Ёпрст
 
3 - 10.11.16 - 16:33
если версия платформы поновее
   ZloyRafa
 
4 - 10.11.16 - 16:34
Платформа 8.2
   Garykom
 
5 - 10.11.16 - 16:34
СтрЗаменить + СтрПолучитьСтроку
   Ёпрст
 
6 - 10.11.16 - 16:35
РазложитьСтрокуВМассивПодстрок в общем модуле ОбщегоНазначения смотри
   Ёпрст
 
7 - 10.11.16 - 16:35
ну или (5) , если хочешь сам
   Garykom
 
8 - 10.11.16 - 16:38
Да блин там простейше же
ИсхСтрока = "#2#LAKISHA TOMBLIN#06.08.1961#F#2#Administrative Clerk#Provides administrative suppo#Hourly#$#l_tomblin@nnl.com# Total #Hourly Staff";

мСтрока = СтрЗаменить(ИсхСтрока, "#", Символы.ПС);

Имя = СтрПолучитьСтроку(мСтрока, 2);

   ZloyRafa
 
9 - 10.11.16 - 17:05
Спасибо!

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует