在VB.net中进行比较的最佳方法是什么

Question

我想问您，您对比较URL的最佳方法有何看法？ 可以说URL有10种可用格式。 我在下面列出了它们。

• http://domain.com
• https://domain.com
• http://www.domain.com
• https://www.domain.com
• www.domain.com
• domain.com

最后还有一些斜线。

• http://domain.com/
• https://domain.com/
• http://www.domain.com/
• https://www.domain.com/
• www.domain.com/
• domain.com/

如果这些URL与列表框中的项目匹配，那么轻松比较的最佳解决方案是什么。 我目前正在做其他事情，它构造了3个不同的URL。 但是代码太乱了，我正在寻找更清洁的东西。

我正在寻找类似下面的代码的东西。

但是，实际情况是如何比较这两个URL？

For Each result As String In lb_results.Items
   If String.Compare(result, "urls to compare") Then

   End If
Next

Answer 1

如果您只是将“ domain.com”与其变体进行比较，并需要将其删除...

快速标准化字符串，以便域名和扩展名必须在句点之间。

MessyURL = Replace(MessyURL, "/", ".").Trim

摆脱最后一个讨厌的最后一个斜杠，如果它在那里，现在是一个时期。

If Mid(MessyURL, MessyURL.Length, 1) = "." Then
         MessyURL = Mid(MessyURL, 1, MessyURL.Length - 1)

将名称，圆点和com（或其他内容）放在一起。

Dim TestName As String

TestName= MessyURL.Split(".").ElementAt(MessyURL.Split(".").Count - 2) &
 "." & MessyURL.Split(".").ElementAt(MessyURL.Split(".").Count - 1)

和whala，一个不错的“ domain.com”测试名称名称，可与列表进行比较，如果列表不存在，则插入列表中...

  If MyListOfUrLs.Items.IndexOf(TestName) = -1 then  MyListOfUrLs.Items.Add(TestName)

Answer 2

您只想检查这些URL是否在同一网站上使用：

For Each result As String In lb_results.Items
   If result.Contains("domain") = True Then
         MsgBox("They have the same URL")
   End If
Next