Textdatei einlesen und alle 50 Zeilen splitten

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Bartolomeus76.

    Textdatei einlesen und alle 50 Zeilen splitten

    Hallo Zusammen!

    Stehe grade vor folgendem Problem: Ich möchte alle Zeilen einer Textdatei auslesen und diese dann alle 50 Zeilen "auftrennen".
    Das Einlesen sowie das Auftrennen in einzelne Zeilen funktioniert ja einwandfrei, bräuchte aber einen
    kleinen Denkanstoss wie ich eben nur alle 50 Zeilen splitte. Mein bisheriger Code:

    VB.NET-Quellcode

    1. Dim lines() As String = System.IO.File.ReadAllLines("E:\testvb.txt")


    In jeder Zeile stehen dabei nur Zahlen mit mehreren Nachkommastellen. Aus diesen Blöcken á 50 Zeilen möchte ich dann später einen
    Mittelwert bilden. Vielleicht hat dazu ja auch noch jemand einen Vorschlag, ansonsten versuche ich mich erst einmal selber daran ;)
    Wichtig wäre mir erstmal das richtige Aufsplitten.

    Schönen Gruß, Bartolomeus :)

    Hallo,

    Du brauchst eine For Schleife und eine if abfrage, wen der Wert 50 ist (oder ich glaube du musst den Mod Operator benutzen). Wen True Splitest du, einfach, du kannst das mit Me.Lines(50) machen vobei die Zahl dann ja wohl er die Zähler Variable der For schleife ist. Ich bin ein wenig aus der übrung gekommen aber dass müsste es sein.

    LG, Herbrich

    Willkommen im Forum. :thumbup:

    Bartolomeus76 schrieb:

    Aus diesen Blöcken á 50 Zeilen möchte ich dann später einen Mittelwert bilden.
    Warum später?
    Lies die Zeilen ein, konvertiere sie (Double.Parse() / Double.TryParse()) und leg sie in einer List(Of Double) ab, die kannst Du dann mit einer For-Schleife abklappern:

    VB.NET-Quellcode

    1. For i = 0 To MyList.Count - 1 Step 50
    2. Dim mw = Mittelwert(MyList, i)
    3. ' mit mw was tun
    4. Next
    Die Funktion Mittelwert(...) berechnet aus den Werten der übergebenen Liste ab Index i den Mittelwert über (maximal) 50 Elemente.
    Falls weniger da sind, musste drauf reagieren. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hi,
    erstmal vielen Dank für die Antworten! Leider musste ich Heute wieder einmal feststellen das ich noch viel lernen muss was VB angeht :D .
    Ich habe jetzt erstmal den Vorschlag von RodFromGermany aufgegriffen, dachte eigentlich auch alles verstanden zu haben. allerdings
    kann ich nicht ganz nachvollziehen warum er mir einen Fehler in der Mittelwertfunktion ausgibt...

    VB.NET-Quellcode

    1. Dim mw = Mittelwert(mylist, i)


    mylist wird mir dort als Fehler "Der Wert vom Typ "System.Collections.Generic.List(Of Double)" kann nicht in "Double" konvertiert werden." angezeigt.
    Kann nicht so ganz nachvollziehen warum das so ist. Hier mal mein bisheriger Code:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Diagnostics
    3. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    6. Dim values() As String = System.IO.File.ReadAllLines("E:\testvb.txt")
    7. Dim i As Integer
    8. Dim result As Double
    9. Dim mylist As New List(Of Double)
    10. For Each value As String In values
    11. result = Convert.ToDouble(value)
    12. mylist.Add(result)
    13. Next
    14. For i = 0 To mylist.Count - 1 Step 5
    15. Dim mw = Mittelwert(mylist, i)
    16. MsgBox(mw)
    17. Next
    19. End Sub
    20. Function Mittelwert(
    21. ByVal ParamArray mylist() As Double) As Double
    22. Dim i As Integer
    23. Dim Summe As Double = 0
    24. Dim Anzahl As Double
    25. For i = 0 To mylist.GetUpperBound(0)
    26. Summe += mylist(i)
    27. Next
    28. Anzahl = mylist.GetUpperBound(0) + 1
    29. If Anzahl > 0 Then
    30. Mittelwert = Summe / Anzahl
    31. Else
    32. Mittelwert = 0
    33. End If
    34. End Function
    35. End Class


    Schönen Gruß, Bartolomeus

    Bartolomeus76 schrieb:

    Hier mal mein bisheriger Code:
    Sieh Dir mal an, wie ich es gemeint hatte:
    Mittelwert

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. 'Dim values() As String = System.IO.File.ReadAllLines("E:\testvb.txt")
    4. Dim values() As String = {"1", "3", "5"}
    5. Dim result As Double
    6. Dim mylist As New List(Of Double)
    7. For Each value As String In values
    8. result = Convert.ToDouble(value)
    9. mylist.Add(result)
    10. Next
    11. For i = 0 To mylist.Count - 1 Step 50
    12. Dim mw = Mittelwert(mylist, i)
    13. MessageBox.Show(mw.ToString)
    14. Next
    15. End Sub
    17. Function Mittelwert(ByVal mylist As List(Of Double), ByVal start As Integer) As Double
    18. Dim i As Integer
    19. Dim Summe As Double = 0
    20. Dim Anzahl As Double = 0
    21. For i = start To Math.Min(start + 49, mylist.Count - 1)
    22. Summe += mylist(i)
    23. Anzahl += 1
    24. Next
    25. If Anzahl > 0 Then
    26. Return Summe / Anzahl
    27. End If
    28. Return 0
    29. End Function
    30. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!