Как извлечь из URL домен?

[Pavel.Nikandrov]

Я полный чайник, но тем, не менее, мне необходимо сделать задание по извлечению доменов, звучит так:

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

вот список доменов:

http://falloutboy.com/
http://xn----7sbajjbec0dd3k7b.xn--p1...odryad/multiki
http://www.adobe.com/ru/
http://www.mamba.ru/en/
http://lurkmore.to/%D0%90%D0%BA%D1%83%D0%BD%D0%B8%D0%BD
https://ru.bongacams.com/
http://user@example.com
https://en.wikipedia.org/wiki/Java_version_history
http://rutor.info/
https://www.youtube.com/user/momondo
http://totori.ru/bezdomnyj-bog-2-sezon-12-seriya
http://xn-----7kcabbec2afz1as3apmjtg...dlya-windows-7
http://lurkmore.to/%D0%90%D0%BA%D1%83%D0%BD%D0%B8%D0%BD
http://www.povarenok.ru/recipes/show/42046/
http://blog.t-stile.info/v-vashem-ak...-ne-kruchintes
http://www.bibo.kz/aforizmi/393836--...i-kurica-.html
https://yandex.ru/search/?lr=2&clid=...ource=all&nl=1
http://lib.mexmat.ru:80/books/90359


помогите пожалуйста)

[EducatedFool]

А поискать в гугле не пробовали?
http://office-guru.ru/excel/kak-byst...excel-289.html
https://exceljet.net/formula/get-domain-name-from-url
https://www.extendoffice.com/documen...-from-url.html

Напишите регулярное выражение

а какое отношение это имеет к Excel?

[Pavel.Nikandrov]

в том то и дело, что мне нужно именно регулярное выражение

[svsh2016]

вариант функции

Function vvv(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "https?://[-?&+\w./@_%:=]+"
    vvv = .Execute(t)(0)
 End With
End Function