|
1
IronDemon
22.07.10
✎
11:48
|
// Процедура полное имя файла разбивает на путь в файлу и имя самого файла // // Параметры // ПолноеИмяФайла – Строка, содержащая полное имя файла на диске. // ИмяКаталога – Строка, содержащая путь к каталогу файла на диске. // ИмяФайла – Строка, содержащая имя файла, без имени каталога. // Процедура ПолучитьКаталогИИмяФайла(Знач ПолноеИмяФайла, ИмяКаталога, ИмяФайла) Экспорт // находим последний с конца "\" все что до него - это путь, после - имя НомерПозиции = СтрДлина(ПолноеИмяФайла); Пока НомерПозиции <> 0 Цикл Если Сред(ПолноеИмяФайла, НомерПозиции, 1) = "\" Тогда ИмяКаталога = Сред(ПолноеИмяФайла, 1, НомерПозиции - 1); ИмяФайла = Сред(ПолноеИмяФайла, НомерПозиции + 1); Возврат; КонецЕсли; НомерПозиции = НомерПозиции - 1; КонецЦикла; // так и не нашли слешей, значит все- это имя файла ИмяФайла = ПолноеИмяФайла; ИмяКаталога = ""; КонецПроцедуры Функция ПолучитьТолькоИмяФайла(ПолноеИмяФайла) Экспорт ИмяКаталога = ""; ИмяФайла = ""; ПолучитьКаталогИИмяФайла(ПолноеИмяФайла, ИмяКаталога, ИмяФайла); Возврат ИмяФайла; КонецФункции
|
|