[VB.NET]

[TF-ART]

Hallo Community,

ich brauche ganz dringend hilfe...

Ich habe 2 Probleme.



1. Wie kann ich eine Listbox in einer Textdatei speichern... Also wenn ich z.B. in der Listbox 123 und 1234 untereinander habe, das dieses auch untereinander in der Textbox gespeichert wird... Und wie kann ich diese dann wieder so auslesen, das das wieder in der Listbox untereinander ausgegeben wird ?

2. Wie kann ich es schaffen, das wenn ich in der einen Textbox "123" reinschreibe, das in der anderen Textbox "ABC" ausgegeben wird... Ich weiß das es mit replace gemacht wird, doch bisher wurde nur der letzte Buchstabe ersetzt..



Vielen Dank schonmal für die Hilfe





Freundliche Grüße
Turbo-Fire

[Kraizy​]

Zu beiden: Schleifen nutzen. Textdatei speichern/laden mit StreamWriter/Reader.

[master_oli]

ich kann es dir leider nur in C# sagen hoffe es hilf abe trotzdem weiter
C# und VB.Net sind ja in einige sachen gelich

using (SaveFileDialog sF = new SaveFileDialog())
            {
                sF.Filter = "Text Files|*.txt|All Files|*.*";
                if (sF.ShowDialog() == System.Windows.Forms.DialogResult.OK)
                {
                    int proxyCount = checkedList.Items.Count;

                    foreach (String s in checkedList.Items)
                    {
                        try
                        {
                            File.WriteAllLines(sF.FileName, checkedList.Items.Cast<string>());
                        }
                        catch (Exception exc)
                        {
                            MessageBox.Show(exc.ToString());
                        }
                    }
                }
            }

['Heaven.]

Zum Speichern:

    Public Function SaveListbox()
        Try
            Dim sav As New SaveFileDialog
            sav.Filter = "Textdatei|*.txt"

            If sav.ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim text As String = ""
                For Each Item As String In ListBox1.Items
                    text &= vbCrLf & Item
                Next
                IO.File.WriteAllText(sav.FileName, text)
                Return True
                GoTo 1
            End If
        Catch ex As Exception
            Return False
        End Try
        Return False
1:
    End Function

Zum Auslesen:

 Private Sub listboxload(ByVal Path As String)
        Try
            For Each Text As String In IO.File.ReadAllText(Path).Split(Chr(13) & Chr(10))
                ListBox1.Items.Add(Text)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString(), "Error")
        End Try
    End Sub