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