Rubrik: Variablen/Strings | VB-Versionen: VB.NET | 05.11.07 |
Nicht erlaubte Zeichen aus Dateinamen entfernen (.NET) Mit Hilfe dieser Funktion lassen sich alle nicht zulässigen Zeichen aus Dateinamen entfernen und durch ein frei bestimmbares Zeichen ersetzen. | ||
Autor: Dieter Otter | Bewertung: | Views: 27.487 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Beim dynamischen Generieren von Dateinamen sollten alle vom System nicht zulässigen Zeichen autom. ausgefiltert werden. Nachfolgende Funktion erwartet den Dateinamen als Parameter und ersetzt alle nicht zulässigen Zeichen durch Einsatz der RegularExpressions-Klasse mit dem im 2. Parameter angegebenen Ersatzzeichen.
''' <summary> ''' Ersetzt alle nicht zulässigen Zeichen im angegebenen Dateinamen ''' </summary> ''' <param name="sFilename">Dateiname ohne Pfadangabe</param> ''' <param name="sChar">Ersatzzeichen für alle unzulässigen Zeichen ''' im Dateinamen</param> Public Function CleanFilename(ByVal sFilename As String, _ Optional ByVal sChar As String = "") As String ' alle nicht zulässigen Zeichen ersetzen Return System.Text.RegularExpressions.Regex.Replace( _ sFilename, "[\\/:?*^""<>|]", sChar) End Function
Aufrufbeispiel:
Dateiname wird in einer TextBox eingegeben. Alle unzulässigen Zeichen durch "_" ersetzen.
Dim sFile As String sFile = CleanFilename(TextBox1.Text, "_")