Datenschutz

 4.x 

Zeichen aus anderen Zeichensätzen erstzen

Manfred Meise  22 November 2005 08:33:49
 
Manchmal beinhalten Zeichenketten Zeichen aus anderen Zeichensätzen. Diese können 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