Daten aus einer Datei in eine Listbox einfügen

[Zulkara]

Hi! ich habe da eine dringende frage an euch

undzwar möchte ich ein Vokabelprogramm machen, das Vokabeln aus einer Datei abfrägt.
also zuerst schreib ich die datei ganz normal über Open ...
1. Datei heißt (vokabeln_deutsch)
2. Datei heißt (vokabeln_englisch)
also ich schreib da jetzt rein über Append und dann Print
z.b. sieht dann vokabeln_deutsch.txt dann so aus:
laufen
gehen
schwimmen

Meine frage an euch wäre dann, wie schaff ich es das ich diese Wörter einzeln aus der Datei abfragen kann

ich möchte dann n Label machen und dann folgendes:
label.caption = laufen
label2.caption = gehen
label3.caption = schwimmen
wie geht das? pls help


edit: gibts vllt sowas wie ein readnext befehl?

 

[codeman]

Arbeitest du mit VB6?

Wenn ja müsste es bei manchen Versionen eine "Tips und Tricks" Vorlage geben (falls installiert). Die macht im Prinzip das gleiche, eine Textdatei wird zeilenweise zerlegt und der Inhalt in eine Liste gefüllt, es ist alles sehr gut kommentiert.

Hier ein Codeausschnitt von der Funktion LoadTips aus der Vorlage (stark gekürzt!):

Dim Tips As New Collection

Function LoadTips(sFile As String) As Boolean
    Dim NextTip As String   ' Jeder Tip wird aus der Datei eingelesen.
    Dim InFile As Integer   ' Descriptor für Datei.
    
    ' Nächsten freien Datei-Descriptor abrufen.
    InFile = FreeFile
    
    ' Auflistung aus einer Text-Datei lesen.
    Open sFile For Input As InFile
    While Not EOF(InFile)
        Line Input #InFile, NextTip
        Tips.Add NextTip
    Wend
    Close InFile
End Function

Die Zeilen befinden sich jetzt in der Tips-Collection.

 

[Zulkara]

hi, danke für die antwort,
jetzt hätte ich dazu noch ne frage, wie schaff ich es jetzt das ich diese ausgelesene datei
auf eine caption bringe undzwar immer hintereinander?

also z.b. steht da

Englisches Wort: (lbl.caption)
Deutsches Wort: (Bitte eingebe)
|Weiter|

Also das es sobald ich auf weiter klicke das lbl.caption auf die nächste zeile wandert

 

[codeman]

Hallo,

Dim MyCol As Collection

Private Sub cmdNext_Click()
Dim i As Integer
For i = 0 To MyCol.Count - 1
lbl.Caption = MyCol.Item(i)
Next
End Sub

MyCol ist die Collection (kommt drauf an - sonst durch "Tips" ersetzen oder wie du sie eben genannt hast.)

 

[Zulkara]

Ok, dankeschön für die antwort!

mfg chriss