Question

我有一个名为“主页”的字符串，如下所示：

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

该代码应该选择最后一个fullstop之后的所有字母，但事实并非如此。有人可以帮帮我吗？如果需要，我会提供更多信息。该网址并不总是以http://www开头，而是以http：//开头。 URL并不总是包含www。

Answer 1

您正在使用Right在字符串末尾获取 n 个字符。但是，您从InStr作为参数传递的值将从字符串的开头返回位置。

尝试从字符串的长度减去InStr返回的值。

Answer 2

网址是否始终以“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 3

 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()

如何在VB中反转URL？

3 个答案: