✔ Zahlen einzeln von Textdatei in ein Array einlesen

[meste]

Hallo!
ch habe in einer Textdatei pro Zeile 6 Zahlen, welche ich in ein Array einelsen möchte.

5     7     8     4     6     8
4     4     5     7     5     3
2     6     2     1     3     1

Ich probiere es schon mit

Dim strR As StreamReader = File.OpenText(pathJ)
            
            Do While strR.Peek() >= 0
                'Zeile von der TextDatei In die ListBox einfügen
                ltbJSave.Items.Add(strR.ReadLine())
                For i As Integer = 0 To strR.ReadLine.Length - 1
                    If i < 1 Then
                        a(i) = strR.Peek
                    Else
                        ReDim Preserve a(a.GetUpperBound(0) + 2)
                        a(i) = strR.Peek
                    End If
                Next
 
                'In die Klasse anlegen
                f = New cJokerZahlen(a(0), a(1), a(2), a(3), a(4), a(5))

und ähnliches, jedoch ohne Erfolg.
Die Zahlen werden in die ListBox eingetragen als ganze Zeile. Ich möchte mit einem Array die werte in eine Klasse übergeben, das wenn man von der ListBox aus ein Element auswählt das die Zahlen einzeln in den dafür vorgesehenen Textfelder angezeigt wird.

Das gleiche möchte ich auch mit Zweistellige Zahlen machen

30     40     44     38     29     44
37     13     39     7     30     29
7     24     29     11     26     9

Zu dem hätte ich noch gewust wie in die Datei schreiben kann das die Zahlen schön untereinander aufgelistet sind statt verschoben. Ich wäre für jede Hilfe sehr dankbar. Danke im vorraus.

m.e.s.t.e

 

[Vektor]

Hallo Meste,

so müsste es gehen:

Try
            Dim FileI As IO.FileInfo = New IO.FileInfo("Dateipfad.txt")
            Dim strR As IO.StreamReader = FileI.OpenText
            Dim strArray(5) As String ' Kann mit 5 initialisiert werden,
            ' da ja immer 6 Elemente pro Zeile vorhanden sind
            With strR
                ' Zeilen nacheinander in Listbox setzen
                Do Until .EndOfStream = True
                    Me.ltbJSave.Items.Add(.ReadLine)
                Loop
                'Stream schließen
                .Close()
            End With
            ' Für dieses Beispiel nur die erste Zeile in ein Array aufteilen
            strArray = Me.ltbJSave.Items.Item(0).ToString.Split(vbTab)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler!")
            ' oder Fehlerbehandlungsroutine
        End Try

Zu dem hätte ich noch gewust wie in die Datei schreiben kann das die Zahlen schön untereinander aufgelistet sind statt verschoben

Normalerweise reicht es doch da, beim schreiben einen Tab zu setzen oder? Also so etwa:

StreamWriter.WriteLine(Zahl1 & vbTab & Zahl2 & vbTab & usw)

Bis dann...