Merge branch 'release/1.1.0'

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("fs")
-		.Версия("1.0.0")
+		.Версия("1.1.0")
 		.ВключитьФайл("Модули")
 		.ВключитьФайл("LICENSE")
 		.ВключитьФайл("README.md");

tests/Пути.os

@@ -1,9 +1,9 @@
+#Использовать ".."
+
 #Использовать asserts
 #Использовать tempfiles
 
-#Использовать ".."
-
-Перем мМенеджерВременныхФайлов;
+Перем мМенеджерВременныхФайлов; // менеджер для управления временными файлами
 
 Функция ПолучитьСписокТестов(Знач ЮнитТестирование) Экспорт
 
@@ -16,6 +16,8 @@
 	МассивТестов.Добавить("Тест_ОтносительныйПуть_РазныеРегистры");
 
 	МассивТестов.Добавить("Тест_ПолныйПуть");
+
+	МассивТестов.Добавить("Тест_ОбъединитьПутиПравильно");
 
 	Возврат МассивТестов;
 
@@ -87,3 +89,13 @@
 	ПолныйПуть = ФС.ПолныйПуть(Путь);
 	Ожидаем.Что(ПолныйПуть).Равно("C:\projects\SB\vanessa\apache");
 КонецПроцедуры
+
+Процедура Тест_ОбъединитьПутиПравильно() Экспорт
+
+	ПолныйПуть = ФС.ОбъединитьПути("E:\my\test", "\images", "upload/pic.png");
+
+	ПолныйПуть = СтрЗаменить(ПолныйПуть, ПолучитьРазделительПути(), "\");
+
+	Ожидаем.Что(ПолныйПуть).Равно("E:\my\test\images\upload\pic.png");
+
+КонецПроцедуры

Модули/ФС.os

@@ -6,7 +6,6 @@
 //
 /////////////////////////////////////////////////////////////////////
 
-
 // Проверяет существование файла или каталога
 //
 // Параметры:
@@ -35,7 +34,7 @@
 
     Объект = Новый Файл(Путь);
 
-    Возврат Объект.Существует() и Объект.ЭтоФайл();
+    Возврат Объект.Существует() И Объект.ЭтоФайл();
 
 КонецФункции // ФайлСуществует()
 
@@ -51,7 +50,7 @@
 
     Объект = Новый Файл(Путь);
 
-    Возврат Объект.Существует() и Объект.ЭтоКаталог();
+    Возврат Объект.Существует() И Объект.ЭтоКаталог();
 
 КонецФункции // КаталогСуществует()
 
@@ -138,7 +137,8 @@
 //  Возвращаемое значение:
 //   <Строка> - относительный путь файла
 //
-Функция ОтносительныйПуть(Знач ПутьКорневогоКаталога, Знач ПутьВнутреннегоФайла, Знач РазделительПути = Неопределено) Экспорт
+Функция ОтносительныйПуть(Знач ПутьКорневогоКаталога, Знач ПутьВнутреннегоФайла, 
+				Знач РазделительПути = Неопределено) Экспорт
 
 	Если ПустаяСтрока(ПутьКорневогоКаталога) Тогда
 		ВызватьИсключение "Не указан корневой путь в методе ФС.ОтносительныйПуть";
@@ -155,7 +155,7 @@
 		Рез = Сред(Рез, 2);
 	КонецЕсли;
 	Если Найти("\/", Прав(Рез, 1)) > 0 Тогда
-		Рез = Лев(Рез, СтрДлина(Рез)-1);
+		Рез = Лев(Рез, СтрДлина(Рез) - 1);
 	КонецЕсли;
 	Если РазделительПути <> Неопределено Тогда
 		Рез = СтрЗаменить(Рез, "\", РазделительПути);
@@ -182,7 +182,6 @@
 	Возврат Файл.ПолноеИмя;
 КонецФункции // ПолныйПуть(Знач ОтносительныйИлиПолныйПуть) Экспорт
 
-
 // Подготовить шаблон к использованию в регулярке путем экранирования служебных символов
 //
 // Параметры:
@@ -218,3 +217,51 @@
 	Возврат Шаблон;
 
 КонецФункции
+
+// Дополнение к методу ОбъединитьПути 
+// - разделители пути приводятся к единому разделителю, которые актуален для текущей системы
+// - если в одном из путей встречается корневой слеш, то исключается получения корневого пути от диска, 
+//		чем страдает метод движка ОбъединитьПути
+//		ОбъединитьПути("E:\my\test", "\images", "upload\pic.png") выведет неожиданное \images\upload\pic.png
+// 		а ОбъединитьПутиПравильно выведет ожидаемое E:\my\test\images\upload\pic.png
+//
+// Параметры:
+//   Путь1 - Строка - часть пути.
+//   Путь2 - Строка - часть пути.
+//   Путь3 - Строка - часть пути. Необязательно.
+//   Путь4 - Строка - часть пути. Необязательно.
+//
+//  Возвращаемое значение:
+//   Строка - финальный путь с разделителями, которые актуальны для текущей системы
+//
+Функция ОбъединитьПути(Знач Путь1, Знач Путь2, Знач Путь3 = "", Знач Путь4 = "") Экспорт
+
+	ВсеПути  = Новый Массив;
+	ВсеПути.Добавить(Путь1);
+	ВсеПути.Добавить(Путь2);
+
+	Если Не ПустаяСтрока(Путь3) Тогда
+		ВсеПути.Добавить(Путь3);
+	КонецЕсли;
+
+	Если Не ПустаяСтрока(Путь4) Тогда
+		ВсеПути.Добавить(Путь4);
+	КонецЕсли;
+
+	Компоненты = Новый Массив;
+	Для каждого Путь Из ВсеПути Цикл
+
+		// К единому виду разделителей.
+		ВремПуть = СтрЗаменить(Путь, "\", "/");
+		ВремКомпоненты = СтрРазделить(ВремПуть, "/", Ложь);
+		Для каждого Компонент Из ВремКомпоненты Цикл
+			Компоненты.Добавить(Компонент);
+		КонецЦикла;
+
+	КонецЦикла;
+
+	РезультирующийПуть = СтрСоединить(Компоненты, ПолучитьРазделительПути());
+
+	Возврат РезультирующийПуть;
+
+КонецФункции