From 28e2049071a209f4d9f4f4a94aeadf15f53d1a69 Mon Sep 17 00:00:00 2001 From: Nikita Gryzlov Date: Fri, 16 Dec 2016 16:32:19 +0300 Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?= =?UTF-8?q?=D0=BD=D1=8B=20=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D0=B8=20?= =?UTF-8?q?=D0=BF=D0=BE=20=D0=BE=D0=B1=D0=BE=D1=80=D0=B0=D1=87=D0=B8=D0=B2?= =?UTF-8?q?=D0=B0=D0=BD=D0=B8=D1=8E=20=D1=81=D1=82=D1=80=D0=BE=D0=BA=20?= =?UTF-8?q?=D0=B2=20=D0=BA=D0=B0=D0=B2=D1=8B=D1=87=D0=BA=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../\320\244\320\241.os" | 60 +++++++++++++++++++ 1 file changed, 60 insertions(+) diff --git "a/\320\234\320\276\320\264\321\203\320\273\320\270/\320\244\320\241.os" "b/\320\234\320\276\320\264\321\203\320\273\320\270/\320\244\320\241.os" index 0fbe056..78fc987 100644 --- "a/\320\234\320\276\320\264\321\203\320\273\320\270/\320\244\320\241.os" +++ "b/\320\234\320\276\320\264\321\203\320\273\320\270/\320\244\320\241.os" @@ -104,3 +104,63 @@ КонецЦикла; КонецПроцедуры + +// Оборачивает переденную строку в кавычки, если она еще не обернута. +// +// Параметры: +// Строка - Строка - Оборачиваемая строка. +// +// Возвращаемое значение: +// Строка - Строка, обернутая в кавычки. +// +Функция ОбернутьВКавычки(Знач Строка) Экспорт + + Если Лев(Строка, 1) = """" и Прав(Строка, 1) = """" Тогда + Возврат Строка; + Иначе + Возврат """" + Строка + """"; + КонецЕсли; + +КонецФункции + +// Оборачивает переданный путь в кавычки. +// Дополнительно убирается конечный слэш. +// +// Параметры: +// Путь - Строка - Путь к файлу или каталогу. +// +// Возвращаемое значение: +// Строка - Путь, обернутый в кавычки. +// +Функция ОбернутьПутьВКавычки(Знач Путь) Экспорт + + Если Прав(Путь, 1) = "\" Тогда + Путь = Лев(Путь, СтрДлина(Путь) - 1); + КонецЕсли; + + Путь = ОбернутьВКавычки(Путь); + + Возврат Путь; + +КонецФункции + +// Убирает кавычки вокруг переданной строки. +// +// Параметры: +// Строка - Строка - Строка, у которой надо убрать кавычки вокруг. +// +// Возвращаемое значение: +// Строка - Строка без кавычек вокруг. +// +Функция УбратьКавычкиВокруг(Знач Строка) Экспорт + + Если Лев(Строка, 1) = """" Тогда + Строка = Прав(Строка, СтрДлина(Строка) - 1); + КонецЕсли; + Если Прав(Строка, 1) = """" Тогда + Строка = Лев(Строка, СтрДлина(Строка) - 1); + КонецЕсли; + + Возврат Строка; + +КонецФункции