________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Global te_kanal(112) As Integer
Global Kanaltext(112) As String * 10
Global Datum(112) As String * 10
Global Zeit(112) As String * 10
Global Akttemp(112) As Integer
Global Maxtemp(112) As Integer
Global TextDat(112) As String * 38

    Public Structure daten
        Public te_kanal As Integer
        Public Kanaltext As String
        Public Datum As String
        Public Zeit As String
        Public Akttemp As Integer
        Public Maxtemp As Integer
        Public TextDat As String
    End Structure

    Public DatenList As New List(Of daten)
 
    Private Sub Einlesen()
 
        ' Daten einlesen und in Zeilen auftrennen
 
        ' Mit Schleife List befüllen
        For Each line As String In lines
                Dim lineDaten As New daten
 
 
                DatenList.Add(lineDaten)
            End If
        Next
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist