What's an easy way to do this?

[vbMark]

I want to be able to take any URL and get its root.

For example:

http://msdn.microsoft.com/blah/blah/blah

Would return:

microsoft.com

Is there a class that will do this?

Thanks!

 

[Brian]

You could use the Uri class..

Dim myUri As New Uri("http://msdn.microsoft.com/blah/blah/blah")
Dim strTemp As String = myUri.Host

strTemp would contain "msdn.microsoft.com"

 

[Jeff Law]

As long as the 'http://' is present, surely Split(url, "//")(1) would do it?

Jeff Law
New Zealand

 

[Brian]

You could use the Uri class..

Dim myUri As New Uri("http://msdn.microsoft.com/blah/blah/blah")
Dim strTemp As String = myUri.Host

strTemp would contain "msdn.microsoft.com"

 

[Scott M.]

Don't know about a class that does this for you, but some string
manipulation would get you there.

Dim wholeURL As String = "http://www.microsoft.com/"

Dim baseURL As String = wholeURL.Substring(wholeURL.IndexOf("//") + 2,
wholeURL.IndexOf("/", 7) - 7)

baseURL = Right(baseURL, baseURL.Length - baseURL.IndexOf(".") - 1)

Response.Write(baseURL)

 

[vbMark]

That's very close but I just want the microsoft.com part. I don't see a
method for that. Am I just missing it?

 

[Scott M.]

That wouldn't strip off information after the domain name though.

 

[Brian]

AFAIK, I don't think there is a method for that. You'd just have to
manipulate the string, splitting it at periods "." or something.

 

[Brian]

AFAIK, I don't think there is a method for that. You'd just have to
manipulate the string, splitting it at periods "." or something.

 

[Brian]

AFAIK, I don't think there is a method for that. You'd just have to
manipulate the string, splitting it at periods "." or something.

SORRY if I double/triple posted. My news server is saying that my message
is deleted right after I post it. Wtf.

 

[vbMark]

Here is my solution:

Dim myUri As New Uri(sURI)
sTemp = myUri.Host
sSplit = sTemp.Split(".")
sTemp = sSplit(sSplit.GetUpperBound(0) - 1) & _
"." & sSplit(sSplit.GetUpperBound(0))
MsgBox(sTemp)

Let me know what you think.

 

[Scott M.]

This does the trick for me:

Dim myURI As New Uri("http://msdn.microsoft.com/blah/blah/blah")
Dim strURI As String = myURI.Host.ToString
strURI = Right(strURI, strURI.Length - strURI.IndexOf(".") - 1)

strURI now is: microsoft.com

 

[Jay B. Harlow [MVP - Outlook]]

Scott,
Two "problems"

1) I would avoid mixing VB.Strings (Right) with String (IndexOf, Length) I
would recommend using one or the other, then you avoid any potential off by
one problems (do I need to include -1 or don't I). As Right expects a base 1
index, while IndexOf returns a base 0 index.

2) what happens with urls such as:

http://lab.msdn.microsoft.com/vs2005/

Hope this helps
Jay

 

[Scott M.]

I don't have a problem using "Right" and "IndexOf". They are both valid and
both have a purpose.

You are correct, though, about the longer domain name, so here is a solution
that works for all:

Dim myURI As New Uri("http://lab.msdn.microsoft.com/vs2005/")
Dim strURI As String = myURI.Host.ToString
Dim urlPart As String() = strURI.Split(CType(".", Char))
strURI = CType(urlPart(urlPart.Length - 2), String) & "." &
CType(urlPart(urlPart.Length - 1), String)