[VB.NET]

11/10/2012 17:21 TF-ART#1
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
11/10/2012 17:23 Kraizy​#2
Zu beiden: Schleifen nutzen. Textdatei speichern/laden mit StreamWriter/Reader.
11/10/2012 17:38 master_oli#3
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:)

Code:
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());
                        }
                    }
                }
            }
11/10/2012 19:11 'Heaven.#4
Zum Speichern:
Code:
    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:

Code:
 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