| StrConv, Replace |
|
|
| ...für einheitliche Gestaltung z.B. von Dateinamen (Wortanfang gross, Sonderzeichen entfernen...) |
|
| Function ChangeString(ByRef SV As String) |
| Dim newStr$, Laenge& |
| newStr = SV |
| 'Sonderzeichen entfernen |
| newStr = Replace(newStr, ".", " ") |
| newStr = Replace(newStr, "_", " ") |
| newStr = Replace(newStr, "[", " ") |
| newStr = Replace(newStr, "]", " ") |
| newStr = Replace(newStr, "(", " ") |
| newStr = Replace(newStr, ")", " ") |
| newStr = Replace(newStr, "+", " ") |
| newStr = Replace(newStr, "!", " ") |
| newStr = Replace(newStr, "§", " ") |
| newStr = Replace(newStr, "%", " ") |
| newStr = Replace(newStr, "$", " ") |
| newStr = Replace(newStr, "~", " ") |
| newStr = Replace(newStr, "=", " ") |
| newStr = Replace(newStr, "|", " ") |
| newStr = Replace(newStr, "?", " ") |
| newStr = Replace(newStr, "#", " ") |
| newStr = Replace(newStr, ",", " ") |
| newStr = Replace(newStr, "à", "a") |
| newStr = Replace(newStr, "á", "a") |
| newStr = Replace(newStr, "é", "e") |
| newStr = Replace(newStr, "è", "e") |
| newStr = Replace(newStr, "ì", "i") |
| newStr = Replace(newStr, "í", "i") |
| newStr = Replace(newStr, "ó", "o") |
| newStr = Replace(newStr, "ò", "o") |
| newStr = Replace(newStr, "ú", "u") |
| newStr = Replace(newStr, "ù", "u") |
| newStr = Replace(newStr, "û", "u") |
|
| 'Doppelte Punkte entfernen |
| newStr = Replace(newStr, "..", ".") |
| 'Dreifache Leerfelder entfernen |
| newStr = Replace(newStr, " ", " ") |
| 'Doppelte Leerfelder entfernen |
| newStr = Replace(newStr, " ", " ") |
| 'Leerfeld vor Punkt entfernen |
| newStr = Replace(newStr, " .", ".") |
| 'Leerfeld nach Punkt entfernen |
| newStr = Replace(newStr, ". ", ".") |
| 'Falsche Hochkommas |
| newStr = Replace(newStr, "´", "'") |
| newStr = Replace(newStr, "`", "'") |
|
| 'Ist links ein Leerzeichen? |
| Laenge = Len(newStr) |
| If Left$(newStr, 1) = " " Then newStr = Right$(newStr, Laenge - 1) |
| 'Ist rechts ein Leerzeichen? |
| Laenge = Len(newStr) |
| If Right$(newStr, 1) = " " Then newStr = Left$(newStr, Laenge - 1) |
|
| 'ersten Buchstaben von jedem Wort groß schreiben |
| newStr = BigChar(newStr) |
| |
| SV = newStr |
| End Function |
|
| Function BigChar(newStr As String) As String |
| BigChar = StrConv(newStr, vbProperCase) |
| End Function |
|
zurück