From 94299767f08f02b5bb2933664763464498ea7478 Mon Sep 17 00:00:00 2001 From: Artur Ayukhanov Date: Tue, 4 Feb 2020 12:08:01 +0300 Subject: [PATCH 1/2] =?UTF-8?q?=D0=9D=D0=BE=D0=B2=D1=8B=D0=B9=20=D0=BC?= =?UTF-8?q?=D0=B5=D1=82=D0=BE=D0=B4=20=D0=9F=D0=BE=D0=BB=D1=83=D1=87=D0=B8?= =?UTF-8?q?=D1=82=D1=8C=D0=90=D0=B1=D1=81=D0=BE=D0=BB=D1=8E=D1=82=D0=BD?= =?UTF-8?q?=D1=8B=D0=B9=D0=9F=D1=83=D1=82=D1=8C=D0=A4=D0=B0=D0=B9=D0=BB?= =?UTF-8?q?=D0=B0=D0=98=D0=B7=D0=9A=D0=B0=D1=82=D0=B0=D0=BB=D0=BE=D0=B3?= =?UTF-8?q?=D0=B0=D0=9F=D1=80=D0=BE=D0=B5=D0=BA=D1=82=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Form/Module.bsl" | 42 ++++++++++++++++++- 1 file changed, 41 insertions(+), 1 deletion(-) diff --git "a/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" index 7b4a4aad0..39eea5c96 100644 --- "a/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" +++ "b/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/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, "."); From 303665e74963d9952e364ceb7647fdaa39c0c102 Mon Sep 17 00:00:00 2001 From: Artur Ayukhanov Date: Tue, 4 Feb 2020 12:43:20 +0300 Subject: [PATCH 2/2] =?UTF-8?q?=D0=B8=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D1=8B=20=D1=81=D0=B8=D0=BD=D1=82=D0=B0=D0=BA=D1=81?= =?UTF-8?q?-=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Ext/Form/Module.bsl" | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git "a/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" index 39eea5c96..301e3e390 100644 --- "a/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" +++ "b/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" @@ -4460,11 +4460,11 @@ Функция ПолучитьАбсолютныйПутьФайлаИзКаталогаПроекта(Знач Путь) Экспорт Если Найти(Путь, "$workspaceRoot") > 0 Тогда - Путь = СтрЗаменить(Путь, "$workspaceRoot", Ванесса.ДополнитьСлешВПуть(Объект.КаталогПроекта)); + Путь = СтрЗаменить(Путь, "$workspaceRoot", ДополнитьСлешВПуть(Объект.КаталогПроекта)); ИначеЕсли Найти(Путь, "$instrumentsRoot") > 0 И НЕ ПустаяСтрока(Объект.КаталогИнструментов) Тогда - Путь = СтрЗаменить(Путь, "$instrumentsRoot", Ванесса.ДополнитьСлешВПуть(Объект.КаталогИнструментов)); + Путь = СтрЗаменить(Путь, "$instrumentsRoot", ДополнитьСлешВПуть(Объект.КаталогИнструментов)); Иначе - Путь = Ванесса.ДополнитьСлешВПуть(Объект.КаталогПроекта) + Путь; + Путь = ДополнитьСлешВПуть(Объект.КаталогПроекта) + Путь; КонецЕсли; ФайлПути = Новый Файл(Путь);