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

Code :

1 2 3

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

Ich probiere es schon mit

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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

Code :

1 2 3

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

Hallo Meste,

so müsste es gehen:

Code vbnet:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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:

Code vbnet:

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

Bis dann...