Zeichen aus anderen Zeichensätzen erstzen
Manfred Meise 22 November 2005 08:33:49
Function ReplaceChars(Byval sSource As String) As String
Dim vReplace(28) As Variant
Dim vReplacement(28) As Variant
Dim vResult As Variant
vReplace(0) = "Ä"
vReplacement(0) = "Ae"
vReplace(1) = "ä"
vReplacement(1) = "ae"
vReplace(2) = "Ö"
vReplacement(2) = "Oe"
vReplace(3) = "ö"
vReplacement(3) = "oe"
vReplace(4) = "Ü"
vReplacement(4) = "Ue"
vReplace(5) = "ü"
vReplacement(5) = "ue"
vReplace(6) = "ß"
vReplacement(6) = "ss"
vReplace(7) = "Å"
vReplacement(7) = "A"
vReplace(8) = "â"
vReplacement(8) = "a"
vReplace(9) = "á"
vReplacement(9) = "a"
vReplace(10) = "à"
vReplacement(10) = "a"
vReplace(11) = "å"
vReplacement(11) = "a"
vReplace(12) = "É"
vReplacement(12) = "E"
vReplace(13) = "é"
vReplacement(13) = "e"
vReplace(14) = "è"
vReplacement(14) = "e"
vReplace(15) = "ê"
vReplacement(15) = "e"
vReplace(16) = "Ç"
vReplacement(16) = "C"
vReplace(17) = "ç"
vReplacement(17) = "c"
vReplace(18) = "Æ"
vReplacement(18) = "Ae"
vReplace(19) = "æ"
vReplacement(19) = "ae"
vReplace(20) = "ô"
vReplacement(20) = "o"
vReplace(21) = "ò"
vReplacement(21) = "o"
vReplace(22) = "ó"
vReplacement(22) = "o"
vReplace(23) = "û"
vReplacement(23) = "u"
vReplace(24) = "ú"
vReplacement(24) = "u"
vReplace(25) = "ÿ"
vReplacement(25) = "y"
vReplace(26) = "í"
vReplacement(26) = "i"
vReplace(27) = "Ñ"
vReplacement(27) = "N"
vReplace(28) = "ñ"
vReplacement(28) = "n"
vResult = Replace(sSource, vReplace, vReplacement)
ReplaceChars = vResult
End Function
Zielgruppe: Entwickler Kategorien: Stringhandling Diskussion: Kommentare [0]