Страницы: 1
RSS
Помогите вытащить домены из столбика с URL
 
Есть столбик с URL с различными параметрами, пример:

Код
http://1.ip-ua.net/add/1={website}
http://10top-casino.ru/addurl.php={website}
http://1541.ru/katalog/index.php?a=add={website}


Во втором столбике должно получиться:
Код
http://1.ip-ua.net/
http://10top-casino.ru/
http://1541.ru/katalog/

Перепробовал все нагугленные формулы - ни одна не пашет.
Изменено: krestsoft - 26.10.2018 17:41:04
 
krestsoft,
Код
=ЛЕВСИМВ(G11;ПОИСК("/";G11;8))
Изменено: a.i.mershik - 26.10.2018 17:44:26
Не бойтесь совершенства. Вам его не достичь.
 
Можно так:
Код
=ЛЕВСИМВ(A1;ПОИСК("|";ПОДСТАВИТЬ(A1;"/";"|";3)))
Кому решение нужно - тот пример и рисует.
 
a.i.mershik, Пытливый, спасибо ребят! Как тут по лукас влепить? Кажждому!
 
=TRIM(LEFT(SUBSTITUTE(B3;"/";REPT(" ";99);3);99))
По вопросам из тем форума, личку не читаю.
 
Цитата
krestsoft написал: Помогите вытащить домены
Если домены, то какая проблема - берем слева все до первой одиночной "косой" - /. Как вариант. Или уточняйте хотелку - с реальным файлом-примером (см. Правила, пп 2.2, 2.3)... ;)
Изменено: Z - 27.10.2018 17:18:18
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
нет файл-примера,вариант UDF в столбце B или UDF aaa
Код
Function aaa$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "[^/]+": .Global = True
  aaa = .Execute(t)(0) & "/" & "/" & .Execute(t)(1) & "/"
 End With
End Function
 
Код
Function bbb$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "http://.+?(?=/)"
  bbb = .Execute(t)(0) & "/"
 End With
End Function
Изменено: кузя1972 - 28.10.2018 08:58:03
 
ещё вариант формулы в столбце I
Код
="http//"&СЖПРОБЕЛЫ(ЛЕВБ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ($A1;"//";ПОВТОР(" ";100));100));"/";ПОВТОР(" ";100));100)) &"/"
Изменено: кузя1972 - 28.10.2018 09:01:31
Страницы: 1
Наверх