auxmoney - Geld leihen fr das Studiumauxmoney - Geld leihen fr das Studium

auxmoney - Geld leihen fr den Umzugauxmoney - Geld leihen fr den Umzug

String-Verarbeitung - Bearbeiten von Dateinamen

String-Verarbeitung: Bearbeiten von Dateinamen. 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
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt