'Einlesen
        Dim SR As New System.IO.StreamReader("D:\text.txt")
        Dim zeilen As New List(Of String)
        Dim zeile As String
 
        While Not SR.EndOfStream
            zeile = SR.ReadLine
            If zeile = "Zeile e" Then zeile = "Zeile 3"
            zeilen.Add(zeile)
        End While
        SR.Close()
 
        'Speichern
        Dim SW As New System.IO.StreamWriter("d:\text.txt")
 
        For Each zeile In zeilen
            SW.WriteLine(zeile)
        Next
        SW.Close()

Gru?

Silver