Removendo Acentuação

Fala, galera!!

Hoje vou postar um código simples, mas bastante útil para retirada de acentuação de uma string.

A essa altura do campeonato, não dá mais para escrever 50 linhas de código com "Replaces" para remover caracteres de acentuação, né?

Então, segue o código "inteligente":


Public Function RemoverAcentos(ByVal Valor As String) As String
        Dim TextoNormalizado As String = Valor.Normalize(NormalizationForm.FormD)
        Dim sbTexto As New StringBuilder

        For i = 0 To TextoNormalizado.Length - 1
            Dim C As Char = TextoNormalizado(i)
            If (CharUnicodeInfo.GetUnicodeCategory(C) <> UnicodeCategory.NonSpacingMark) Then
                sbTexto.Append(C)
            End If
        Next
        Return sbTexto.ToString
End Function


Um abraço e até a próxima!!