Listbox speichern

[TimS.]

Hallo,
ich hab eine frage:

Ich möchte wenn jemand zum beispiel in eine Textbox (T1) einen Namen eingibt! Dieser wird dann in einer listbox (L1) angezeigt und auch wenn das programm beendet wird und wieder neu gestartet soll der Name immer noch in der Listbox stehen!

Ich mach das bis jetzt immer so:

L1.Items.Add(T1.Text)

aber bei mir sind dann die items beim nächsten neustart des programmes wieder weg! wie kann ich es machen das sie fest dableiben?

Danke schonmal im Foraus

Programmiere in VB.Net

[ARCUS_L]

Hi !!

Indem du beim Beenden den Inhalt der Listbox in eine Datei speicherst

und beim Starten wieder einliest.

mfg ARCUS_L

[TimS.]

In was für eine datei kannst du mir nen beispiel code geben?

[ARCUS_L]

Hi !

Irgend eine Datei egal welche
.dat,.txt........

zb:

        Dim oFi As FileStream = New FileStream("Datei", FileMode.Create)
        Dim oStw As StreamWriter = New StreamWriter(oFi)

        For x As Integer = 0 To Listbox1.Items.Count - 1

            oStw.WriteLine(Listbox1.Items.Item(x).ToString)

        Next

        oStw.Close()

mfg ARCUS_L

[TimS.]

DUmme frage aber wie lese ich sie beim start aus einer dat oder txt datei wieder ein?

[ARCUS_L]

Hi !

Für das schreiben wird der StreamWriter verwendet
und zum einlesen den StreamReader

zuerst musst du wieder ein Filestream Object anlegen

Dim oFi As FileStream = New FileStream("Datei", FileMode.OpenOrCreate)

dann das StreamReader Object
Dim oStr As StreamReader = New StreamReader(oFi)

Jetz musst du nur noch über eine Schleife die Datei Zeilenweise einlesen.

Listbox1.Items.Add(oStr.ReadLine)

dann wieder schliessen

oStr.Close()

mfg ARCUS_L

[TimS.]

Wie würdest du das mit der schleifew machen? Mit ner Loop?

Do
Listbox1.items.add(ostr.readline)
Loop Until

was muss nach dem until und geht das so? wenn nicht wie würd es gehen?

[TimS.]

Also ich hab jetzt ne Stunde rumprobiert und bekomms ned raus wie ich das wieder in der listbox erscheinen lasse! Wie geht das! hilfe!!!!!!
MFG TimS

[TimS.]

So sieht mein code aus der noch ned klappt:

Dim oFh As FileStream = New FileStream("C:\L2Save.txt", FileMode.OpenOrCreate)
        Dim oStr As StreamReader = New StreamReader(oFh)
        Dim strNeuZeile = oStr.ReadLine
        Do
            If strNeuZeile <> "" Or strNeuZeile <> 0 Then
                L2.Items.Add(oStr.ReadLine)
            End If

        Loop Until strNeuZeile = ""
        oStr.Close()

Aber der funktionier nicht! Ich brauch Hilfe!

MFG TImS

[ARCUS_L]

Hi !!

Las mich raten keines der beiden programme kann gestartet werden da schon beim übersetzen ein Fehler ansteht !

Do
Listbox1.items.add(ostr.readline)
Loop Until

Hier fehlt die Bedingung für Loop Until ??????

Dim oFh As FileStream = New FileStream("C:\L2Save.txt", FileMode.OpenOrCreate)
        Dim oStr As StreamReader = New StreamReader(oFh)
        Dim strNeuZeile = oStr.ReadLine
        Do
            If strNeuZeile <> "" Or strNeuZeile <> 0 Then
                L2.Items.Add(oStr.ReadLine)
            End If

        Loop Until strNeuZeile = ""
        oStr.Close()

Was würde hier wohl passiern falls die Deklaration richtig wäre ???
Dim strNeuZeile As String = oStr.ReadLine
Ein schönes Beispiel für eine Endlosschleife oder ? Warum ??
Du beendest Deine Schleife nur wenn der wert von strNeuZeile = ""
Dieser wert endert sich aber nur einmal und zwar vor der Schleife nämlich hier: Dim strNeuZeile = oStr.ReadLine

mfg ARCUS_L

[TimS.]

Wie würdest du das denn machen?

[ARCUS_L]

Hi !

Wie würdest du es machen ist nicht die richtige Frage !!

Sondern wie kann ich meinen Code ändern das er funktioniert !!

Versuch mal dein erstes Code-Beispiel mit dem Zweiten zu kombinieren !

Schau dir mal StreamReader.Peek-Methode an !!

mfg ARCUS_L

[TimS.]

Ne frage! Was gibt denn der ostr.ReadLine aus! Die anzahl der Zeilen?

[TimS.]

Also ich hab jetzt weiter übelegt hab nur folgendes Problem dass der ostr.ReadLine immer wieder 0 rausbringt! Und ich es nicht mit ner IF bedingung stoppen kann denn wenn ich sage

Dim strNeuZeile = oStr.ReadLine
If strNeuZeile <> "" Then
     L2.Items.Add(oStr.ReadLine)
End If

kommt immer das man Kein text in zahlen konvertieren kann!

MFG TImS

[TimS.]

So habs hinbekommen:

        Try
            Using sr As StreamReader = New StreamReader("C:\L2Save.txt")
                Dim line As String
                Do
                    line = sr.ReadLine()
                    L2.Items.Add(line)
                Loop Until line Is Nothing
                sr.Close()
            End Using
        Catch Es As Exception
            Console.WriteLine("The file could not be read:")
            Console.WriteLine(Es.Message)
        End Try