Разложить строку в структуру

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

	МассивСтрок = Новый Структура("F, CRN1CRN2, Orig, Dest, Дата,
		    |Время, Длит, Номер, CallerID, Dir, DirEx");
	
	МассивПодстрок = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Стр,Разделитель,Ложь);
	
	СоответствиеКлючаПоказателю = Новый Соответствие;
	СоответствиеКлючаПоказателю.Вставить(1,"F");
	СоответствиеКлючаПоказателю.Вставить(2,"CRN1CRN2");
	СоответствиеКлючаПоказателю.Вставить(3,"Orig");
	СоответствиеКлючаПоказателю.Вставить(4,"Dest");
	СоответствиеКлючаПоказателю.Вставить(5,"Дата");
	СоответствиеКлючаПоказателю.Вставить(6,"Время");
	СоответствиеКлючаПоказателю.Вставить(7,"Длит");
	СоответствиеКлючаПоказателю.Вставить(8,"Номер");
	СоответствиеКлючаПоказателю.Вставить(9,"CallerID");
	СоответствиеКлючаПоказателю.Вставить(10,"Dir");
	СоответствиеКлючаПоказателю.Вставить(11,"DirEx");
	
	ЭтоПропуск = Ложь;
	Показатель = 1;
	Для каждого Подстрока из МассивПодстрок Цикл
		
		Если ЗначениеЗаполнено(Подстрока) Тогда
			ЭтоПропуск = Ложь;
			МассивСтрок.Вставить(СоответствиеКлючаПоказателю.Получить(Показатель),Подстрока);
			Показатель = Показатель + 1;
		Иначе
			Если ЭтоПропуск Тогда
				Продолжить;
			Иначе
				ЭтоПропуск = Истина;
				Показатель = Показатель + 1;
			КонецЕсли;
		КонецЕсли;
		
	КонецЦикла;

// Разбивает строку на несколько строк по разделителю. Разделитель может иметь любую длину.
//
// Параметры:
//  Строка                 - Строка - текст с разделителями;
//  Разделитель            - Строка - разделитель строк текста, минимум 1 символ;
//  ПропускатьПустыеСтроки - Булево - признак необходимости включения в результат пустых строк.
//    Если параметр не задан, то функция работает в режиме совместимости со своей предыдущей версией:
//     - для разделителя-пробела пустые строки не включаются в результат, для остальных разделителей пустые строки
//       включаются в результат.
//     - если параметр Строка не содержит значащих символов или не содержит ни одного символа (пустая строка), то в
//       случае разделителя-пробела результатом функции будет массив, содержащий одно значение "" (пустая строка), а
//       при других разделителях результатом функции будет пустой массив.
//
//
// Возвращаемое значение:
//  Массив - массив строк.
//
// Примеры:
//  РазложитьСтрокуВМассивПодстрок(",один,,два,", ",") - возвратит массив из 5 элементов, три из которых  - пустые строки;
//  РазложитьСтрокуВМассивПодстрок(",один,,два,", ",", Истина) - возвратит массив из двух элементов;
//  РазложитьСтрокуВМассивПодстрок(" один   два  ", " ") - возвратит массив из двух элементов;
//  РазложитьСтрокуВМассивПодстрок("") - возвратит пустой массив;
//  РазложитьСтрокуВМассивПодстрок("",,Ложь) - возвратит массив с одним элементом "" (пустой строкой);
//  РазложитьСтрокуВМассивПодстрок("", " ") - возвратит массив с одним элементом "" (пустой строкой);
//
Функция РазложитьСтрокуВМассивПодстрок(Знач Строка, Знач Разделитель = ",", Знач ПропускатьПустыеСтроки = Неопределено) Экспорт
	
	Результат = Новый Массив;
	
	// для обеспечения обратной совместимости
	Если ПропускатьПустыеСтроки = Неопределено Тогда
		ПропускатьПустыеСтроки = ?(Разделитель = " ", Истина, Ложь);
		Если ПустаяСтрока(Строка) Тогда 
			Если Разделитель = " " Тогда
				Результат.Добавить("");
			КонецЕсли;
			Возврат Результат;
		КонецЕсли;
	КонецЕсли;
	//
	
	Позиция = Найти(Строка, Разделитель);
	Пока Позиция > 0 Цикл
		Подстрока = Лев(Строка, Позиция - 1);
		Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Подстрока) Тогда
			Результат.Добавить(Подстрока);
		КонецЕсли;
		Строка = Сред(Строка, Позиция + СтрДлина(Разделитель));
		Позиция = Найти(Строка, Разделитель);
	КонецЦикла;
	
	Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Строка) Тогда
		Результат.Добавить(Строка);
	КонецЕсли;
	
	Возврат Результат;
	
КонецФункции

 
....
СоответствиеРеквизитов=обРазложитьСтрокуВСоответствие(ТекстСтроки, "пробел");
.....
Функция обРазложитьСтрокуВСоответствие(Знач Строка, Разделитель) Экспорт
    Соответствие=Новый Соответствие;
    ЧислоВхождений=СтрЧислоВхождений(Строка, Разделитель);
	
	Для i=1 По ЧислоВхождений Цикл
        ПервоеВхождение=Найти(Строка,Разделитель)-1;
        Значение=Лев(Строка,ПервоеВхождение);
        Строка=Прав(Строка,СтрДлина(Строка)-СтрДлина(Значение)-1);
        Соответствие.Вставить(i,Значение);
    КонецЦикла;    
    Соответствие.Вставить(i,Строка);
	Возврат Соответствие;
КонецФункции