helpf.pro
Регистрация
 -5 
Распечатать

Возвратить каталог файла - часть пути без имени файла

Код 1C v 8.х
 // ПутьКФайлу  – Строка – путь к файлу.
//
// Возвращаемое значение:
// Строка – каталог файла
//
Функция ПолучитьКаталогФайла(Знач ПутьКФайлу) Экспорт

ПозицияСимвола = СтрДлина(ПутьКФайлу);
Пока ПозицияСимвола >= 1 Цикл
Если Сред(ПутьКФайлу, ПозицияСимвола, 1) = "\" Тогда
Возврат ПозицияСимвола;
КонецЕсли;
ПозицияСимвола = ПозицияСимвола - 1;
КонецЦикла;

Если ПозицияСимвола > 1 Тогда
Возврат Сред(ПутьКФайлу, 1, ПозицияСимвола - 1);
Иначе
Возврат "";
КонецЕсли;

КонецФункции
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 15736
 -5 
Распечатать
Возможно, вас также заинтересует
10060 (0x0000274C): Попытка установить соединение была безуспешной 24
Установили новый терминальный сервер, на нем подняли 1С, терминальные пользователе неописуемо довольны, все просто летает :) И вот же надо было такому случиться, главному бухгалтеру не понравилось работать через терминал, а еще у нее свой ноутбук и
17 правил для составления оптимального ЗАПРОСа к данным базы 1С 50
Для формирования и выполнения запросов к таблицам базы данных в платформе 1С используется специальный объект языка программирования Запрос . Создается этот объект вызовом конструкции Новый Запрос . Запрос удобно использовать, когда требуется получ
1C и Google Maps 21
была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было реш
1C: Enterprise Development Tools 52
И вот случилось долгожданное: Вышел 1C: Enterprise Development Tools - это среда для разработки конфигурации в IDE Eclipse. С сайта 1С: « 1C:Enterprise Development Tools » – это инструмент нового поколения для разработчиков бизнес-приложений систем
1Cv8.1CD - Файл данных достиг максимального размера! 9
1С выдает предупреждение " Файл данных достиг максимального размера" . Подскажите из - за чего это и как можно решить ? Превышен размер файла, обычно это сообщение возникает, когда размер файла 1Cv8.1CD приближается к 10 гигабайтам или размер ка
Посмотреть все результаты поиска похожих
Комментарии
serg2000mr
25.09.2022 11:40Комментарий: 6
serg2000mr

Можно так:

Код 1C v 8.х
 Файл = Новый Файл(ПутьКФайлу);

Каталог = Файл.Путь;
serg2000mr
25.09.2022 11:38Комментарий: 5
serg2000mr

Можно так:

Код 1C v 8.х
 Файл = Новый Файл(ПутьКФайлу);
Каталог = Файл.Путь;
serg2000mr
25.09.2022 11:37Комментарий: 4
serg2000mr

Можно так:

Код 1C v 8.х
 
Файл = Новый Файл(ПутьКФайлу);
Каталог = Файл.Путь;
serg2000mr
25.09.2022 11:37Комментарий: 3
serg2000mr

Можно так:

Код 1C v 8.х
 Файл = Новый Файл(ПутьКФайлу);
Каталог = Файл.Путь;
serg2000mr
25.09.2022 11:34Комментарий: 2
serg2000mr

Можно так:

Код 1C v 8.х
 Файл = Новый Файл(ПутьКФайлуЗамераПроизводительности);
Каталог = Файл.Путь;
gaglo
15.07.2011 08:53Комментарий: 1
gaglo
Цитата
Возврат ПозицияСимвола;
в первом цикле - очевидно, описка, надо Прервать
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.