Datei einlesen ( Len) VB

[Bunter-Baron]

Hi Ihr da draussen

Meine Frage, Wie kann ich nach dem einlesen eine Datei auf Len überprüfen bzw. den kpl. Wert auslesen?

Hier das Listing in VB.

Open "Datei" For Input As#1

While Not Eof(1)

Line Input #1, Temp

list1.AddItem Temp

Wend

Lasse ich mir den Wert Len auslesen,erhalte ich nur den Wert der Letzten eingelesenen Zeile.

Möchte aber die eingabe so beibehalten.

Ändere ich list1.additem in Text1.text erhalte ich auch nur die letzte Zeile. Auch dieses möcht ich gerne ändern.

Gruss

Bunter-Baron

[NNE]

Hi!

So:

...

Dim Temp2 as String

Dim Länge as Integer

...

Open "Datei" For Input As#1

While Not Eof(1)

Line Input #1, Temp

Temp2 = Temp2 & Temp 'Alle geladene Zeilen laden im Temp2

list1.AddItem Temp

Wend

Länge = len(Temp2)' Länge von Temp2 ermitteln

msgbox "Länge der Datei: " & Länge 'Länge von Temp2 anzeigen

...

Grüsse,

NNE

[ADO error]

versuch's mal mit FSO