Hallo zusammen,
um Daten im UTF-8 Format weitergeben zu können, muss ich die vorkommenden Umlaute
durch den entsprechenden Hex-Wert ersetzten. Um das zu erreichen über gebe ich den
jeweiligen Text der nachstehenden Funktion. Leider funktioniert diese aber nicht.
So wird z.B. das "ä" im text nicht durch den Hex-Wert &hC3A4 ersetzt. Im Test steht
anschliessend einfach "&hC3A4" - jedoch nicht als Hex-Wert.
Kann mir jewmand sage, was ich hier falsch mache ?
Vielen Dank und Gruss
Rainer
Public Function UmlauteErsetzen(s As String) As String
s = Replace(s, "Ä", "&hC384", , , vbBinaryCompare)
s = Replace(s, "Ö", "&hC396", , , vbBinaryCompare)
s = Replace(s, "Ü", "&hC39c", , , vbBinaryCompare)
s = Replace(s, "ä", "&hC3A4", , , vbBinaryCompare)
s = Replace(s, "ö", "&hC3B6", , , vbBinaryCompare)
s = Replace(s, "ü", "&hC3BC", , , vbBinaryCompare)
s = Replace(s, "À", "&hC380", , , vbBinaryCompare)
s = Replace(s, "Â", "&hC382", , , vbBinaryCompare)
s = Replace(s, "Ã", "&hC383", , , vbBinaryCompare)
s = Replace(s, "È", "&hC388", , , vbBinaryCompare)
s = Replace(s, "É", "&hC389", , , vbBinaryCompare)
s = Replace(s, "Ê", "&hC38a", , , vbBinaryCompare)
s = Replace(s, "Ë", "&hC38b", , , vbBinaryCompare)
s = Replace(s, "Ò", "&hC392", , , vbBinaryCompare)
s = Replace(s, "Ó", "&hC393", , , vbBinaryCompare)
s = Replace(s, "Ô", "&hC394", , , vbBinaryCompare)
s = Replace(s, "Õ", "&hC395", , , vbBinaryCompare)
s = Replace(s, "Ù", "&hC399", , , vbBinaryCompare)
s = Replace(s, "Ú", "&hC39a", , , vbBinaryCompare)
s = Replace(s, "Û", "&hC39b", , , vbBinaryCompare)
s = Replace(s, "à", "&hC3a0", , , vbBinaryCompare)
s = Replace(s, "ã", "&hC3a3", , , vbBinaryCompare)
s = Replace(s, "è", "&hC3a8", , , vbBinaryCompare)
s = Replace(s, "é", "&hC3a9", , , vbBinaryCompare)
s = Replace(s, "ê", "&hC3aa", , , vbBinaryCompare)
s = Replace(s, "ì", "&hC3ac", , , vbBinaryCompare)
s = Replace(s, "í", "&hC3ad", , , vbBinaryCompare)
s = Replace(s, "î", "&hC3ae", , , vbBinaryCompare)
s = Replace(s, "ò", "&hC3b2", , , vbBinaryCompare)
s = Replace(s, "ó", "&hC3b3", , , vbBinaryCompare)
s = Replace(s, "ô", "&hC3b4", , , vbBinaryCompare)
s = Replace(s, "õ", "&hC3b5", , , vbBinaryCompare)
s = Replace(s, "ù", "&hC3b9", , , vbBinaryCompare)
s = Replace(s, "ú", "&hC3ba", , , vbBinaryCompare)
s = Replace(s, "û", "&hC3bb", , , vbBinaryCompare)
s = Replace(s, "ß", "&hDF", , , vbBinaryCompare)
UmlauteErsetzen = s
End Function |