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

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

cukista
Level 1
Level 1
Příspěvky: 51
Registrován: srpen 05
Pohlaví: Nespecifikováno
Stav:
Offline

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

Příspěvekod cukista » 28 srp 2006 14:58

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
Uživatelský avatar
Ltb
Administrátor
Master Level 8.5
Master Level 8.5
Příspěvky: 6755
Registrován: únor 03
Bydliště: Praha západ
Pohlaví: Muž
Stav:
Offline
Kontakt:

Příspěvekod Ltb » 28 srp 2006 20:32

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
Level 1
Level 1
Příspěvky: 51
Registrován: srpen 05
Pohlaví: Nespecifikováno
Stav:
Offline

Příspěvekod cukista » 29 srp 2006 09:06

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


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Převod formatovaného textu na normalní.
    od BigSandy » 26 kvě 2023 07:27 » v Vše ostatní (sw)
    3
    1514
    od BigSandy Zobrazit poslední příspěvek
    26 kvě 2023 09:49
  • Ilustrator 2020 - problém textu v křivce Příloha(y)
    od showpayne » 13 srp 2023 17:50 » v Design a grafické editory
    4
    1922
    od Grander Zobrazit poslední příspěvek
    14 srp 2023 14:44
  • Převod DVD do mkv, avi...
    od petrmet » 24 lis 2023 14:12 » v Multimédia (filmy, hudba, CDs/DVDs)
    23
    4747
    od petr22 Zobrazit poslední příspěvek
    25 lis 2023 19:59

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů