Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Извлечь из URL информацию между поледним / и первым -
 
#1
04.01.2019 21:10:07
Здравствуйте.
В ячейке А находится ссылка
Код
https://xxxxxxxx.com/xxxxxxxxxxxx/123456789-word1-word2-word3.zip.html

Необходимо, чтобы в ячейке В отображалось то, что находится после последнего знака (/) и первого знака (-) то есть цифры, и чтобы они были взяты в скобки.

Код
(123456789)

А в ячейке С должно отображаться (отсекается .html)
Код
123456789-word1-word2-word3.zip

Я уже использую определенную формулу, но в данном случае она не подходит
Код
="(" & ПРОСМОТР(2;1/(ПСТР(A1;СТРОКА($1:$999);1)="/");ПСТР(A1;СТРОКА($1:$999)+1;999)) & ")"
Благодарю за любую оказанную помощь.
 
 
 
#2
04.01.2019 21:27:35
="("&--ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(A1;ПОИСК("-";A1)-1);"/";ПОВТОР(" ";99));99)&")"

Цитата
отсекается .html
Окружите  свою формулу:
=ПОДСТАВИТЬ(формула;".html";)
 
 
 
#3
04.01.2019 22:10:02
vikttur,
Спасибо большое, всё получилось.
 
 
 
#4
04.01.2019 23:34:44
вариант функций
Код
Function cc$(t$)
  cc = "(" & Split(StrReverse(Split(StrReverse(t), "/", 2)(0)), "-")(0) & ")"
End Function
Код
Function aa$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "[^/]+": .Global = True
   aa = .Execute(t)(.Execute(t).Count - 1): .Pattern = "[^-]+": aa = "(" & .Execute(aa)(0) & ")"
 End With
End Function
Код
Function bb$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "[^/]+": .Global = True
  bb = "(" & Split(.Execute(t)(.Execute(t).Count - 1), "-")(0) & ")"
 End With
End Function
Изменено: кузя1972 - 05.01.2019 00:05:54
 
 
 
Страницы: 1
Наверх