Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Konverze diakritiky - její odstranění |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 10.1.2003
| Publikováno: 10.1.2003
| Čtenářů: 7013
| Unikátních: 6603
|
Někdy se můžete dostat do situace, kdy máte nějaký text v češtině a potřebujete z něj dostat text bez diakritických znamének. Kdo dostal někdy E-mail s rozrušenou diakritikou, ví, o čem mluvím.
Jak to řešit?
Příklad:
Option Explicit
Const czText As String = & _
"Tři šílené krávy ťal ŘEZNÍK tak, že šíleně bučely."
Function RemoveDiacriticMarks(strMy) As String
Dim cs, us, retval
cs = "áéěíóúůýžščřďťňŽŠČŘĎŤŇÁÉĚÍÓÚŮÝ"
us = "aeeiouuyzscrdtnZSCRDTNAEEIOUUY"
Dim l, i, s, pos
l = Len(strMy)
For i = 1 To l
s = Mid$(strMy, i, 1)
pos = InStr(1, cs, s)
If pos Then
retval = retval & Mid$(us, pos, 1)
Else
retval = retval & s
End If
Next i
RemoveDiacriticMarks = retval
End Function
Private Sub Form_Click()
Print "Výchozí "; vbNewLine; czText
Print
Print "Cílový "; vbNewLine; RemoveDiacriticMarks(czText)
End Sub
Tímto způsobem můžeme provádět i konverze mezi znakovými sadami.
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu