Prevod textu VBA - bez diakritiky (vyřešeno)
Napsal: 28 srp 2006 14:58
od 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
Napsal: 28 srp 2006 20:32
od 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 FunctionJak jsem psal, funkce je jednoduchá a problém řeší, ikdyž není úplně programátorsky programátorská
Napsal: 29 srp 2006 09:06
od cukista
Jo, to je pěkně programátorsky vyřešené.
Jdu na to... Dík