Remove all characters from a URL except domain and extensions

[waldoctg]

This is perfect

Also, can you make one for me to just get rid of any http://; https://; www.; http://www.; https://www.; as well as "/" at the end? Like shown in the example below.

http://bob.woohoo.com bob.woohoo.com
www.bob.woohoo.com/ bob.woohoo.com/
http://www.bill.woohoo.com bill.woohoo.com
https://www.bill.woohoo.com/folder1 bill.woohoo.com/folder1
http://bill.woohoo.com/folder1/ bill.woohoo.com/folder1
https://www.bill.woohoo.com/folder1/folder2 bill.woohoo.com/folder1/folder2
http://www.bill.woohoo.com/folder1/folder2/ bill.woohoo.com/folder1/folder2
http://bill.woohoo.com bill.woohoo.com
www.bill.woohoo.com bill.woohoo.com
bill.woohoo.com bill.woohoo.com
State Information/U.S. Department of Housing and Urban Development (HUD) portal.hud.gov/hudportal/HUD/states
https://mapquest.com/ mapquest.com/
Reference Desk historymatters.gmu.edu/browse/refdesk
https://blast.ncbi.nlm.nih.gov/ blast.ncbi.nlm.nih.gov
http://www.tfl.gov.uk/modalpages/2605.aspx tfl.gov.uk/modalpages/2605.aspx
Marketing Seminars & Webinars | Constant Contact Events constantcontact.com/features/tours.jsp


Moderator edit: Moved from this post to start a new thread.

 

[anvg]

Hi
Try to test with a udf-function, please

Public Function GetUrlPart(ByVal this As String) As String
    Dim pReg As Object, needed As String
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.IgnoreCase = True
    pReg.Pattern = "(?:https?\://)?(?:www\.)?(.+)"
    needed = pReg.Execute(this)(0).SubMatches(0)
    GetUrlPart = IIf(Right$(needed, 1) = "/", Left$(needed, Len(needed) - 1), needed)
End Function

Regard,

 

[waldoctg]

Hi thanks.

I'm looking for something more I just put in the cell, not necessarily VBA code. Rick Rothstein gave me some good help and I was hoping to have him respond, but then a mod moved my discussion to an entirely new form.

Here's the table I had:

http://bob.woohoo.com	bob.woohoo.com
www.bob.woohoo.com/	bob.woohoo.com
http://www.bill.woohoo.com	bill.woohoo.com
https://www.bill.woohoo.com/folder1	bill.woohoo.com/folder1
http://bill.woohoo.com/folder1/	bill.woohoo.com/folder1
http://www.bill.woohoo.com/folder1/folder2	bill.woohoo.com/folder1/folder2
http://www.bill.woohoo.com/folder1/folder2/	bill.woohoo.com/folder1/folder2
http://bill.woohoo.com	bill.woohoo.com
www.bill.woohoo.com	bill.woohoo.com
bill.woohoo.com	bill.woohoo.com
http://portal.hud.gov/hudportal/HUD/states	portal.hud.gov/hudportal/HUD/states
http://mapquest.com/	mapquest.com
http://historymatters.gmu.edu/browse/refdesk/	historymatters.gmu.edu/browse/refdesk
http://blast.ncbi.nlm.nih.gov/	blast.ncbi.nlm.nih.gov
http://www.tfl.gov.uk/modalpages/2605.aspx	tfl.gov.uk/modalpages/2605.aspx
http://www.constantcontact.com/features/tours.jsp	constantcontact.com/features/tours.jsp

<tbody>
</tbody>