Visual Basic Forum

Amethyst_ · Poster Anmeldedatum: 24.02.2007 Beiträge: 172

Hey Jungs!

Habn mit Problem mit einer Loadfunktion.
Es geht darum, dass ich Einträge in eine Listbox eintrage, diese in einer .txt speichern kann und diese .txt in der Listbox auch wieder laden kann.[code]Private Sub save_Click()
'Speichern

Open "c:\test.txt" For Output As #1
Dim i As Long

For i = 0 To List1.ListIndex - 1
List1.ListIndex = 1

Print #1, List1.Text
Next i
Close

End Sub[/code]

So der Savecode funktrioniert einwand frei..nun ist mein Problem, dass der beim Loadcode die ganze Zeit rumwaynet..ich habe alles mögliche probiert, doch immer kommt "Einlesen hinter Dateiende"

Darum, könnt mir einer bitte den Code geben, um eine .txt (mit mehreren Zeilen!!) in der Listbox auszulesen? Die .txt ist so aufgebaut:

Name Zeit
Name Zeit
Name Zeit
Name Zeit

Und so sollte es auch in der Listbox, ausgelesen werden.

Und JA! ich habe das Tutorial angesehn.. Very Happy

TheCoder_ · Verfasst am: 22.05.2007, 20:41

Da geht ganz einfach mit der Split funktion. DU lädst das ganze in einen array indem du txt normal einliest und nach vbcrlf aufsplittest. Wenne das in einem array hast kannste das auch mit einer For schleife in eine Listbox ausgeben.
[code]
Dim ff as Integer
dim daten as String
dim listdaten() as String
ff = FreeFile
Open "C:/datei.txt" for input as ff
daten = input(lof(ff),ff)
Close ff
listdaten = Split(daten,vbcrlf)
for i = 0 to Ubound(listdaten)
List1.Additem listedaten(i)
next i

[/code]

soo is jetzt freehandcoded deswegen ohne garantie aber es sollte klar machen was ich meine.[/code]

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

[code]For i = 0 To Ubound(listdaten) - 1[/code]

Noch das - 1 hinzugefuegt, da sonst noch ein leeres Feld erscheint ^^[/vb]

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

Amethyst_ · Poster Anmeldedatum: 24.02.2007 Beiträge: 172

Edit: Yeah, klappt, vielen Dank! <3

TheCoder_ · Verfasst am: 23.05.2007, 07:09

die leere zeile in der textdatei kann man umgehen wenn man einfach beim schreiben in die datei ; hinter macht. also beim print befehhl. aber da er es nicht gemacht hat dnek ich mal muss das schon hinter hasse recht ^^