获得域名扩展的最优雅方式是什么？

Question

例如

google.com -> .com

google.co.id -> .co.id

hello.google.co.id -> .co.id

在vb.net中？

甚至可以这样做吗？

Answer 1

假设具有各种“。”的域。必须包括“.co”。你可以使用这段代码：

Dim input As String = "hello.google.co.id"
Dim extension As String = ""
If (input.ToLower.Contains(".co.")) Then
    extension = input.Substring(input.ToLower.IndexOf(".co."), input.Length - input.ToLower.IndexOf(".co."))
Else
    extension = System.IO.Path.GetExtension(input)
End If

更新

正如通过评论所建议的那样，上面的代码并没有考虑到很多可能性（例如.ca.us）。下面的版本来自不同的假设（.xx.yy只有在有2个字符的组时才能出现）应该处理所有可能的替代方案：

If (input.ToLower.Length > 4 AndAlso input.ToLower.Substring(0, 4) = "www.") Then input = input.Substring(4, input.Length - 4) 'Removing the starting www.  

Dim temp() As String = input.Split(".")

If (temp.Count > 2) Then
    If (temp(temp.Count - 1).Length = 2 AndAlso temp(temp.Count - 2).Length = 2) Then
        'co.co or ca.ca, etc.
        extension = input.Substring(input.ToLower.LastIndexOf(".") - 3, input.Length - (input.ToLower.LastIndexOf(".") - 3))
    Else
        extension = System.IO.Path.GetExtension(input)
    End If
Else
    extension = System.IO.Path.GetExtension(input)
End If

在任何情况下，这都是一个诡辩的现实，因此这段代码（基于对情况的非常有限的理解，我目前的理解）不能被认为是100％可靠的。有些情况甚至在不知道给定字符集是否为扩展名的情况下甚至无法识别;例如：“hello.ue.co”。在某些情况下，至少在某种情况下，该分析应补充一个功能，检查给定的扩展名是否有效（例如，字典包括一组有效但不明显的扩展名）。