'Sonderzeichen aus Ordnernamen oder Dateinamen entfernen .

  • VB.NET
  • .NET (FX) 4.0

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von TVX.

    'Sonderzeichen aus Ordnernamen oder Dateinamen entfernen .

    Hallo miteinander . ^^

    Folgende Frage :
    Ich wollte mir ein kleines Tool machen um Sonderzeichen aus Ordnernamen - oder - Dateinamen zu entfernen .
    So weit bin ich bisher und wollte mal fragen ob ich's so oder besser anders machen sollte :/

    Muss den Code leider in schwarz abbilden - da er durch eine fehlerhafte Darstellung 2/3 in rot zeigen würde :(
    Hab ihn etwas gestreckt für bessere Übersicht :/

    Lg ^^

    Spoiler anzeigen

    Quellcode

    1. 'Sonderzeichen aus Ordnernamen oder Dateinamen entfernen .
    3. Option Strict On
    4. Public Class Form1
    6. 'Speicherdatei für Eingabeboxen
    8. Dim Configuration_Save_Pfad As String = "Sonderzeichen_Cleaner_Configuration_Save.txt"
    10. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. 'Form immer im Fordergrund
    14. TopMost = True
    16. 'Prüfen ob Datei schon Exsistiert
    18. If System.IO.File.Exists(Configuration_Save_Pfad) Then
    20. 'Wenn ja gespeicherte Zeile lesen und in die passenden TextBoxen schreiben
    22. Using sr As New IO.StreamReader(Configuration_Save_Pfad)
    23. Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text = sr.ReadLine()
    24. Sonderzeichenersatz_für_Ordnernamen_TextBox.Text = sr.ReadLine()
    25. Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text = sr.ReadLine()
    26. Sonderzeichenersatz_für_Dateinamen_TextBox.Text = sr.ReadLine()
    27. sr.Close()
    28. End Using
    30. End If
    32. End Sub
    34. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    36. 'TextBoxen beim schliessen der Form in Datei speichern
    38. Using sw As New IO.StreamWriter(Configuration_Save_Pfad)
    39. sw.WriteLine(Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text)
    40. sw.WriteLine(Sonderzeichenersatz_für_Ordnernamen_TextBox.Text)
    41. sw.WriteLine(Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text)
    42. sw.WriteLine(Sonderzeichenersatz_für_Dateinamen_TextBox.Text)
    43. sw.Close()
    44. End Using
    46. End Sub
    48. 'Sonderzeichen aus Ordnernamen entfernen
    50. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    52. 'Button Sound
    54. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    56. 'Prüfen ob benötigte Eingabeboxen nicht leer sind
    58. If Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text = "" Or Sonderzeichenersatz_für_Ordnernamen_TextBox.Text = "" Then
    59. MsgBox("Die Felder - ( Verbotene Zeichen - oder - Ersetzen mit ) - sind nicht richtig ausgefüllt !", MsgBoxStyle.Critical)
    60. Else
    62. 'Wenn nicht leer = OrdnerBrowser Go
    64. If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
    66. 'Button Text ändern
    68. Button1.Text = "Bitte warten..."
    70. 'Alle Ordner in Pfad durchlaufen
    72. For Each Ordner In My.Computer.FileSystem.GetDirectories(FolderBrowserDialog1.SelectedPath)
    74. Try 'Ordnername aus Pfad extrahieren
    76. Dim Ordnername As String = Ordner.Substring(Ordner.LastIndexOf("\") + 1)
    78. 'Prüfen ob der Ordnername verbotene Zeichen enthällt
    80. If System.Text.RegularExpressions.Regex.IsMatch(Ordnername, "[" & Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text & "]") Then
    82. 'Wenn ja - Function Clean_Ordnername - aufrufen, Sonderzeichen entfernen und Ordner mit Renam umbenennen
    84. My.Computer.FileSystem.RenameDirectory(Ordner, Clean_Ordnername(Ordnername, Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text, Sonderzeichenersatz_für_Ordnernamen_TextBox.Text))
    85. End If
    87. Catch ex As Exception 'Fehler Ausgabe
    88. MsgBox(ex.Message.ToString)
    89. End Try
    90. Next
    92. 'Wenn fertig : Button Text ändern auf ausgangs Text + Binnnngggg
    94. Button1.Text = "Alle Ordnernamen in einem Ordner säubern"
    95. My.Computer.Audio.Play(My.Resources.bell, AudioPlayMode.Background)
    97. End If
    98. End If
    100. End Sub
    102. 'Sonderzeichen aus Dateinamen entfernen
    104. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    106. 'Button Sound
    108. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    110. 'Prüfen ob benötigte Eingabeboxen nicht leer sind
    112. If Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text = "" Or Sonderzeichenersatz_für_Dateinamen_TextBox.Text = "" Then
    113. MsgBox("Die Felder - ( Verbotene Zeichen - oder - Ersetzen mit ) - sind nicht richtig ausgefüllt !", MsgBoxStyle.Critical)
    114. Else
    116. 'Wenn nicht leer = OrdnerBrowser Go
    118. If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
    120. 'Button Text ändern
    122. Button2.Text = "Bitte warten..."
    124. 'Alle Dateien in Pfad durchlaufen
    126. For Each Dateien In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
    128. Try
    130. 'Dateiname aus Pfad extrahieren
    132. Dim Dateiname As String = IO.Path.GetFileName(Dateien)
    134. 'Prüfen ob der Dateiname verbotene Zeichen enthällt
    136. If System.Text.RegularExpressions.Regex.IsMatch(Dateiname, "[" & Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text & "]") Then
    138. 'Wenn ja - Function Clean_Dateiname - aufrufen, Sonderzeichen entfernen und Datei mit Renam umbenennen
    140. My.Computer.FileSystem.RenameFile(Dateien, Clean_Dateiname(Dateiname, Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text, Sonderzeichenersatz_für_Dateinamen_TextBox.Text))
    141. End If
    143. Catch ex As Exception 'Fehler Ausgabe
    144. MsgBox(ex.Message.ToString)
    145. End Try
    147. Next
    149. 'Wenn fertig : Button Text ändern auf ausgangs Text + Binnnngggg
    151. Button2.Text = "Alle Dateinamen in einem Ordner säubern"
    152. My.Computer.Audio.Play(My.Resources.bell, AudioPlayMode.Background)
    154. End If
    155. End If
    157. End Sub
    159. 'Sonderzeichen aus Ordnernamen entfernen Function
    161. Public Function Clean_Ordnername(ByVal Dateiname As String, ByVal Verbotene_Zeichen As String, ByVal Ersatzzeichen As String) As String
    163. Dim s As String = ""
    165. If CheckBox2.Checked = False Then
    167. 'Mehrere Sonderzeichen hintereinander = einen ersatzzeichen !
    169. s = System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]", Ersatzzeichen)
    171. Else
    173. 'Mehrere Sonderzeichen hintereinander = mehrere ersatzzeichen !
    175. s = System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]+", Ersatzzeichen)
    177. End If
    179. Return s
    181. End Function
    183. 'Sonderzeichen aus Dateinamen entfernen Function
    185. Public Function Clean_Dateiname(ByVal Dateiname As String, ByVal Verbotene_Zeichen As String, ByVal Ersatzzeichen As String) As String
    187. Dim s As String = ""
    189. If CheckBox2.Checked = False Then
    191. 'Mehrere Sonderzeichen hintereinander = einen ersatzzeichen !
    193. s = System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]", Ersatzzeichen)
    195. Else
    197. 'Mehrere Sonderzeichen hintereinander = mehrere ersatzzeichen !
    199. s = System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]+", Ersatzzeichen)
    201. End If
    203. Return s
    205. End Function
    207. 'Eingabeboxen leeren
    209. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    210. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    211. Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Clear()
    212. Sonderzeichenersatz_für_Ordnernamen_TextBox.Clear()
    213. End Sub
    215. 'Eingabeboxen leeren
    217. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    218. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    219. Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Clear()
    220. Sonderzeichenersatz_für_Dateinamen_TextBox.Clear()
    221. End Sub
    223. 'Sound CheckBox1
    225. Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    226. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    227. End Sub
    229. 'Sound CheckBox2
    231. Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
    232. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    233. End Sub
    234. End Class


    Und einmal in Farbe :(

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. 'Sonderzeichen aus Ordnernamen oder Dateinamen entfernen .
    3. Option Strict On
    4. Public Class Form1
    6. 'Speicherdatei für Eingabeboxen
    8. Dim Configuration_Save_Pfad As String = "Sonderzeichen_Cleaner_Configuration_Save.txt"
    10. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. 'Form immer im Fordergrund
    14. TopMost = True
    16. 'Prüfen ob Datei schon Exsistiert
    18. If System.IO.File.Exists(Configuration_Save_Pfad) Then
    20. 'Wenn ja gespeicherte Zeile lesen und in die passenden TextBoxen schreiben
    22. Using sr As New IO.StreamReader(Configuration_Save_Pfad)
    23. Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text = sr.ReadLine()
    24. Sonderzeichenersatz_für_Ordnernamen_TextBox.Text = sr.ReadLine()
    25. Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text = sr.ReadLine()
    26. Sonderzeichenersatz_für_Dateinamen_TextBox.Text = sr.ReadLine()
    27. sr.Close()
    28. End Using
    30. End If
    32. End Sub
    33. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    35. 'TextBoxen beim schliessen der Form in Datei speichern
    37. Using sw As New IO.StreamWriter(Configuration_Save_Pfad)
    38. sw.WriteLine(Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text)
    39. sw.WriteLine(Sonderzeichenersatz_für_Ordnernamen_TextBox.Text)
    40. sw.WriteLine(Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text)
    41. sw.WriteLine(Sonderzeichenersatz_für_Dateinamen_TextBox.Text)
    42. sw.Close()
    43. End Using
    45. End Sub
    47. 'Sonderzeichen aus Ordnernamen entfernen
    49. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    51. 'Button Sound
    53. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    55. 'Prüfen ob benötigte Eingabeboxen nicht leer sind
    57. If Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text = "" Or Sonderzeichenersatz_für_Ordnernamen_TextBox.Text = "" Then
    58. MsgBox("Die Felder - ( Verbotene Zeichen - oder - Ersetzen mit ) - sind nicht richtig ausgefüllt !", MsgBoxStyle.Critical)
    59. Else
    61. 'Wenn nicht leer = OrdnerBrowser Go
    63. If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
    65. 'Button Text ändern
    67. Button1.Text = "Bitte warten..."
    69. 'Alle Ordner in Pfad durchlaufen
    71. For Each Ordner In My.Computer.FileSystem.GetDirectories(FolderBrowserDialog1.SelectedPath)
    73. Try 'Ordnername aus Pfad extrahieren
    75. Dim Ordnername As String = Ordner.Substring(Ordner.LastIndexOf("\") + 1)
    77. 'Prüfen ob der Ordnername verbotene Zeichen enthällt
    79. If System.Text.RegularExpressions.Regex.IsMatch(Ordnername, "[" & Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text & "]") Then
    81. 'Wenn ja - Function Clean_Ordnername - aufrufen, Sonderzeichen entfernen und Ordner mit Renam umbenennen
    83. My.Computer.FileSystem.RenameDirectory(Ordner, Clean_Ordnername(Ordnername, Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text, Sonderzeichenersatz_für_Ordnernamen_TextBox.Text))
    84. End If
    86. Catch ex As Exception 'Fehler Ausgabe
    87. MsgBox(ex.Message.ToString)
    88. End Try
    89. Next
    91. 'Wenn fertig : Button Text ändern auf ausgangs Text + Binnnngggg
    93. Button1.Text = "Alle Ordnernamen in einem Ordner säubern"
    94. My.Computer.Audio.Play(My.Resources.bell, AudioPlayMode.Background)
    96. End If
    97. End If
    99. End Sub
    101. 'Sonderzeichen aus Dateinamen entfernen
    103. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    105. 'Button Sound
    107. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    109. 'Prüfen ob benötigte Eingabeboxen nicht leer sind
    111. If Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text = "" Or Sonderzeichenersatz_für_Dateinamen_TextBox.Text = "" Then
    112. MsgBox("Die Felder - ( Verbotene Zeichen - oder - Ersetzen mit ) - sind nicht richtig ausgefüllt !", MsgBoxStyle.Critical)
    113. Else
    115. 'Wenn nicht leer = OrdnerBrowser Go
    117. If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
    119. 'Button Text ändern
    121. Button2.Text = "Bitte warten..."
    123. 'Alle Dateien in Pfad durchlaufen
    125. For Each Dateien In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
    127. Try
    129. 'Dateiname aus Pfad extrahieren
    131. Dim Dateiname As String = IO.Path.GetFileName(Dateien)
    133. 'Prüfen ob der Dateiname verbotene Zeichen enthällt
    135. If System.Text.RegularExpressions.Regex.IsMatch(Dateiname, "[" & Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text & "]") Then
    137. 'Wenn ja - Function Clean_Dateiname - aufrufen, Sonderzeichen entfernen und Datei mit Renam umbenennen
    139. My.Computer.FileSystem.RenameFile(Dateien, Clean_Dateiname(Dateiname, Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text, Sonderzeichenersatz_für_Dateinamen_TextBox.Text))
    140. End If
    142. Catch ex As Exception 'Fehler Ausgabe
    143. MsgBox(ex.Message.ToString)
    144. End Try
    146. Next
    148. 'Wenn fertig : Button Text ändern auf ausgangs Text + Binnnngggg
    150. Button2.Text = "Alle Dateinamen in einem Ordner säubern"
    151. My.Computer.Audio.Play(My.Resources.bell, AudioPlayMode.Background)
    153. End If
    154. End If
    156. End Sub
    158. 'Sonderzeichen aus Ordnernamen entfernen Function
    160. Public Function Clean_Ordnername(ByVal Dateiname As String, ByVal Verbotene_Zeichen As String, ByVal Ersatzzeichen As String) As String
    162. Dim s As String = ""
    164. If CheckBox2.Checked = False Then
    166. 'Mehrere Sonderzeichen hintereinander = einen ersatzzeichen !
    168. s = System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]", Ersatzzeichen)
    170. Else
    172. 'Mehrere Sonderzeichen hintereinander = mehrere ersatzzeichen !
    174. s = System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]+", Ersatzzeichen)
    176. End If
    178. Return s
    180. End Function
    182. 'Sonderzeichen aus Dateinamen entfernen Function
    184. Public Function Clean_Dateiname(ByVal Dateiname As String, ByVal Verbotene_Zeichen As String, ByVal Ersatzzeichen As String) As String
    186. Dim s As String = ""
    188. If CheckBox2.Checked = False Then
    190. 'Mehrere Sonderzeichen hintereinander = einen ersatzzeichen !
    192. s = System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]", Ersatzzeichen)
    194. Else
    196. 'Mehrere Sonderzeichen hintereinander = mehrere ersatzzeichen !
    198. s = System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]+", Ersatzzeichen)
    200. End If
    202. Return s
    204. End Function
    206. 'Eingabeboxen leeren
    208. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    209. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    210. Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Clear()
    211. Sonderzeichenersatz_für_Ordnernamen_TextBox.Clear()
    212. End Sub
    214. 'Eingabeboxen leeren
    216. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    217. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    218. Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Clear()
    219. Sonderzeichenersatz_für_Dateinamen_TextBox.Clear()
    220. End Sub
    222. 'Sound CheckBox1
    224. Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    225. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    226. End Sub
    228. 'Sound CheckBox2
    230. Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
    231. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    232. End Sub
    233. End Class​

    Jo eigentlich gehts hier drum - kurz und bündig .

    VB.NET-Quellcode

    1. Public Function CleanFilename(ByVal sDateiname As String, ByVal Verbotene_Zeichen As String , ByVal Ersatzzeichen As String ) As String
    2. Dim s As String = System.Text.RegularExpressions.Regex.Replace(sFilename, "[" & Verbotene_Zeichen & "]+", Ersatzzeichen)
    3. Return s
    4. End Function


    Aufruf:

    VB.NET-Quellcode

    1. CleanFilename("Ich # könnte***** kotzen das das nicht +++ geht ","# *+"," ")


    So weit so gut - hiermit entferne ich die angegebenen verbotenen Zeichen und ersetze sie mit (( einem )) Ersatzzeichen .Selbst wenn es mehrere hintereinander sind .

    Aber wie tausche ich ohne replace im selben Atemzug - (( Ä Ö Ü ä ö ü )) in (( Ae Ue Oe ae oe ue )) - in der gleichen Funktion ?

    So is es ... :S

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „TVX“ ()

    TVX schrieb:

    noch die Umlaute entfernen
    Dann mach Dir ein Dictionary(Of Char, Char), wo Du die zu ersetzenden und die ersetzenden Zeichen paarst.
    Und dann kannst Du mit einem Replace über alle Keys das ganze fix machen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Es müsste ein Dictionary(Of Char, String), wenn er auch ö durch oe ersetzen können will

    VB.NET-Quellcode

    1. ''' <summary> returnt filename oder einen geeigneteren Dateinamen </summary>
    2. Private Function ProposeFileName(filename As String, replacements As Dictionary(Of Char, String)) As String
    3. Dim pattern = Regex.Escape(String.Concat(replacements.Keys))
    4. Return Regex.Replace(filename, "[" & pattern & "]", Function(mt) replacements(mt.Value(0)))
    5. End Function

    Lol - da habt ihr mir mal wieder was neues an den Kopf geschmissen :D

    Also soll ich ,wenn ich das richtig verstehe ?

    VB.NET-Quellcode

    1. replacements As Dictionary(Of Char, String)

    füllen !


    Ok so weit so lustig ,wenn ich das richtig verstanden habe . :D
    Nun soll das aber unter Umständen variabel bleiben - wenn es geht .

    Muss mich aber erst schlau mache über (( Dictionary(Of Char, String) ))

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „TVX“ ()

    TVX schrieb:

    variabel bleiben
    Du kannst doch das Dictionary füllen womit immer Du willst. Dieses sorgt nur für die richtige Zuordnung der zu ersetzenden mit den zu verwendenden Zeichen / Strings.
    Das könntest Du über ein Menü / Dialog / Settings anbieten, speichern und laden.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Nur der Vollständigkeit halber, hier die Funktion:

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Entfernt illegale Zeichen für Dateiname
    3. ''' </summary>
    4. ''' <param name="source">Source String</param>
    5. ''' <returns></returns>
    6. ''' <remarks></remarks>
    7. Private Function ClearInvalidFileNameChars(ByVal source As String) As String
    8. Return New String(source.Where(Function(f) Not IO.Path.GetInvalidFileNameChars.Contains(f)).ToArray)
    9. End Function


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    So komme grad vom laufen , war gesundheitlich etwas angeschlagen muss mich bewegen . :(

    Ok fichz aber das reicht leider nicht ganz aus aus .

    Es geht darum das ich meine Fritzbox - Fritznas als Mediaserver verwende (( FÜR PRIVATE ZWECKE )) für mich
    und meinen besten freund den ich schon seit 28 Jahen kenne - Grundschule !

    Nun hatte ich mir en kleinen ListboxBrowser gemacht der nach einigen Überlegungen nun sehr gut funktioniert
    und nutze den um mir M3U Playlisten von Filmen oder Musik für den VLC Player zu erstellen .

    Seit dem gibt's Doctor Who am Band u.s.w...

    :!: Nun hat die Fritzbox + Vlc so wie andere Netzspeichergeräte einige Bedingungen die zu beachten sind ! :!:

    Umlaute - Leerzeichen - Sonderzeichen und die üblichen Regeln für solche Adressen :!:

    Und da ich nicht auf die Idee kommen würde meine mp3 Sammlung von Hand zu Putzen hatte ich das zuerst mit - replace - gemacht .
    das war aber nicht sehr schön zudem sollten auch Zeichen die sich mehrmals hintereinander wiederholen mit einem Ersatz getauscht werden .

    Grundsätzlich tausche ich aber immer bei Ordnernamen die Leerzeichen mit unterem Trennstrich aus( _ ).
    Und bei Dateinamen werden die Leerzeichen zu Punkten( . ) .

    LG Andre.

    Also momentan hab ich's jetzt so , aber das mit (( Dictionary(Of Char, String)) kratzt mich doch zimlich :/

    Und der Code neigt auch wieder zum rot stich ;(

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    3. 'Speicherdatei für Eingabeboxen
    4. Dim Configuration_Save_Pfad As String = "Sonderzeichen_Cleaner_Configuration_Save.txt"
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. 'Prüfen ob Datei schon Exsistiert
    7. If System.IO.File.Exists(Configuration_Save_Pfad) Then
    8. 'Wenn ja gespeicherte Zeile lesen und in die passenden TextBoxen schreiben
    9. Using sr As New IO.StreamReader(Configuration_Save_Pfad)
    10. Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text = sr.ReadLine()
    11. Sonderzeichenersatz_für_Ordnernamen_TextBox.Text = sr.ReadLine()
    12. Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text = sr.ReadLine()
    13. Sonderzeichenersatz_für_Dateinamen_TextBox.Text = sr.ReadLine()
    14. sr.Close()
    15. End Using
    16. End If
    17. End Sub
    18. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    19. 'TextBoxen beim schliessen der Form in Datei speichern
    20. Using sw As New IO.StreamWriter(Configuration_Save_Pfad)
    21. sw.WriteLine(Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text)
    22. sw.WriteLine(Sonderzeichenersatz_für_Ordnernamen_TextBox.Text)
    23. sw.WriteLine(Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text)
    24. sw.WriteLine(Sonderzeichenersatz_für_Dateinamen_TextBox.Text)
    25. sw.Close()
    26. End Using
    27. End Sub
    29. 'Fehler auflistung was nicht Umbenannt werden konnte
    30. Dim Fehlerliste_Umbenennung As New List(Of String)
    32. 'Alle Ordnernamen auf dieser Ebene säubern
    33. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    35. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    37. Fehlerliste_Umbenennung.Clear()
    39. Using FolderBrowserDialog1 As New FolderBrowserDialog
    41. If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
    43. Button2.Text = "Bitte warten..."
    45. For Each Ordner In My.Computer.FileSystem.GetDirectories(FolderBrowserDialog1.SelectedPath)
    47. Dim Original_Ordnername As String = Ordner.Substring(Ordner.LastIndexOf("\") + 1)
    48. Dim Sauberer_Ordnername As String = Clean_Ordnername(Original_Ordnername, Verbotene_Sonderzeichen_für_Ordnernamen_TextBox.Text, Sonderzeichenersatz_für_Ordnernamen_TextBox.Text)
    50. If Not Original_Ordnername = Sauberer_Ordnername Then
    51. Try
    52. My.Computer.FileSystem.RenameDirectory(Ordner, Sauberer_Ordnername)
    53. Catch ex As Exception
    54. Fehlerliste_Umbenennung.Add(ex.Message.ToString)
    55. End Try
    56. End If
    57. Next
    58. End If
    59. End Using
    61. Button2.Text = "Alle Ordnernamen auf der gewählten Ebene säubern"
    62. My.Computer.Audio.Play(My.Resources.bell, AudioPlayMode.Background)
    64. If Not Fehlerliste_Umbenennung.Count = Nothing Then
    65. Dim Fehler_Info As String = ""
    66. For Each Fehler As String In Fehlerliste_Umbenennung
    67. Fehler_Info &= Fehler & vbNewLine & vbNewLine
    68. Next
    69. MsgBox("ACHTUNG :" & vbNewLine & "Die hier aufgelisteten Dateien konnten nicht umbenannt werden !" & vbNewLine & vbNewLine & Fehler_Info, MsgBoxStyle.Information, "ACHTUNG !")
    70. End If
    72. End Sub
    74. 'Alle Dateinamen auf dieser Ebene säubern
    75. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    77. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    79. Using FolderBrowserDialog1 As New FolderBrowserDialog
    81. If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
    83. Button4.Text = "Bitte warten..."
    85. For Each Dateie In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
    87. Dim Original_Dateiname As String = IO.Path.GetFileName(Dateie)
    88. Dim Sauberer_Dateiname As String = Clean_Dateiname(Original_Dateiname, Verbotene_Sonderzeichen_für_Dateinamen_TextBox.Text, Sonderzeichenersatz_für_Dateinamen_TextBox.Text)
    90. If Not Original_Dateiname = Sauberer_Dateiname AndAlso Not Sauberer_Dateiname = "" Then
    91. Try
    92. My.Computer.FileSystem.RenameFile(Dateie, Sauberer_Dateiname)
    93. Catch ex As Exception
    94. Fehlerliste_Umbenennung.Add(ex.Message.ToString)
    95. End Try
    96. End If
    97. Next
    98. End If
    99. End Using
    101. Button4.Text = "Alle Dateinamen auf der gewählten Ebene säubern"
    102. My.Computer.Audio.Play(My.Resources.bell, AudioPlayMode.Background)
    104. If Not Fehlerliste_Umbenennung.Count = Nothing Then
    105. Dim Fehler_Info As String = ""
    106. For Each Fehler As String In Fehlerliste_Umbenennung
    107. Fehler_Info &= Fehler & vbNewLine & vbNewLine
    108. Next
    109. MsgBox("ACHTUNG :" & vbNewLine & "Die hier aufgelisteten Dateien konnten nicht umbenannt werden !" & vbNewLine & vbNewLine & Fehler_Info, MsgBoxStyle.Information, "ACHTUNG !")
    110. End If
    112. End Sub
    114. Public Function Clean_Ordnername(ByVal Ordnername As String, ByVal Verbotene_Zeichen As String, ByVal Ersatzzeichen As String) As String
    116. If Button1.Text = "Umlaute entfernen - An" Then
    117. Dim toReplace = {{"ä", "ae"}, {"ö", "oe"}, {"ü", "ue"}, {"Ä", "Aa"}, {"Ö", "Oe"}, {"Ü", "Ue"}, {"ß", "ss"}}
    118. For i = 0 To toReplace.GetLength(0) - 1
    119. Ordnername = Ordnername.Replace(toReplace(i, 0), toReplace(i, 1))
    120. Next
    121. End If
    122. If Verbotene_Zeichen = "" Or Ersatzzeichen = "" Then
    123. Return Ordnername
    124. Else
    125. Return System.Text.RegularExpressions.Regex.Replace(Ordnername, "[" & Verbotene_Zeichen & "]+", Ersatzzeichen)
    126. End If
    127. End Function
    130. Public Function Clean_Dateiname(ByVal Dateiname As String, ByVal Verbotene_Zeichen As String, ByVal Ersatzzeichen As String) As String
    131. If Button3.Text = "Umlaute entfernen - An" Then
    132. Dim toReplace = {{"ä", "ae"}, {"ö", "oe"}, {"ü", "ue"}, {"Ä", "Aa"}, {"Ö", "Oe"}, {"Ü", "Ue"}, {"ß", "ss"}}
    133. For i = 0 To toReplace.GetLength(0) - 1
    134. Dateiname = Dateiname.Replace(toReplace(i, 0), toReplace(i, 1))
    135. Next
    136. End If
    137. If Verbotene_Zeichen = "" Or Ersatzzeichen = "" Then
    138. Return Dateiname
    139. Else
    140. Return System.Text.RegularExpressions.Regex.Replace(Dateiname, "[" & Verbotene_Zeichen & "]+", Ersatzzeichen)
    141. End If
    142. End Function
    145. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    146. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    147. If Button1.Text = "Umlaute entfernen - Aus" Then
    148. Button1.Text = "Umlaute entfernen - An"
    149. Else
    150. Button1.Text = "Umlaute entfernen - Aus"
    151. End If
    152. End Sub
    153. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    154. My.Computer.Audio.Play(My.Resources.button, AudioPlayMode.Background)
    155. If Button3.Text = "Umlaute entfernen - Aus" Then
    156. Button3.Text = "Umlaute entfernen - An"
    157. Else
    158. Button3.Text = "Umlaute entfernen - Aus"
    159. End If
    160. End Sub
    161. End Class


    Und noch en Herzlichen Dank an (( ErfinderDesRades )) :*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()

    Sieh' Dir mal bitte die Naming-Guidelines an.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    also bei meim Ansatz würdest du die ös und üs ebenso in der Datei hinterlegen. Dann diese Datei nicht in Textboxen einlesen, sondern halt ein Dictionary(Of Char, String) damit befüllen (Tipp: Dictionary hat eine .Add-Methode)
    Und alles wäre einheitlich, effizient und sauber abgehandelt.

    Dictionary(Of Char, String) - was gibtsn da zu kratzen? Hastes dir mal im ObjectBrowser angeguckt?

    =O Guten Morgen ... =O

    Ok ich lade dann die Zeichen z.B. aus einer txt .

    z.b:

    Ä=[Ae],Ü=[Ue],Ö=[Oe],?=[]+,-=[_]+

    So erhalte ich dann ne Zuordnung + die Möglichkeit sich wiederholende verbotene Zeichen ,
    bei bedarf auf ein Zeichen zu stutzen .

    Und bleib in der selben Schublade :)

    Lg Andre...

    TVX schrieb:

    Ä=[Ae],Ü=[Ue],Ö=[Oe],?=[]+,-=[_]+
    Wenn Du unter Windows arbeitest, gibt es bereits eine Reihe von Zeichen, die das Betriebssystem als Bestandteil von Pfad- und Dateinamen nicht zulässt, die bräuchtest Du gar nicht erst zu berücksichtigen:

    VB.NET-Quellcode

    1. Dim c1() = IO.Path.GetInvalidFileNameChars
    2. Dim c2() = IO.Path.GetInvalidPathChars
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Stimmt - fichz - hatte mir das oben schon demonstriert ,
    gibts dazu ne liste welche Zeichen davon betroffen sind .

    Bei meinem Test war das Ergebnis ernüchternd :

    Eingabe:
    !""`§$%&/()=?`{[]}\ß#'~+*_-.:;,
    Ausgabe:
    !`§$%&()=`{[]}ß#'~+_-.;,

    LG Andre... :)

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ErfinderDesRades schrieb:

    was anneres als Debuggen
    OK, Du gugst auf die Prozeduren und die Properties, ich auf die Inhalte der Variablen.
    Zusammen müsste das ne mächtige Waffe gegen Fehler sein. :thumbsup:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende