感謝您的回答吉姆,但我試圖像Mono Project那樣實現規範化類,並且在某一時刻,我意識到這是一個矯枉過正的事情,因爲涉及太多的依賴涉及應該很簡單的事情。
我想出了這個簡單的實現......這並不完美,我知道(這不適用於每種語言),但它會爲我完成這項工作,直到MS發佈帶有字符串規範化支持的Silverlight版本。
<System.Runtime.CompilerServices.Extension()> _
Public Function RemoveDiacritics(ByVal searchInString As String) As String
Dim returnValue As String = ""
returnValue = searchInString
returnValue = returnValue.ReplaceLowerAndUpperCase("À", "A")
returnValue = returnValue.ReplaceLowerAndUpperCase("Á", "A")
returnValue = returnValue.ReplaceLowerAndUpperCase("Â", "A")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ã", "A")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ä", "A")
returnValue = returnValue.ReplaceLowerAndUpperCase("Å", "A")
returnValue = returnValue.ReplaceLowerAndUpperCase("Æ", "A")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ç", "C")
returnValue = returnValue.ReplaceLowerAndUpperCase("È", "E")
returnValue = returnValue.ReplaceLowerAndUpperCase("É", "E")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ê", "E")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ë", "E")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ì", "I")
returnValue = returnValue.ReplaceLowerAndUpperCase("Í", "I")
returnValue = returnValue.ReplaceLowerAndUpperCase("Î", "I")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ï", "I")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ñ", "N")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ò", "O")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ó", "O")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ô", "O")
returnValue = returnValue.ReplaceLowerAndUpperCase("Õ", "O")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ö", "O")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ù", "U")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ú", "U")
returnValue = returnValue.ReplaceLowerAndUpperCase("Û", "U")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ü", "U")
returnValue = returnValue.ReplaceLowerAndUpperCase("Ý", "Y")
returnValue = returnValue.ReplaceLowerAndUpperCase("Æ", "AE")
returnValue = returnValue.ReplaceLowerAndUpperCase("Œ", "OE")
Return returnValue
End Function
<System.Runtime.CompilerServices.Extension()> _
Public Function ReplaceLowerAndUpperCase(ByVal searchInString As String, ByVal oldString As String, ByVal newString As String) As String
Dim returnValue As String = ""
returnValue = searchInString.Replace(oldString.ToLower, newString.ToLower)
returnValue = returnValue.Replace(oldString.ToUpper, newString.ToUpper)
Return returnValue
End Function
關於-1,如果您有任何其他工作解決方案,也許應該在此處發佈它。 – 2011-07-14 17:35:25