Datei von hinten Lesen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Datei von hinten Lesen

    Hallo zusammen,

    es scheint als stehe ich auf dem Schlauch bzw. stelle mich zu blöde an.

    Ich möchte gerne eine Textdatei von hinten lesen!
    Also von unten nach oben ^^
    Wahrscheinlich würde es auch reichen wenn ich nur die letzte Zeile ausgegeben bekomme.

    Wäre für Denkanstöße dankbar :)

    Danke
    Gruß Horschti

    Horschti schrieb:

    Wäre für Denkanstöße dankbar

    Stream.Seek()

    zb:

    VB.NET-Quellcode

    1. Dim s As New Stack(Of Integer)
    3. Using fs As New System.IO.FileStream("dummy.txt", IO.FileMode.Open)
    4. Dim i As Integer = 0
    5. Dim b As Integer
    6. Do
    7. fs.Seek(i, IO.SeekOrigin.End)
    8. b = fs.ReadByte()
    9. If b = 13 Then Exit Do
    10. ' ascii only:
    11. If b >= 32 AndAlso b <= 127 Then s.Push(b)
    12. i -= 1
    13. Loop
    14. End Using
    16. Dim sb As New System.Text.StringBuilder
    17. While s.Count > 0
    18. sb.Append(Chr(s.Pop))
    19. End While
    20. Debug.Print(sb.ToString)


    dummy.txt:
    Hello World
    Joe the ape
    Franky the fish


    Output: Franky the fish

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „picoflop“ ()

    Super Sache, Vielen Dank!

    Aber anscheinend verstehe ich den Code noch nicht ganz, sonst würde ich es hinbekommen das er mir die Vorletzte Zeile ausgibt....In der Letzten steht nämlich nix drin ^^ (hab ich aber jetzt erst mitbekommen)

    Trotzdem Danke!

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim s As New Stack(Of Integer)
    4. Dim linenum As Integer = 2 ' counted from back!
    6. Using fs As New System.IO.FileStream("dummy.txt", IO.FileMode.Open)
    7. Dim i As Integer = 0
    8. Dim b As Integer
    9. Do
    10. fs.Seek(i, IO.SeekOrigin.End)
    11. b = fs.ReadByte()
    12. If b = 13 Then
    13. linenum -= 1 ' decrement line counter
    14. If linenum = 0 Then
    15. Exit Do ' finished
    16. Else
    17. s.Clear() ' delete the last line
    18. End If
    19. End If
    20. ' ascii only:
    21. If b >= 32 AndAlso b <= 127 Then s.Push(b)
    22. i -= 1
    23. Loop
    24. End Using
    26. Dim sb As New System.Text.StringBuilder
    27. While s.Count > 0
    28. sb.Append(Chr(s.Pop))
    29. End While
    30. Debug.Print(sb.ToString)
    32. End Sub


    output: Joe the ape

Facebook
Telefonspende