Frage bei Zeilenauslesung und Ausgebung

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Ruffo.

    Frage bei Zeilenauslesung und Ausgebung

    Guten Abend allerseits
    ich bin auf dem gebit Vb noch recht neu, komme aber schon ganz gut damit klar.
    Nun bin ich auf ein Problem Gestoßen womit ich nicht weiter komme :( wäre cool wenn ihr mir da helfen könntet.

    Ich Möchte das immer nur die letzten 20zeilen einer Textdatei Ausgegebn werden und in eine RichTextBox geschrieben werden    .. Ich weiß nicht ob ich das hier sehr Kompliziert versucht habe.. wäre cool wenns Kürzer und schneller möglich wäre als in meinem Code, beispiel.. Da das ja bei mir nicht Funktioniert. Hoffentlich könnt ihr mir helfen.

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    2. Dim Pfad As String = "E:\Fun\Chat_vb\chat.txt"
    3. If IO.File.Exists(Pfad) Then
    4. Dim fileReader() As String
    5. Dim fileReader1 As String
    6. Dim sr As System.IO.StreamReader = System.IO.File.OpenText(Pfad)
    7. Dim z As Integer = 0
    8. Do While sr.Peek >= 0
    9. If z = z Then
    10. Dim rtext As String = sr.ReadLine
    11. End If
    12. z = z + 1
    13. Loop
    14. sr.Close()
    15. 'Ende Zeilen Zählen!
    16. fileReader = IO.File.ReadAllLines(Pfad)
    19. If z > 20 Then
    20. z = z - 20
    22. Dim z2 As Integer
    23. z2 = z + 20
    24. Do While z >= z2
    25. Dim text2 As String = text
    26. text = text2 + fileReader(z)
    27. z = z + 1
    28. MsgBox(z)
    29. Loop
    30. RichTextBox1.Text = text
    31. Else
    32. fileReader1 = My.Computer.FileSystem.ReadAllText(Pfad)
    33. RichTextBox1.Text = fileReader1
    35. End If
    40. RichTextBox1.ScrollBars = RichTextBoxScrollBars.Vertical
    43. End If
    44. End Sub


    MFG Ruffo

    kürzer:

    VB.NET-Quellcode

    1. Dim Lines() As String = IO.File.ReadAllLines("C:\20zeilen.txt")
    2. Dim gesamteZeilen As Integer = Lines.Length
    3. Dim letzte20Zeilen As Integer = Lines.Length - 20
    4. For i As Long = letzte20Zeilen To UBound(Lines)
    5. RichTextBox1.AppendText(Lines(i) & vbNewLine)
    6. Next


    MFG
    GOOGLE ist mein Meister :)

Facebook
Telefonspende