什麼是最優雅的方式來獲得域的擴展？

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 

UPDATE

由於通過意見提出，上面的代碼不佔相當多的不測事件（例如，.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」。這種分析應該補充一個函數，檢查給定的擴展是否有效（例如，字典包括一組有效但不明顯的擴展），至少在某些情況下。