Txt laden

[vierkant]

Hi!
mit folgendem Code speichere ich den Inhalt einer Listbox erfolgreich ab:

Dim fileno As Integer, filename As String


        fileno = FreeFile()

        FileOpen(fileno, TextBox13.Text & TextBox14.Text & "\" & "\Fahrzeuge.txt", OpenMode.Output, OpenAccess.Write, OpenShare.LockWrite)
        For Each Item As Object In ListBox1.Items

            PrintLine(fileno, Item.ToString)
        Next

        FileClose(fileno)

ich habe mit folgendem Code versucht die Daten wieder zu laden:

Dim fileno As Integer, filename As String
        FileOpen(fileno, TextBox13.Text & TextBox14.Text & "\" & "\Fahrzeuge.txt", OpenMode.Input, OpenAccess.Read, OpenShare.LockRead)

        For Each Item As Object In ListBox1.Items

            Input(fileno, Item.ToString)
        Next

        FileClose(fileno)

Das Funktioniert nicht - hatt jemand eine Idee was ich falsch mache?
Danke im Vorraus Jürgen

[gfoidl]

Hallo,

du kannst das "Gegenstück" der Antwort deiner vorigen Frage verwenden.
File.ReadlAllText <-> File.WriteAllText

Ich kenne mich in VB.net nicht gut aus aber die Syntax in deinem Beispiel schaut sehr nach klassischem VB aus. Verwende besser die .net-Methoden wie oben erwähnt.


mfG Gü

[Jürgen Thomas]

Hallo Jürgen

Vollständige Informationen liefern bessere Antworten (das bezieht sich auf deine Frage zu "Textdatei speichern"). In dieser Situation empfehle ich File.ReadAllLines. Dann landen alle Textzeilen in einem String-Array, und dessen Inhalte kannst du 1:1 als Einträge für die ListBox verwenden.

Gruß Jürgen