Manchmal beinhalten Zeichenketten Zeichen aus anderen Zeichenstzen. Diese knnen mit nachfolgendem Script schnell ersetzt werden.
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