Hallo,
ich habe das Problem, dass es nicht klappt, wenn ich beim Starten meiner Anwendung die Vokabeln aus einer TXT Datei in mein Vokabelprogramm laden will.

Es wird nur jede zweite Vokabel geladen, ich verstehe aber nicht warum??

Hier ist der Code zum laden der deutschen Vokabeln :

If IO.File.Exists("dVK.txt") Then
Dim srD As System.IO.StreamReader = New System.IO.StreamReader("dVK.txt")
Do While srD.ReadLine() <> ""
Eintrag.dVokabeln(De) = srD.ReadLine()
De += 1
Loop
srD.Close()
End If

Weiß jemand wo das Problem ist?

Mit freundlichen Grüßen
Micii

Da kommt 2x ReadLine() vor.
Mach ein Do-While mit EOF-Abfrage, lies die Zeile in eine Variable ein und werte sie aus.
Oder:

Da hast Du sofort alle Zeilen im Feld lines

Du verwendest 2x ReadLine..
Bei jedem Aufruf von ReadLine wird in die nächste Zeile gesprungen. du springst einmal bei der Abfrage, dann bei der Übergabe.
Statt Eintrag.dVokabeln(De) = srD.ReadLine() solltest du
Eintrag.dVokabeln(De) = srD.ToString() 'o.ä.
verwenden

//Edit: too late : ))

Danke Milaim und RodFromGermany ;D

Ich versuch es jetzt mit dem EOF:

vb-paradise.de/user/3038-milaim/If IO.File.Exists("eVK.txt") Then
Dim srE As System.IO.StreamReader = New System.IO.StreamReader("eVK.txt")
Do While srE Is Not EOF(Index?)
Eintrag.eVokabeln(En) = srE.ReadLine()
En += 1
Loop
srE.Close()
End If

Also die Methode liest die Datei bis zu Ende aus ? Jetzt tue ich das Zeile für Zeile, aber was muss ich für einen Index angeben?

Edit:
sry Filenumber nicht Index.??

Sieh Dir mal an, was
macht, wenn die Datei zu Ende ist.
.NET und keine Steinkohle.

RodFromGermany: Es gibt Nothing zurück?

milaim : Eintrag.dVokabeln(De) = srD.ToString()
Speichert immer wieder "IO.StreamReader()" in mein Array.

Ist das eine Frage oder eine Antwort?
Falls es eine Frage ist - Drück mal auf F1, wenn der Cursor auf ReadLine() steht.
Ist es eine Antwort, hast Du die Abbruchbedingung für Deine Schleife gefunden.