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"
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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!

[Jeff Law]

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

Jeff Law
New Zealand

"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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"
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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!

[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" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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!

[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?

"Brian" <do****@howser.com> wrote in news:b0bQc.35889$Gk4.5544
@fe1.texas.rr.com:

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"
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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]

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.

"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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?

"Brian" <do****@howser.com> wrote in news:b0bQc.35889$Gk4.5544
@fe1.texas.rr.com:

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"
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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]

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.

"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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?

"Brian" <do****@howser.com> wrote in news:b0bQc.35889$Gk4.5544
@fe1.texas.rr.com:

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"
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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!

[Scott M.]

That wouldn't strip off information after the domain name though.
"Jeff Law" <je*****@datamasta.co.nz> wrote in message
news:e8****************@TK2MSFTNGP11.phx.gbl...

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

"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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]

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" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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?

"Brian" <do****@howser.com> wrote in news:b0bQc.35889$Gk4.5544
@fe1.texas.rr.com:

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"
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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!

[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.

vbMark <[e-mail]> wrote in news:Xn************************@130.133.1.4:

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!

[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
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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.

vbMark <[e-mail]> wrote in

news:Xn************************@130.133.1.4:

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!

[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." <s-***@nospam.nospam> wrote in message
news:OE**************@tk2msftngp13.phx.gbl...

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
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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.

vbMark <[e-mail]> wrote in

news:Xn************************@130.133.1.4:

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!

[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)
"Jay B. Harlow [MVP - Outlook]" <Ja************@msn.com> wrote in message
news:O7**************@TK2MSFTNGP10.phx.gbl...

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." <s-***@nospam.nospam> wrote in message
news:OE**************@tk2msftngp13.phx.gbl...

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
"vbMark" <[e-mail]> wrote in message
news:Xn************************@130.133.1.4...

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.

vbMark <[e-mail]> wrote in

news:Xn************************@130.133.1.4:

>
> 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!