Hallo Leute,

kann mir jemand sagen, wie ich es schaffe, dass keine einzige leerzeile entsteht, wenn ich zeilen aus einer txt datei lade. Also so ungefähr: Die Textdatei schaut so aus:

Zeile 1 aus Textdatei
Zeile 2 aus Textdatei
"Leerzeile"
Zeile 4 aus Textdatei

und meine Listbox soll so ausschauen:

Zeile 1 aus Textdatei
Zeile 2 aus Textdatei
Zeile 4 aus Textdatei

also wie man sieht, soll die Leerzeile nicht in der listbox sein. Danke im Vorraus!
Jonny

Code :

1 2 3 4 5 6 7 8 9

Dim temp As String     Open "Pfad zur Datei" For Input As #1         Do While Not EOF(1)             Line Input #1, temp             If temp <> "" Then                 List1.AddItem temp             End If         Loop     Close #1