Последняя версия DataExpress 3 beta от 1 сентября 2019 года.
Изображение Скачать | Изображение Что нового?
См. также: Энциклопедия DX | Форум на develop-soft | Песочница
ИзображениеИзображениеИзображение

Получение части пути к файлу

Все о том как сделать что-то с помощью скриптов.
Vofka18
Интересующийся
Сообщения: 247
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 11 раз
Поблагодарили: 4 раза

Получение части пути к файлу

Сообщение Vofka18 » Пт май 17, 2019 11:29 am

Добрый день, не уверен что это баг, но мне кажется эта функция должна возвращать имя папки без пути к ней.
пример для проверки нашел в интернете :? , прилагаю.

Код: Выделить всё

var
fullFileName : string;
begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Показ составляющих частей этого полного имени
  msgBox('','Диск       = '+ExtractFileDrive (fullFileName));
  msgBox('','Каталог    = '+ExtractFileDir   (fullFileName));
  msgBox('','Путь       = '+ExtractFilePath  (fullFileName));
  msgBox('','Имя        = '+ExtractFileName  (fullFileName));
  msgBox('','Расширение = '+ExtractFileExt   (fullFileName));
end;

Данный пример выдает два одинаковых значения в пунктах "Каталог" и "Путь"

Аватара пользователя
Develop-Soft
Сообщения: 709
Зарегистрирован: Вт мар 05, 2019 6:09 pm
Благодарил (а): 35 раз
Поблагодарили: 162 раза
Контактная информация:

Re: Получение части пути к файлу

Сообщение Develop-Soft » Пт май 17, 2019 11:51 am

Vofka18 писал(а):не уверен что это баг

Это невнимательность: http://www.delphibasics.ru/ExtractFilePath.php

Vofka18
Интересующийся
Сообщения: 247
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 11 раз
Поблагодарили: 4 раза

Re: Получение части пути к файлу

Сообщение Vofka18 » Пт май 17, 2019 12:16 pm

Согласен, прошу прощения :oops: , что занимательно, пример взял прям отсюда, а на результат не глянул...
Еще раз извините! Но тогда подскажите, а как получить только конечный каталог?

Аватара пользователя
Develop-Soft
Сообщения: 709
Зарегистрирован: Вт мар 05, 2019 6:09 pm
Благодарил (а): 35 раз
Поблагодарили: 162 раза
Контактная информация:

Re: Получение части пути к файлу

Сообщение Develop-Soft » Пт май 17, 2019 12:39 pm

Vofka18 писал(а):а как получить только конечный каталог

Попробовал загуглить "конечный каталог". Выдало: "Держатель дистанционный конечный", "Конечные выключатели", "каталог для конечных пользователей".
Наверное придется привести пример "Конечного Каталога"...

kok80
Эксперт
Сообщения: 284
Зарегистрирован: Пн июл 02, 2018 9:45 pm
Благодарил (а): 1 раз
Поблагодарили: 12 раз

Re: Получение части пути к файлу

Сообщение kok80 » Пт май 17, 2019 12:50 pm

в TStringLIst разбить на строки по "\"
последняя строка без точки будет последняя папка

Vofka18
Интересующийся
Сообщения: 247
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 11 раз
Поблагодарили: 4 раза

Re: Получение части пути к файлу

Сообщение Vofka18 » Пт май 17, 2019 12:52 pm

Develop-Soft писал(а):
Vofka18 писал(а):а как получить только конечный каталог

Попробовал загуглить "конечный каталог". Выдало: "Держатель дистанционный конечный", "Конечные выключатели", "каталог для конечных пользователей".
Наверное придется привести пример "Конечного Каталога"...

Ок, сарказм понял :)
Есть ли готовая функция, что-бы получить из этого "C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu", вот это "Projects"?
Или надо парсить строку вручную?

Vofka18
Интересующийся
Сообщения: 247
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 11 раз
Поблагодарили: 4 раза

Re: Получение части пути к файлу

Сообщение Vofka18 » Пт май 17, 2019 12:53 pm

kok80 писал(а):в TStringLIst разбить на строки по "\"
последняя строка без точки будет последняя папка

Наверно так и сделаю. Просто думал что есть готовая функция. Но не суть ;)
Спасибо!

Аватара пользователя
Develop-Soft
Сообщения: 709
Зарегистрирован: Вт мар 05, 2019 6:09 pm
Благодарил (а): 35 раз
Поблагодарили: 162 раза
Контактная информация:

Re: Получение части пути к файлу

Сообщение Develop-Soft » Пт май 17, 2019 12:57 pm

'Каталог = '+ExtractFileName(ExtractFileDir(fullFileName))

Vofka18
Интересующийся
Сообщения: 247
Зарегистрирован: Вс мар 04, 2018 4:54 pm
Благодарил (а): 11 раз
Поблагодарили: 4 раза

Re: Получение части пути к файлу

Сообщение Vofka18 » Пт май 17, 2019 1:03 pm

Develop-Soft писал(а):'Каталог = '+ExtractFileName(ExtractFileDir(fullFileName))

Так пожалуй будет проще, чем разбирать строку вручную :) . Спасибо!!!

Аватара пользователя
Develop-Soft
Сообщения: 709
Зарегистрирован: Вт мар 05, 2019 6:09 pm
Благодарил (а): 35 раз
Поблагодарили: 162 раза
Контактная информация:

Re: Получение части пути к файлу

Сообщение Develop-Soft » Пт май 17, 2019 1:07 pm

Vofka18 писал(а):проще, чем разбирать строку вручную

Я бы еще отметил - точнее: C:\Prog.ram Fi.les\Borla.nd\Delp.hi7\Proje.cts\Unit1_dcu