Merge pull request #658 from silverbulleters/empty-final-line

Метод ПолучитьАбсолютныйПутьФайлаИзКаталогаПроекта

epf/bddRunner/bddRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -4407,8 +4407,21 @@
 	Возврат ПутьКФайлу;
 КонецФункции
 
+// Возвращает абсолютный путь файла из каталога проекта или каталога Ванесса-АДД по относительному пути
+// ВАЖНО - при передачи пути, начинающегося на ".", будет получен путь каталога Ванесса-АДД
+// например, при передаче "fixtures/Макет" возможно получить "C:\OneScript\lib\add\fixtures\Макет"
+// также в пути возможно использовать переменные 
+//	$workspaceRoot - для вычисления пути внутри каталога проекта
+//	$instrumentsRoot - для вычисления пути внутри каталога Ванесса-АДД, а не каталога проекта
+//
+// Параметры:
+//   Путь - Строка - относительный путь
+//
+//  Возвращаемое значение:
+//   Строка - абсолютный путь файла из каталога проекта
+//
 &НаКлиенте
-Функция ПреобразоватьПутьСТочкамиКНормальномуПути(Знач ОригСтр="") Экспорт
+Функция ПреобразоватьПутьСТочкамиКНормальномуПути(Знач ОригСтр = "") Экспорт
 
 	Если ПустаяСтрока(ОригСтр) Тогда
 		Возврат ОригСтр;
@@ -4432,6 +4445,33 @@
 
 КонецФункции
 
+// Возвращает абсолютный путь файла из каталога проекта по относительному пути внутри каталога проекта
+// также в пути возможно использовать переменные 
+//	$workspaceRoot - для вычисления пути внутри каталога проекта
+//	$instrumentsRoot - для вычисления пути внутри каталога Ванесса-АДД, а не каталога проекта
+//
+// Параметры:
+//   Путь - Строка - относительный путь
+//
+//  Возвращаемое значение:
+//   Строка - абсолютный путь файла из каталога проекта
+//
+&НаКлиенте
+Функция ПолучитьАбсолютныйПутьФайлаИзКаталогаПроекта(Знач Путь) Экспорт
+
+  Если Найти(Путь, "$workspaceRoot") > 0 Тогда
+    Путь = СтрЗаменить(Путь, "$workspaceRoot", ДополнитьСлешВПуть(Объект.КаталогПроекта));
+  ИначеЕсли Найти(Путь, "$instrumentsRoot") > 0 И НЕ ПустаяСтрока(Объект.КаталогИнструментов) Тогда
+    Путь = СтрЗаменить(Путь, "$instrumentsRoot", ДополнитьСлешВПуть(Объект.КаталогИнструментов));
+  Иначе
+    Путь = ДополнитьСлешВПуть(Объект.КаталогПроекта) + Путь;
+  КонецЕсли;
+
+  ФайлПути = Новый Файл(Путь);
+  Возврат ФайлПути.ПолноеИмя;
+
+КонецФункции
+
 &НаКлиентеНаСервереБезКонтекста
 Функция ВерсияПриложенияБольшеИлиРавнаЧемЗаданная(Версия1, Версия2) Экспорт
 	Массив1 = РазложитьСтрокуВМассивПодстрокБезКонтекста(Версия1, ".");