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"