Datei in Listbox einlesen

[Lautsprecher]

Hallo nochmal,
ich hab für Cracks wahrscheinlich eine ziemliche einfache Frage. Im letzten Semester hat unsere Professor eine Aufgabe gestellt aber leider keine Lösung ausgegeben.
Wir sollen eine Adressliste (80 Zeichen lang) in eine Listbox einlesen. Ich hab schon bei mir im Semester rumgefragt, aber entweder es weiß selber niemand und es wurde schon vergessen, da VB bei uns nur Nebenfach ist.
Kann mir da jemand weiter helfen?
Und vielleicht weiß jemand eine Page auf der mal alle Dateizugriffe in VB aufgezeigt sind!

Grüße

 

[Da Hacker]

Hi Lautsprecher,

dieses Thema wurde hier schon des Öfteren behandelt.

Versuche es doch mal so:

Dim Adressen(1000) 'Array mit maximal 1000 Einträgen
Dim i as Integer
i = 0
Open Dateiname for Input as Dateinummer
While Not EOF(Dateinummer) = true
 Input #Dateinummer, Adressen(i)
 i = i + 1
Wend
i = 0
for i = i to UBound(Adressen) 'Wird ausgeführt, bis keine Einträge mehr im Array sind.
Listbox.Additem(i)
next i
Close Dateinummer

Der obige Code ist sehr allgemein gehalten und nicht getestet, allerdings sollte es so funktionieren.

Hier gibt es noch weitere Informationen.
Link 1
Benutze auch mal die Foreninterne Suche.

Ich hoffe, ich konnte helfen. Zögere nicht, weitere Fragen zu stellen.

Ciao:
Da' Hacker

 

[Lautsprecher]

Grüß Dich,
danke Dir. Weiter geholfen hat mir das auf alle Fälle. Ich werde es bei Gelegenheit gleich mal ausprobieren.

 

[Lautsprecher]

Re: Datei in Listbox einlesen (mit RANDOM)

Hi Da Hacker,
mir ist jetzt nochmal was eingefallen.
da ich nicht weiß, was mein Professor gerne sehen würde habe ich jetzt nochmal eine Frage.

In der Vergangenheit haben wir ein Form erstellt, in dem der Benutzer über Textfelder seine Eingaben tätig. Seine Infos werden dann in der Listbox angezeigt.

Von dort aus werden sie mit folgenden Befehl gespeichert:

Private Sub Command1_Click()

Open "C:\Wertpapiere.txt" For Random As #1 Len = Len(List1.List(0))+2

For i = 1 To (List1.ListCount - 1) 

Put #1, i, List1.List(i)

Next i



Close #1

End Sub

Das Laden erfolgt mit folgenden Zeilen:

Private Sub Command2_Click()

Dim Dummy As String

Open "C:\Wertpapiere.txt" For Random As #1 Len = Len(List1.List(0))+2

For k = 1 To LOF(1) / Len(List1.List(0))+2

Get #1, k, Dummy

List3.List(k) = Dummy

Next k

 

Close #1

End Sub

Wie gesagt das Laden und das Speicher funktioniert soweit wunderbar, wenn es sich auf die "Eigenen Daten" aus der Listbox bezieht. Wenn ich aber eine Fremde Datei, ganz am Anfang in die Listbox einlesen möchte, scheitere ich.



Leider kann ich es momentan nicht ausprobieren, dafür müßte ich mir erst nochmal eine Datei basteln.

Ich habe mir überlegt einen Dummy über 80 Zeichen anzulegen und dann mit Len einzulesen.

Weiß jemand ob das evtl. funktioniert

Dim Dummy As String * 80

Open "C:\Wertpapiere.txt" For Random As #1 Len = Len(Dummy)

Zum anderen hätte ich nochmal eine Frage: Uns ist bis jetzt nicht wirklich klar

was die + 2 beim Einlesen bedeutet

Open "C:\Wertpapiere.txt" For Random As #1 Len = Len(List1.List(0))+2

Danke nochmal