Выгрузка адресных данных сотрудника без аббревиатур

Процедура УбратьСокращение(Стр,Уровень,СпрСокр)
	Список = глРазложить(Стр," ");
	Стр = "";
	Для Сч = 1 По Список.РазмерСписка()-1 Цикл
		Стр =  Стр + ?(Сч=1,""," ") + Список.ПолучитьЗначение(Сч);
	КонецЦикла;
	Сокр = Список.ПолучитьЗначение(Список.РазмерСписка());
	Если СпрСокр.НайтиПоНаименованию(Уровень+Сокр,0,1) = 0 Тогда
		Стр = Стр + " " + Сокр;
	КонецЕсли;
КонецПроцедуры

Процедура Сформировать()
	СпрСокр = СоздатьОбъект("Справочник.SOCRBASE");
	АдресСписком = глРазложить(Сотрудник.АдресПрописка);
	Индекс = АдресСписком.ПолучитьЗначение(2);
	
	Регион = АдресСписком.ПолучитьЗначение(3);
	УбратьСокращение(Регион,"1",СпрСокр);
	
	Район = АдресСписком.ПолучитьЗначение(4);
	УбратьСокращение(Район,"2",СпрСокр);
	
	Город = АдресСписком.ПолучитьЗначение(5);
	УбратьСокращение(Город,"3",СпрСокр);
	
	НасПункт = АдресСписком.ПолучитьЗначение(6);
	УбратьСокращение(НасПункт,"4",СпрСокр);

	Улица = АдресСписком.ПолучитьЗначение(7);
	УбратьСокращение(Улица,"5",СпрСокр);

	Дом = АдресСписком.ПолучитьЗначение(8);
	Корпус = АдресСписком.ПолучитьЗначение(9);
	Квартира = АдресСписком.ПолучитьЗначение(10);
	
	Сообщить(Индекс+","+Регион+","+Район+","+Город+","+НасПункт+","+Улица+","+Дом+","+Корпус+","+Квартира);
КонецПроцедуры