0belixx
Goto Top

Wort finden und übernächste Zeile anzeigen

Hallo Leute,

ich brauche mal etwas Hilfe. Folgendes Problem. Ich habe einen Text
.
.
.
blabla
bla

blabl

Referenznummer 1:

4711

Referenznummer 2:

0815

.
.
usw


Die Zeile(n) mit dem Wort "Referenznummer" gibt es immer Die Nummer die 2 Zeilen weiter folgt ist variable.
Wie kann ich die Nummer auslesen??

Ich hatte folgendes im Kopf
Dim zusammenstellung As New List(Of String)
        For Each zeile As String In System.IO.File.ReadLines("text.txt")  
            If zeile.Contains("Referenznummer") Then  
                zusammenstellung.Add(???? übernächste Zeile ????)
            End If
        Next
        MessageBox.Show(String.Join(vbNewLine, zusammenstellung.ToArray))

Aber irgendwie bekomme ich es nicht hin
Für einen Denkanstoß wäre ich dankbar.

0belixx

Content-Key: 236771

Url: https://administrator.de/contentid/236771

Printed on: April 20, 2024 at 04:04 o'clock

Member: 0belixx
0belixx Apr 29, 2014 at 12:26:44 (UTC)
Goto Top
Ist erledigt

 Dim zusammenstellung As New List(Of String)
        Dim zeilen() = System.IO.File.ReadAllLines("text.txt")  
        For i = 0 To zeilen.Length - 2
            Dim zeile = zeilen(i)
            If zeile.Contains("Referenznummer") Then  
                zusammenstellung.Add(zeilen(i + 2))
            End If
        Next
Member: bastla
bastla Apr 29, 2014 at 12:28:51 (UTC)
Goto Top
Hallo Obelixx!

Wenn Du den gesamten Text einliest, per Split (an den Zeilenschaltungen) in ein Zeilen-Array aufteilst und dieses dann in einer For-Next-Schleife durchgehst, kannst Du leicht die übernächste Zeile finden ...

Grüße
bastla