Код

Перем БезРегистра Экспорт;
Перем Дебаг Экспорт;

//===========================================================================
//===========================================================================
//===========================================================================
Процедура _Сообщить(Стр)
Если Дебаг=1 Тогда
Сообщить(""+Стр);
КонецЕсли;
КонецПроцедуры

//===========================================================================
Функция ЕдиничноОтпарсить(ЧтоПарсить,ЧемПарсить) Экспорт
СЗ=СоздатьОбъект("СписокЗначений");
	Времен=ЧтоПарсить;
     Для А=1 по СтрЧислоВхождений(ЧтоПарсить,ЧемПарсить) Цикл
	    Позиция=Найти(Времен,ЧемПарсить);
	    Парсеное=Сред(Времен,1,Позиция-1);
		Времен=Сред(Времен,Позиция+1,СтрДлина(Времен));
	     СЗ.ДобавитьЗначение(Парсеное);
	 КонецЦикла;
	Если Времен<>"" Тогда
	     СЗ.ДобавитьЗначение(Времен);
	КонецЕсли;
Возврат СЗ;
КонецФункции
//===========================================================================
//===========================================================================
//===========================================================================

Функция Отпарсить(ЧтоПарсить,ШаблонПарсинга) Экспорт
	Глубина=0;
	СЗ=СоздатьОбъект("СписокЗначений");
	    СЗШаблонаПарсинга=ЕдиничноОтпарсить(ШаблонПарсинга,"%");
     _Сообщить("Шаблонов = "+СЗШаблонаПарсинга.РазмерСписка());
	СтрокаПарсинга=ЧтоПарсить;
	СчетчикШаблона=1;
	Пока СтрДлина(СтрокаПарсинга)>0 Цикл
     _Сообщить("СтрокаПарсинга["+СтрокаПарсинга+"]");
	 	    Разделитель=СЗШаблонаПарсинга.ПолучитьЗначение(СчетчикШаблона);
     _Сообщить("Разделитель ["+Разделитель+"]"+" "+СчетчикШаблона);
		  Если БезРегистра=1 Тогда
		    Позиция=Найти(Врег(СтрокаПарсинга),Врег(Разделитель));
		Иначе
		    Позиция=Найти(СтрокаПарсинга,Разделитель);
		  КонецЕсли;
		Если Позиция=0 Тогда
		Прервать;
		КонецЕсли;
 	    Парсеное=Сред(СтрокаПарсинга,1,Позиция-1);
		Парсинга));
		СЗ.ДобавитьЗначение(СокрЛп(Парсеное));
 	    Если СчетчикШаблона>=СЗШаблонаПарсинга.РазмерСписка() Тогда
		СчетчикШаблона=1;
		Глубина=1;
	    Иначе
		СчетчикШаблона=СчетчикШаблона+1;
	    КонецЕсли;
 	КонецЦикла;
	СЗ.ДобавитьЗначение(СокрЛп(СтрокаПарсинга));
 	Возврат СЗ;
КонецФункции

//===========================================================================
//===========================================================================
//===========================================================================

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