Bestimmte Zeile aus .txt

Question

Hallo liebes Forum,

Ich bräuchte eine Möglichkeit, mit der ich eine bestimmte Zeile anhand der Zeilennummer aus einer

.txt Datei auslesen kann. Ich habe diesbezüglich leider auch nach langem suchen nichts gefunden.

Es währe toll, wenn mir Jemand helfen könnte,

Vielden Dank,

Dark Nerv

Answer 1

Hi,

eine bestimmte Zeile auszulesen geht so direkt nicht. Je nach genauer Anforderung kannst Du entweder alle Zeilen per File.ReadAllLines( ... ) lesen und dann mittels Index das passende Arrayelement (Zeile) ansprechen:

  http://msdn.microsoft.com/de-de/library/s2tte0y1.aspx

oder Du rufst <StreamReader>.ReadLine() so oft auf, bis Du an der entsprechenden Zeile bist und verarbeitest nur für den nächsten Aufruf die Rückgabe des Methodenaufrufs.

  http://msdn.microsoft.com/de-de/library/system.io.streamreader.readline.aspx

  http://social.msdn.microsoft.com/Forums/en-US/436905c5-08cd-4994-8feb-a1e20adb5397/how-do-i-start-at-a-specific-line-when-using-streamreader-c

---

Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community

Answer 2

Hallo Dark Nerv,

Hat Dir die Antwort von Stefan geholfen?

Gruss,

Ionut

---

Ionut Duma, MICROSOFT   Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip„Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 3

Oder halt auf die schnelle ;-)
Fehlerabfang-Routinen etc. musst du dir aber selbst basteln ;-)

    Public Function GetTextLine(File As String, Line As Integer) As String

        Dim fi As New System.IO.FileInfo(File)
        If Not fi.Exists Then Return "File '" & File & "' not found."

        Dim sr As New System.IO.StreamReader(fi.FullName, True)
        Dim LineCount As Integer = 0

        While Not sr.EndOfStream
            LineCount += 1
            If LineCount <> Line Then
                ' nur lesen
                sr.ReadLine()
            Else
                ' Diese Zeile geht zurück
                Dim res As String = sr.ReadLine
                sr.Close()
                sr = Nothing
                Return res
            End If
        End While

        ' Ende, Zeile konnte nicht gefunden werden
        Return "File '" & File & "' have only " & LineCount & " line(s) and can not found Line-Numer " & Line

    End Function

Answer 4

**************************************************************************************************
Dieser Thread wurde mangels weiterer Beteiligung des Fragestellenden ohne bestätigte Lösung abgeschlossen.
Neue Rückfragen oder Ergänzungen zu diesem Thread bleiben weiterhin möglich.
**************************************************************************************************

---

Ionut Duma, MICROSOFT   Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip„Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.