是否有一个函数返回特殊字符的根字母?

bal*_*dre 3 .net .net-3.5

在.NET中有一个返回根字母的函数(没有像cedilla这样的特殊属性的字母),有点:

Select Case c
  Case "á", "à", "ã", "â", "ä", "ª" : x = "a"
  Case "é", "è", "ê", "ë" : x = "e"
  Case "í", "ì", "î", "ï" : x = "i"
  Case "ó", "ò", "õ", "ô", "ö", "º" : x = "o"
  Case "ú", "ù", "û", "ü" : x = "u"

  Case "Á", "À", "Ã", "Â", "Ä" : x = "A"
  Case "É", "È", "Ê", "Ë" : x = "E"
  Case "Í", "Ì", "Î", "Ï" : x = "I"
  Case "Ó", "Ò", "Õ", "Ô", "Ö" : x = "O"
  Case "Ú", "Ù", "Û", "Ü" : x = "U"

  Case "ç" : x = "c"
  Case "Ç" : x = "C"

  Case Else
       x = c
End Select
Run Code Online (Sandbox Code Playgroud)

这段代码错过了一些字母,但这只是为了示例的缘故:)