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()
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
und hier ein auschnitt , wies in der lstbox angezeigt wird:Quote:
{x=123y=12312name=cvdfgdfgdfgdfhdfhdfh}
{x=45345y=53453name=xcvbxbvxcxcvxcvxcvxc}
{x=43534y=4353name=}
{x=43534y=4353name=}
also es wird wenn ich try versuche kein fehler angezeigt.Quote:
cvdfgdfgdfgdfhdfhdfh (123|12312)
es wird allerdings nichts gelöscht. also wird alles wieder gespeichert. auch die ausgewählte stelle.
wisst ihr wisos net geht?