Don't ya'll hate when ya get all them funny French-lookin' letters muckin' up the datas on yer Internets? Well now ya'll can thank Jean-Philippe Daigle for inventin' this handy dandy function here. Yeeeeeeeee Haw!
Private Function replaceDiacritics(ByRef sbBuilder As System.Text.StringBuilder) As System.Text.StringBuilder sbBuilder.Replace("À", "A") sbBuilder.Replace("Á", "A") sbBuilder.Replace("Â", "A") sbBuilder.Replace("Ã", "A") sbBuilder.Replace("Ä", "A") sbBuilder.Replace("Å", "A") sbBuilder.Replace("Æ", "AE") sbBuilder.Replace("Ç", "C") sbBuilder.Replace("È", "E") sbBuilder.Replace("É", "E") sbBuilder.Replace("Ê", "E") sbBuilder.Replace("Ë", "E") sbBuilder.Replace("Ì", "I") sbBuilder.Replace("Í", "I") sbBuilder.Replace("Î", "I") sbBuilder.Replace("Ï", "I") sbBuilder.Replace("Ð", "D") sbBuilder.Replace("Ñ", "N") sbBuilder.Replace("Ò", "O") sbBuilder.Replace("Ó", "O") sbBuilder.Replace("Ô", "O") sbBuilder.Replace("Õ", "O") sbBuilder.Replace("Ö", "O") sbBuilder.Replace("Ù", "U") sbBuilder.Replace("Ú", "U") sbBuilder.Replace("Û", "U") sbBuilder.Replace("Ü", "U") sbBuilder.Replace("Ý", "Y") sbBuilder.Replace("à", "a") sbBuilder.Replace("á", "a") sbBuilder.Replace("â", "a") sbBuilder.Replace("ã", "a") sbBuilder.Replace("ä", "a") sbBuilder.Replace("å", "a") sbBuilder.Replace("æ", "ae") sbBuilder.Replace("ç", "c") sbBuilder.Replace("è", "e") sbBuilder.Replace("é", "e") sbBuilder.Replace("ê", "e") sbBuilder.Replace("ë", "e") sbBuilder.Replace("ì", "i") sbBuilder.Replace("í", "i") sbBuilder.Replace("î", "i") sbBuilder.Replace("ï", "i") sbBuilder.Replace("ð", "o") sbBuilder.Replace("ñ", "n") sbBuilder.Replace("ò", "o") sbBuilder.Replace("ó", "o") sbBuilder.Replace("ô", "o") sbBuilder.Replace("õ", "o") sbBuilder.Replace("ö", "o") sbBuilder.Replace("ù", "u") sbBuilder.Replace("ú", "u") sbBuilder.Replace("û", "u") sbBuilder.Replace("ü", "u") sbBuilder.Replace("ý", "y") sbBuilder.Replace("ÿ", "y") Return sbBuilder End Function
