Wert in TXTdatei suchen-gefundene Line in Label ausgeben. Verfasst am: 09.02.2011, 12:13
Hallo an Alle,
Ich will ein Textbox1 Wert in einer Textdatei suchen und gefundene Line in Label1 ausgeben.
Diese Code hab ich in Internet gefunden, wie könnte ich es für meine Idee nutzen?
Diese Code sucht einen Wert den ich in eine Textbox eingebe in einer Textdatei und die Zeile mit dem gefundenen Wert wird in einer neue Textdatei gespeichert.
Code:
Dim stream1 As New System.IO.FileStream("C:\Temp\2.txt", IO.FileMode.Open, IO.FileAccess.Read)
Dim reader1 As New System.IO.StreamReader(stream1)
Dim stream2 As New System.IO.FileStream("C:\Temp\3.txt", IO.FileMode.Create, IO.FileAccess.Write)
Dim writer1 As New System.IO.StreamWriter(stream2)
Do Until reader1.EndOfStream = True
Dim zeile As String = reader1.ReadLine
If zeile.Contains(TextBox1.Text) = True Then
writer1.WriteLine(zeile)
reader1.Close()
writer1.Close()
Exit Sub
End If
Loop
reader1.Close()
writer1.Close()
stas_12 Newbie
Anmeldedatum: 09.02.2011 Beiträge: 2
Verfasst am: 09.02.2011, 15:23
Hab' das Problem mit Hilfe von anderen VB-Forum gelöst!
Code:
For Each Line As String in IO.File.ReadAllLines("Pfad\Datei.txt")
If Line.Contains("Zeichenfolge") Then
Label1.Text = Line
End If
Next
Registrieren
Login
