Имя: Пароль:
1C
 
Разобрать строку по разделителю в справочник
0 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
если версия платформы поновее
4 ZloyRafa
 
10.11.16
16:34
Платформа 8.2
5 Garykom
 
гуру
10.11.16
16:34
СтрЗаменить + СтрПолучитьСтроку
6 Ёпрст
 
гуру
10.11.16
16:35
РазложитьСтрокуВМассивПодстрок в общем модуле ОбщегоНазначения смотри
7 Ёпрст
 
гуру
10.11.16
16:35
ну или (5) , если хочешь сам
8 Garykom
 
гуру
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);
9 ZloyRafa
 
10.11.16
17:05
Спасибо!
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn