Prevod textu VBA - bez diakritiky (vyřešeno)

[cukista]

Ahoj, mám malý problém - mám nějaký řetězec (typ String), který obsahuje české znaky. Potřebuju text o tyto české znaky očistit, resp. převést je na znaky bez diakritiky. Existuje nějaká funkce ve VBA, která by to dokázala? Já jsem zatím žádnou nenašel. Anebo existuje nějaká jiná metoda jak toho dosáhnout? Díky

[Reklama]

[Ltb]

Ahoj, zrovna jsem řešil podobný problém "u sebe" v práci. Pomohl jsem si trochu "stupidní", zato funkční funkcí.

Kód: Vybrat vše

Public Function Diakritika(retezec As String) As String
Dim bez_dia As String

bez_dia = retezec
bez_dia = Replace(bez_dia, "ě", "e")
bez_dia = Replace(bez_dia, "š", "s")
'.......................atd. dokud nevyčerpáš všechny české znaky (velká písmena nemusíš, funguje to i bez nich)

Diakritika = bez_dia

End Function

Jak jsem psal, funkce je jednoduchá a problém řeší, ikdyž není úplně programátorsky programátorská

[cukista]

Jo, to je pěkně programátorsky vyřešené. Jdu na to... Dík