[vb] problem bei textdateien

[bammes]

PHP Code:

Dim fs As FileStream = New FileStream(Directory.GetCurrentDirectory() & "\farmdoerfer.txt", FileMode.Open)
        Dim sr As StreamReader = New StreamReader(fs)
        Dim zeile As String = ""
        Dim x As String = search1.search(lstfarm.SelectedItem, "\((\d+)\|", 1)
        Dim y As String = search1.search(lstfarm.SelectedItem, "\|(\d+)\)", 1)
        Dim name As String = search1.search(lstfarm.SelectedItem, "([a-zA-Z0-9]+) \(", 1)
        Do Until sr.Peek

            If sr.ReadLine = "{x=" & x & "y=" & y & "name=" & name & "}" Then
            Else
                zeile &= sr.ReadLine
            End If
            Dim sw As StreamWriter = New StreamWriter(fs)
            sw.WriteLine(zeile)
            sw.Close()
        Loop

        sr.Close() 


also ich habe ne listbox.
wenn man eins auswählt und auf löschen klickt soll der code hier ausgeführt werden.

also 1. textdAtei öffnen 2. wichtige strings aus der lstbox rausfischen* 3. testen ob der string übereinstimmt wenn nicht in die wariable zeile speichern. (also wird alles gespeichert außer der string der gefunden wurde.)
4.zeile in txtdatei speichern.

*die function search is einfach ne suchfunction mit regex die ich gemacht habe.

falls evtl jmd diese function anschauen will hier is sie:

PHP Code:

    Function search(ByVal input As String, ByVal pattern As String, ByVal group As Integer) As String
        Dim ma As Match = Regex.Match(input, pattern)
        search = ma.Groups(group).Value.ToString
    End Function 


hier ist als beispiel ein ausschnitt der textdatei:

{x=123y=12312name=cvdfgdfgdfgdfhdfhdfh}
{x=45345y=53453name=xcvbxbvxcxcvxcvxcvxc}
{x=43534y=4353name=}
{x=43534y=4353name=}

und hier ein auschnitt , wies in der lstbox angezeigt wird:

cvdfgdfgdfgdfhdfhdfh (123|12312)

also es wird wenn ich try versuche kein fehler angezeigt.

es wird allerdings nichts gelöscht. also wird alles wieder gespeichert. auch die ausgewählte stelle.

wisst ihr wisos net geht?