(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: (Unicode) Sonderzeichen in Grundbuchstaben umwandeln
13. Okt 2008, 16:13
Code:
static string RemoveDiacritics(string stIn)
{
string stFormD = stIn.Normalize(NormalizationForm.FormD);
StringBuilder sb = new StringBuilder();
for(int i = 0; i < stFormD.Length; i++)
{
UnicodeCategory uc = CharUnicodeInfo.GetUnicodeCategory(stFormD[i]);
if(uc != UnicodeCategory.NonSpacingMark)
sb.Append(stFormD[i]);
}
return(sb.ToString().Normalize(NormalizationForm.FormC));
}
Vorhin gefunden
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|