|
Tomuto tématu je věnován celý článek na adrese http://www.aspnet.cz/Articles/92-jak-spo... . Vřele doporučuji přečíst. Samotná funkce je napsaná v C#, takže zde je to, co mi vypadlo z konvertoru:
s = s.Normalize(NormalizationForm.FormD)
Dim sb As New StringBuilder()
For i As Integer = 0 To s.Length - 1
If CharUnicodeInfo.GetUnicodeCategory(s(i)) <> UnicodeCategory.NonSpacingMark Then
sb.Append(s(i))
End If
Next
Dim vysledek as String = sb.ToString()
Funguje to tak, že pomocí funkce Normalize se háčky a čárky vytáhnou jako samostatné znaky a pak se v cyklu odstraní. Jednoduše pak v cyklu můžete přidat další podmínku (dovnitř té stávající), která ještě odfiltruje interpunkci.
|