[VB.NET] Zeile aus Datei auslesen und löschen

[PCFX]

Hi,
ich möchte eine Favouritenliste erstellen. Wenn ich eine Datei hinzufüge, wird der Dateipfad in eine .txt geschrieben und der Dateiname als Listbox1.Item.Add(...). Wenn ich diesen nun entfernen will dachte ich, ich lasse den Namen des Eintrages mit "IndexOf" in der .txt suchen. Aber wie kann ich diese Zeile jetzt komplett aus der .txt löschen, damit beim Einlesen kein leerer Eintrag gemacht wird? Also nicht:

C:\123.mp3
C:\456.mp3

C:\789.mp3

Die Leerzeile soll es nicht geben.

[krusty]

ufff also ich würde es so machen (gibt sicherlich bessere methoden)
dim alle_titel as string = io.filesystem.readalltext("C:\Playerlist.txt")
dim Zeilenarray() as string = alle_titel.split(vbCrLf)
nun hast du in Zeilenarray(0) die erste zeile, in Zeilenarray(1) die zweite zeile.

Wenn du jedoch den namen des Liedes hast, geht das ganz einfach. zB
dim meine_playerlist as string = io.filesystem.readalltext("C:\Playerlist.txt").rep lace("Love is gone.mp3","")
Du ersetzt zB den Titel Love is gone durch NICHTS.
dann müsstest du die überatbeitete Textdatei wieder speichern lassen.

Uf sind bestimmte ne menge fehler drinne, aber hoffe es hilft dir

[LeadOr]

mach indexof(Controlchars.crlf & "deinem text")
und dann sollte er ja mit dem löschen die zeile drüber anfangen.

[PCFX]

Versteh ich nicht ganz..
Also ich habe eine Listbox:

123.mp3
456.mp3

Dann habe ich eine *.txt aus der ausgelesen und in die Listbox eingefügt wird:

C:\User\Musik\123.mp3
C:\User\Musik\456.mp3

Wenn ich nun im Programm den Eintrag "456.mp3" markiere und aus der Listbox löschen will, soll auch C:\User\Musik\456.mp3 aus der *.txt gelöscht werden, damit dieser Wert beim nächsten mal nichtmehr ausgelesen wird.
Sollte nun verständlicher sein

[inout]

Suchst Du Sowas in der Art?

    Private Function ExtractFileNameFromPath(ByVal FilePath As String) As String
        Return FilePath.Substring(FilePath.LastIndexOf("\") + 1)
    End Function

    Private Sub DeleteFileNameFromFile(ByVal FilePath As String, ByVal FileName As String)
        Dim Lines As New List(Of String)
        Dim Line As String
        Dim sr As New System.IO.StreamReader(FilePath)
        While Not sr.EndOfStream
            Line = sr.ReadLine
            If ExtractFileNameFromPath(Line) <> FileName Then
                Lines.Add(Line)
            End If
        End While
        sr.Close()
        sr.Dispose()
        Dim sw As New System.IO.StreamWriter(FilePath)
        For Each Line In Lines
            sw.WriteLine(Line)
        Next
        sw.Close()
        sw.Dispose()
    End Sub

Aufruf:

DeleteFileNameFromFile("c:\test.txt", "blub.txt")

//kürzer

    Private Sub DeleteFileNameFromFile1(ByVal FilePath As String, ByVal FileName As String)
        Dim Lines() As String = IO.File.ReadAllLines(FilePath)
        Dim sw As New System.IO.StreamWriter(FilePath)
        For Each Line In Lines
            If ExtractFileNameFromPath(Line) <> FileName Then
                sw.WriteLine(Line)
            End If
        Next
        sw.Close()
        sw.Dispose()
    End Sub