Textdatei in mehrspaltige Listbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Textdatei in mehrspaltige Listbox
von: Manfred
Geschrieben am: 25.02.2005 12:41:55
Wie kann ich aus einer Textdatei, die wie folgt aufgebaut ist
5100/5000/2000,2000,100
5200/4000/2010,2020,275
.....
die Werte in eine mehrspaltige Listbox einlesen, so daß
in der ersten Spalte 5100/5000/2000
in der zweiten Spalte 2000
in der dritten Spalte 100
steht?
Hat jemand einen Rat.

Bild

Betrifft: AW: Textdatei in mehrspaltige Listbox
von: Bernd G.
Geschrieben am: 25.02.2005 14:13:07
Hallo Manfred,
vielleicht hilft die DATEN / TEXT IN SPALTEN da weiter.
Du kannst hier das Komma als Trenner eingeben.
Gruß
Bernd
Bild

Betrifft: Mein Lösungansatz
von: Manfred
Geschrieben am: 25.02.2005 15:47:04
bei dem folgenden Code wird nur die letzte Zeile aus der Textdatei eingelesen.
Was muß ich ändern damit alle Zeilen eingelesen werden?

Private Sub CommandButton2_Click()
Dim zeile As String
Dim Text1 As String
Dim Text2 As String
Dim Text3 As String
Dim arr(0 To 0, 0 To 2) As String
Open "D:\Altakten\Etiketten1.txt" For Input As #1
Do While Not EOF(1)
Input #1, Text1, Text2, Text3
arr(0, 0) = Text1
arr(0, 1) = Text2
arr(0, 2) = Text3
ListBox1.List() = arr
Loop
Close #1
End Sub

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textdatei in mehrspaltige Listbox"