From 31b57a3d611deb50d18453493358f34863be8e76 Mon Sep 17 00:00:00 2001 From: Alexander Medvedko Date: Thu, 29 Feb 2024 22:52:51 +0300 Subject: [PATCH 1/3] =?UTF-8?q?=D0=A0=D0=B5=D0=B0=D0=BB=D0=B8=D0=B7=D0=BE?= =?UTF-8?q?=D0=B2=D0=B0=D0=BD=D0=B0=20=D0=B2=D1=8B=D0=B3=D1=80=D1=83=D0=B7?= =?UTF-8?q?=D0=BA=D0=B0=20=D0=B8=D0=BD=D1=84=D0=BE=D1=80=D0=BC=D0=B0=D1=86?= =?UTF-8?q?=D0=B8=D0=BE=D0=BD=D0=BD=D0=BE=D0=B9=20=D0=B1=D0=B0=D0=B7=D1=8B?= =?UTF-8?q?=20=D0=B2=20=D1=82=D0=B5=D0=BA=D1=83=D1=89=D0=B8=D0=B9=20=D0=BA?= =?UTF-8?q?=D0=B0=D1=82=D0=B0=D0=BB=D0=BE=D0=B3=20=D0=B5=D1=81=D0=BB=D0=B8?= =?UTF-8?q?=20=D0=B2=20=D0=BF=D0=B0=D1=80=D0=B0=D0=BC=D0=B5=D1=82=D1=80?= =?UTF-8?q?=D0=B0=D1=85=20=D1=83=D0=BA=D0=B0=D0=B7=D0=B0=D0=BD=D0=BE=20?= =?UTF-8?q?=D1=82=D0=BE=D0=BB=D1=8C=D0=BA=D0=BE=20=D0=B8=D0=BC=D1=8F=20?= =?UTF-8?q?=D1=84=D0=B0=D0=B9=D0=BB=D0=B0=20=D0=B2=D1=8B=D0=B3=D1=80=D1=83?= =?UTF-8?q?=D0=B7=D0=BA=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/v8runner.os b/src/v8runner.os index 597eee5..9c98b36 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -1335,6 +1335,14 @@ Процедура ВыгрузитьИнформационнуюБазу(ПутьВыгрузкиИБ) Экспорт + Лог.Отладка(СтрШаблон("ПутьВыгрузкиИБ %1", ПутьВыгрузкиИБ)); + + МассивЭлементовПути = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ПутьВыгрузкиИБ, ПолучитьРазделительПути()); + // если имя файла указано без каталога, то сохраняем в текущий каталог + Если МассивЭлементовПути.Количество() = 1 Тогда + ПутьВыгрузкиИБ = ТекущийКаталог() + ПолучитьРазделительПути() + ПутьВыгрузкиИБ; + КонецЕсли; + Файл = Новый Файл(ПутьВыгрузкиИБ); КаталогВыгрузкиИБ = Файл.Путь; From 4a3b8d703ced862c22a52ab71f2745c2f596c7b0 Mon Sep 17 00:00:00 2001 From: Alexander Medvedko Date: Tue, 5 Mar 2024 14:27:05 +0300 Subject: [PATCH 2/3] =?UTF-8?q?=D0=B8=D0=B7=D0=BC=D0=B5=D0=BD=D0=B8=D0=BB?= =?UTF-8?q?=20=D0=B0=D0=BB=D0=B3=D0=BE=D1=80=D0=B8=D1=82=D0=BC=20=D0=BF?= =?UTF-8?q?=D1=80=D0=BE=D0=B2=D0=B5=D1=80=D0=BA=D0=B8=20=D0=BF=D1=83=D1=82?= =?UTF-8?q?=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/src/v8runner.os b/src/v8runner.os index 9c98b36..ef7391d 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -1337,10 +1337,15 @@ Лог.Отладка(СтрШаблон("ПутьВыгрузкиИБ %1", ПутьВыгрузкиИБ)); - МассивЭлементовПути = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ПутьВыгрузкиИБ, ПолучитьРазделительПути()); - // если имя файла указано без каталога, то сохраняем в текущий каталог - Если МассивЭлементовПути.Количество() = 1 Тогда - ПутьВыгрузкиИБ = ТекущийКаталог() + ПолучитьРазделительПути() + ПутьВыгрузкиИБ; + КоличествоЭлементовПути1 = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ПутьВыгрузкиИБ, "/").Количество(); + Лог.Отладка(СтрШаблон("КоличествоЭлементовПути1 = %1", КоличествоЭлементовПути1)); + КоличествоЭлементовПути2 = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ПутьВыгрузкиИБ, "\").Количество(); + Лог.Отладка(СтрШаблон("КоличествоЭлементовПути2 = %1", КоличествоЭлементовПути2)); + + // если не найдено ни одного разделителя пути, то сохраняем в текущий каталог + Если КоличествоЭлементовПути1 = 1 И КоличествоЭлементовПути2 = 1 Тогда + ПутьВыгрузкиИБ = ТекущийКаталог() + ПолучитьРазделительПути() + ПутьВыгрузкиИБ; + Лог.Отладка(СтрШаблон("НовыйПутьВыгрузкиИБ %1", ПутьВыгрузкиИБ)); КонецЕсли; Файл = Новый Файл(ПутьВыгрузкиИБ); From 9544f74a7bd14a7ce76569bc69fc44b60c5eb42d Mon Sep 17 00:00:00 2001 From: Alexander Medvedko Date: Sat, 9 Mar 2024 21:06:11 +0300 Subject: [PATCH 3/3] =?UTF-8?q?=D0=9F=D1=80=D0=BE=D0=B2=D0=B5=D1=80=D0=BA?= =?UTF-8?q?=D0=B0=20=D0=B7=D0=B0=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD=D0=B0=20?= =?UTF-8?q?=D0=BD=D0=B0=20=D1=84=D0=BE=D1=80=D0=BC=D0=B8=D1=80=D0=BE=D0=B2?= =?UTF-8?q?=D0=B0=D0=BD=D0=B8=D0=B5=20=D0=B0=D0=B1=D1=81=D0=BE=D0=BB=D1=8E?= =?UTF-8?q?=D1=82=D0=BD=D0=BE=D0=B3=D0=BE=20=D0=BF=D1=83=D1=82=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/src/v8runner.os b/src/v8runner.os index ef7391d..5ad19a2 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -1335,19 +1335,10 @@ Процедура ВыгрузитьИнформационнуюБазу(ПутьВыгрузкиИБ) Экспорт - Лог.Отладка(СтрШаблон("ПутьВыгрузкиИБ %1", ПутьВыгрузкиИБ)); - - КоличествоЭлементовПути1 = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ПутьВыгрузкиИБ, "/").Количество(); - Лог.Отладка(СтрШаблон("КоличествоЭлементовПути1 = %1", КоличествоЭлементовПути1)); - КоличествоЭлементовПути2 = СтроковыеФункции.РазложитьСтрокуВМассивПодстрок(ПутьВыгрузкиИБ, "\").Количество(); - Лог.Отладка(СтрШаблон("КоличествоЭлементовПути2 = %1", КоличествоЭлементовПути2)); - - // если не найдено ни одного разделителя пути, то сохраняем в текущий каталог - Если КоличествоЭлементовПути1 = 1 И КоличествоЭлементовПути2 = 1 Тогда - ПутьВыгрузкиИБ = ТекущийКаталог() + ПолучитьРазделительПути() + ПутьВыгрузкиИБ; - Лог.Отладка(СтрШаблон("НовыйПутьВыгрузкиИБ %1", ПутьВыгрузкиИБ)); - КонецЕсли; - + Лог.Отладка(СтрШаблон("Исходный ПутьВыгрузкиИБ %1", ПутьВыгрузкиИБ)); + ПутьВыгрузкиИБ = ОбъединитьПути(ТекущийКаталог(), ПутьВыгрузкиИБ); + Лог.Отладка(СтрШаблон("Итоговый ПутьВыгрузкиИБ %1", ПутьВыгрузкиИБ)); + Файл = Новый Файл(ПутьВыгрузкиИБ); КаталогВыгрузкиИБ = Файл.Путь;