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); + КонецЕсли; + + Возврат Строка; + +КонецФункции