Как поменять URL в VB?

Question

У меня есть строка с именем "homepage", например, так:

Dim homepage As String
homepage = TextBox1.Text

Например, домашняя страница равна "http://www.example.com".. Все, что мне нужно сделать, это перевести URL на" com.example "без" http://www".. Я пробовал следующий код:

Dim i As String = Microsoft.VisualBasic.Right(homepage, (InStr(homepage, ".")))
Label1.Text = i

Этот код должен выделять все буквы после последней полной остановки, но это не так. Может кто-нибудь, пожалуйста, помогите мне? Я предоставлю больше информации, если это необходимо. URL не всегда начинается с http://www,, но начинается с http: //. URL не всегда имеет www.

Answer 1

Будет ли URL всегда начинаться с "http://www."?

Dim reversedPartUrl As String = String.Join(".", homepage.Replace("http://www.", "").Split("."c).Reverse)

Или, если есть шанс, в конце будет что-то вроде /index.html,

Dim homepage As Uri
homepage = New Uri("http://www.example.com/index.html")
Dim s As String = String.Join(".", homepage.Host.Split("."c).Reverse)

Answer 2

 Dim homepage As String
        homepage = "http://www.stackoverflow.com/"

        'Reverse the URL
        Dim revURL = StrReverse(homepage)

        Dim theURL
        theURL = Left(revURL, InStr(InStr(revURL, ".") + 1, revURL, ".") - 1)

        ' Reverse it back
        homepage = StrReverse(theURL)
        Console.WriteLine(homepage)
        Console.ReadKey()

Answer 3

Вы используете Right, чтобы получить n символов в конце строки. Но значение, которое вы передаете в качестве аргумента от InStr, возвращает позицию от начала строки.

Попробуйте вычесть значение, возвращаемое InStr, из длины строки.