Option Explicit
Public Function
Sonderzeichen_entfernen(ByVal sText As String) As String
'----------< Sonderzeichen_entfernen() >--------------
sText = Replace(sText, "/", " ") '*frontslash entfernen
sText = Replace(sText, "\", " ") '*Korrektur
sText = Replace(sText, ":", " ") '*Korrektur
sText = Replace(sText, ".", " ") '*Korrektur
sText = Replace(sText, ",", " ") '*Korrektur
sText = Replace(sText, ";", " ") '*Korrektur
sText = Replace(sText, "*", " ") '*Korrektur
sText = Replace(sText, "?", " ") '*Korrektur
sText = Replace(sText, "{", " ") '*Korrektur
sText = Replace(sText, "}", " ") '*Korrektur
sText = Replace(sText, "[", " ") '*Korrektur
sText = Replace(sText, "]", " ") '*Korrektur
sText = Replace(sText, "$", " ") '*Korrektur
sText = Replace(sText, """", " ") '*Korrektur
sText = Replace(sText, "'", " ") '*Korrektur
sText = Replace(sText, "!", " ") '*Korrektur
sText = Replace(sText, "°", " ") '*Korrektur
sText = Replace(sText, "*", " ") '*Korrektur
sText = Replace(sText, "#", " ") '*Korrektur
sText = Replace(sText, "~", " ") '*Korrektur
sText = Replace(sText, "=", " ") '*Korrektur
sText = Replace(sText, ">", " ") '*Korrektur
sText = Replace(sText, "<", " ") '*Korrektur
sText = Replace(sText, "|", " ") '*Korrektur
'< Ausgabe >
Sonderzeichen_entfernen = sText
'</ Ausgabe >
'----------< Sonderzeichen_entfernen() >--------------
End Function
|