Выделить расширение файла из полного пути

Пользователь

Сообщений: 58 Регистрация: 11.08.2014

07.12.2016 19:38:20

Коллеги, добрый день!
Необходима ваша помощь в решении следующей задачи, у меня имеется ячейка, в которой прописан путь к определенной папке на диске, для примера: C:\Users\Desktop\file1.xls. Меня интересует каким образом из данной строки можно вычленить окончание файла и показать его в соседней ячейке, т.е. в данном примере .xls.
Чувствую, что использовать здесь нужно =правсимв, но аргумент по количеству символов должен быть динамическим и грубо говоря осуществлять отсчет от самой правой точки в ячейке (как это осуществить я не знаю)

Заранее спасибо!

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 07.12.2016 19:39:14 Вы тему назвали так, что только ПРАВСИМВ можно применить Название темы должно отражать суть задачи. Предложите новое. Модераторы переименуют тему.

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

07.12.2016 20:13:42

obratka, на VBA очень просто, а формулами сложнее, т.к. нет аналога функции InstrRev

Код
Function Ext(s) Ext = Mid(s, InStrRev(s, ".") + 1) 'если нужно расширение с точкой, уберите "+1" End Function

Предложение по названию темы: Выделить расширение файла из полного пути

Изменено: Казанский - 07.12.2016 20:16:53

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#4 07.12.2016 20:22:37 По-деревенски, просто, но вдруг? Прикрепленные файлы Правый симв..xls (13.5 КБ)

Karataev

Пользователь

Сообщений: 2311 Регистрация: 23.10.2014

07.12.2016 20:23:11

Вариант с помощью формулы. Предполагается, что путь находится в "A1":
="."&ПСТР(A1;ПОИСК(СИМВОЛ(2);ПОДСТАВИТЬ(A1;".";СИМВОЛ(2);ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;".";""))))+1;ДЛСТР(A1))
Вариант с помощью формулы массива (вставляется Ctrl+Shift+Enter). Может быть эта формула чем-то лучше:
=ПРАВСИМВ(A1;МИН(ЕСЛИ(ЛЕВСИМВ(ПРАВСИМВ(A1;СТРОКА(A2:A10));1)=".";СТРОКА(A2:A10);"")))

Изменено: Karataev - 07.12.2016 21:45:23

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#6 07.12.2016 20:29:22 =ПСТР(ПРАВБ(B2;5);ПОИСК(".";ПРАВБ(B2;5))+1;4) Точка ведь одна? =ПСТР(B2;ПОИСК(".";B2)+1;5)

Bema Пользователь Сообщений: 7942 Регистрация: 15.02.2016	#7 07.12.2016 20:32:09 Ну и я отмечусь: =ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(".";A1)) Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл

Karataev

Пользователь

Сообщений: 2311 Регистрация: 23.10.2014

07.12.2016 20:40:35

Цитата
vikttur написал: Точка ведь одна?

точка не является запрещенным символом в пути, поэтому точек может быть несколько

kuklp

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

07.12.2016 20:43:36

Цитата
Karataev написал: точек может быть несколько

Дык, Ляксей предусмотрел сие в №3.

Я сам - дурнее всякого примера! ...

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#10 07.12.2016 20:44:44 И я в №6 )

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#11 07.12.2016 20:50:45 А если с двойным или с тройным расширением? Вдруг на этом месте что-то непотребное окажется? ТС скажет - "форумчане не доглядели!"

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#12 07.12.2016 20:50:51 http://www.script-coding.com/WSH/FileSystemObject.html#3.11. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

vikttur

Пользователь

Сообщений: 47199 Регистрация: 15.09.2012

#13

07.12.2016 20:51:39

Цитата
_Igor_61 написал: А если с двойным или с тройным расширением?

Каков пример...

_Igor_61 Пользователь Сообщений: 3007 Регистрация: 18.07.2016	#14 07.12.2016 20:52:40 Так и не было примера-то...

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

#15

08.12.2016 14:52:43

Цитата
_Igor_61 написал: Так и не было примера

Цитата
obratka написал: для примера: C:\Users\Desktop\file1.xls

Ігор Гончаренко

Пользователь

Сообщений: 14576 Регистрация: 01.01.1970

#16

08.12.2016 15:02:48

Код

Function GetFileExtension(FileName$)
  Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  GetFileExtension fso.GetExtensionName(FileName)
End Function

Sub Test()
  MsgBox GetFileExtension("C:\Users\Desktop\file1.xls")
End Sub

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

Sanja

Модератор

Сообщений: 19695 Регистрация: 10.01.2013

#17

08.12.2016 15:04:06

Цитата
_Igor_61 написал: А если с двойным или с тройным расширением?

Цитата
Казанский написал: на VBA очень просто

Код
Function ExtOnly(s As String) ExtOnly = CreateObject("Scripting.FileSystemObject").GetExtensionName(s) End Function

Согласие есть продукт при полном непротивлении сторон

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#18 08.12.2016 15:12:29 Sanja, спасибо за пример. Я так ещё не писал. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

Sanja Модератор Сообщений: 19695 Регистрация: 10.01.2013	#19 08.12.2016 15:15:11 JayBhagavan, а Вам за ссылку мерсис Согласие есть продукт при полном непротивлении сторон

Udik Пользователь Сообщений: 372 Регистрация: 07.03.2016 excel 2016х64 Контакты в профиле	#20 08.12.2016 15:41:52 Мой вариант ="." & СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(A2;".";ПОВТОР(" ";255));255)) Арфы - нет, возьмите бубен.

Читают тему