Openfiledialog Multiple lines

[hausmeister079]

Hallo zusammen,

Ich habe folgendes Problem:
Ich speicher mit dem folgendem Code meine application, wobei textbox1 multiplw lines hat.

Dim save As Integer
        save = SaveFileDialog1.ShowDialog
        Select Case save
            Case vbOK
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text + ControlChars.NewLine + TextBox2.Text, False)
        End Select

Und mit dem folgendem versuche ich diese Dateien wieder zu öffnen.

 Dim thearray() As String, open As Integer
        Dim thetext As String
        Dim numberofitems As Integer = 0
        open = OpenFileDialog1.ShowDialog
        Select Case open
            Case vbOK
                thetext = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
                thearray = Split(thetext, ControlChars.NewLine, , CompareMethod.Text)
                For numberofitems = 0 To UBound(thearray)
                    If numberofitems = 0 Then
                        TextBox1.Text = thearray(numberofitems)
                    ElseIf numberofitems = 1 Then
                        TextBox2.Text = thearray(numberofitems)
                    End If
                Next

        End Select

Das Problem ist nun, wenn ich in der textbox1 über mehrere Zeilen schreibe und diese speichere funktioniert es, jedoch wenn ich die datei wieder öffne, bekomme ich nur die erste Zeile wieder gegeben und die anderen nichts.

Kann mir jemand weiterhelfen?

Vielen Dank im voraus

 

[Spyke]

du überschreibst immer wieder die Eigenschaft Text der Textboxen mit dem nächsten Arraywert.

Richtig müsste es denke mal so sein

textbox.Text += thearray(numberofitems) + Environment.NewLine;

zu beachten wäre += damit füge ich dem aktuelen Wert der Eigenschaft Text den Wert aus dem Array hinzu.

 

[Nico Graichen]

Ich weiß nicht, was du genau in der Funktion Split machst, aber normalerweise sollte es auch schon reichen, wenn du thetext direkt dem Text-Property zuweist.

 

[hausmeister079]

Vielen Dank @Spyke, dein Tip war genau das was ich gesucht habe.
Jetzt habe ich aber noch eine andere Frage, wie bekomme ich den Wert
einer checkbox gespeichert und wieder geöffnet?

 

[hausmeister079]

@Nico, auch dir danke für deinen beitrag, doch leider hat dein Tip nicht funktioniert. Ich habe mit Sicherheit etwas falsch gemacht.

Offtopic: Die Welt ist schon klein, habe 25 Jahre in Pulheim gelebt...

 

[Nico Graichen]

Offtopic: Die Welt ist schon klein, habe 25 Jahre in Pulheim gelebt...

hm, ich wohne dafür erst seit 5 Jahren hier