Параметры массивы с разделителями.

Author: khorevaa

src/core/Классы/cmd/ПараметрКоманды.os

@@ -24,7 +24,7 @@
 Перем ТипПараметра; // Опция и аргумент 
 
 Перем ТипЗначенияПараметра; // Произвольный класс реализуемые несколько обязательных методов
-
+Перем РазделительМассива;
 
 Процедура ПриСозданииОбъекта(ВходящийТипПараметра, ПолноеИмя, ЗначениеПоУмолчанию = "", ОписаниеПараметра = "", ПеременнаяОкруженияПараметра = "")
 
@@ -62,6 +62,7 @@
 
 	ТипПараметра = ВходящийТипПараметра;
 
+	РазделительМассива = Неопределено;
 	ПодготовитьНаименованияПараметров();
 
 КонецПроцедуры
@@ -86,7 +87,18 @@
 
 Процедура УстановитьЗначение(ВходящееЗначение) Экспорт
 
-	Значение = ТипЗначенияПараметра.УстановитьЗначение(ВходящееЗначение, Значение);
+	Если ЭтоМассив() 
+		И Не РазделительМассива = Неопределено Тогда
+			
+		МассивСтрок = СтрРазделить(ВходящееЗначение, РазделительМассива);
+		Для каждого ЭлементМассива Из МассивСтрок Цикл
+			Значение = ТипЗначенияПараметра.УстановитьЗначение(ВходящееЗначение, Значение);
+		КонецЦикла;
+
+	Иначе
+		Значение = ТипЗначенияПараметра.УстановитьЗначение(ВходящееЗначение, Значение);
+	КонецЕсли;
+
 
 	УстановленаПользователем = Истина;
 	Если ПеременнаяВыгрузкиУстановлена Тогда
@@ -110,7 +122,7 @@
 		Если ЗначениеЗаполнено(ЗначениеИзПеременнойОкружения) Тогда
 
 			УстановленаИзПеременнойОкружения = Истина;
-			Значение = ТипЗначенияПараметра.УстановитьЗначение(ЗначениеИзПеременнойОкружения, Значение);
+			УстановитьЗначение(ЗначениеИзПеременнойОкружения);
 
 		КонецЕсли;
 
@@ -183,34 +195,41 @@
 
 КонецФункции
 
-Функция ТМассивДат(Знач ФорматДаты = "yyyy-MM-dd_HH:mm:ss") Экспорт
+Функция ТМассивДат(Знач ФорматДаты = "yyyy-MM-dd_HH:mm:ss", Знач ВходящийРазделительМассива = Неопределено) Экспорт
 
 	ТипОпции = Тип("Массив");
 	ТипЭлементаОпции = Тип("Дата");
 	ТипЗначенияПараметра = Новый ТипМассивДат(ФорматДаты); 
 	Значение = Новый Массив;
-	
+	Если Не ВходящийРазделительМассива = Неопределено Тогда
+		РазделительМассива = ВходящийРазделительМассива;
+	КонецЕсли;
 	Возврат ЭтотОбъект;
 
 КонецФункции
 
-Функция ТМассивЧисел() Экспорт
+Функция ТМассивЧисел(Знач ВходящийРазделительМассива = Неопределено) Экспорт
 
 	ТипОпции = Тип("Массив");
 	ТипЭлементаОпции = Тип("Число");
 	ТипЗначенияПараметра = Новый ТипМассивЧисел(); 
 	Значение = Новый Массив;
+	Если Не ВходящийРазделительМассива = Неопределено Тогда
+		РазделительМассива = ВходящийРазделительМассива;
+	КонецЕсли;
 	Возврат ЭтотОбъект;
 
 КонецФункции
 
-Функция ТМассивСтрок() Экспорт
+Функция ТМассивСтрок(Знач ВходящийРазделительМассива = Неопределено) Экспорт
 
 	ТипОпции = Тип("Массив");
 	ТипЭлементаОпции = Тип("Строка");
 	ТипЗначенияПараметра = Новый ТипМассивСтрок(); 
 	Значение = Новый Массив;
-	
+	Если Не ВходящийРазделительМассива = Неопределено Тогда
+		РазделительМассива = ВходящийРазделительМассива;
+	КонецЕсли;
 	Возврат ЭтотОбъект;
 
 КонецФункции