VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim SuchKey As String = txtDbkNr.Text
- Dim b As Boolean = False
- Dim lstDateiInhalt As New List(Of String)
- lstDateiInhalt.AddRange(IO.File.ReadAllLines(Pfadprg21prg + "prg__dir.dat"))
- For Each sTeile As String In lstDateiInhalt
- If sTeile.StartsWith(" " & SuchKey.Trim & " ") Then
- MessageBox.Show(SuchKey & " gefunden in Zeile: " & lstDateiInhalt.IndexOf(sTeile).ToString)
- b = True
- End If
- Next
- If b = False Then
- MessageBox.Show("Nix gefunden")
- End If
- End Sub
Und jetzt musst du noch erklären, was du wo einfügen willst.
(Aber so, das es außer dir auch ein Anderer vesteht).