Rcitextbox geeft ongewenste weergave in listbox

Status
Niet open voor verdere reacties.

bonnowagt

Gebruiker
Lid geworden
7 dec 2006
Berichten
445
Ik heb het volgende probleem. Ik heb een string met textbox1, textbox2, textbox3, richtextbox1, richtextbox2 enz.
Deze worden aan de listbox1 toegevoegd:

Code:
   ListBox1.Items.Add(textbox1.text + "#"+textbox2.text + "#"+ textbox3.text+ "#"+richtextbox1.text + "#"+richtextbox2.text )

Vervolgens save ik de listbox als volgt:

Code:
Dim i As Integer
            Dim w = New IO.StreamWriter("text.txt")
            For i = 0 To ListBox1.Items.Count - 1
         w.WriteLine(ListBox1.Items.Item(i))
            Next
            w.Close()

Dit lukt ook prima komt in het kladblok als 1 regel te staan.

Echter bij het uitlezen, dat ik als volgt doe

Code:
 Dim r = New IO.StreamReader("text.txt")
            While (r.Peek() > -1)
                ListBox1.Items.Add(r.ReadLine)
            End While
            r.Close()
werkt het niet en wordt het niet allemaal ingelezen en krijg de foutmelding matrix enz. Inmiddels kwam ik erachter dat dit komt door het feit dat ik tekst in de richtextboxen niet aan elkaar doorschrijf maar een regel oversla soms en ook een enter geef
In de listbox staan dus van 1 item soms drie regels.

Voorbeeld richtextbox: email1
email2
Dit komt dan ook in de listbox te staan op twee regels, dus twee items en logisch dat de index enz een foutmelding geeft
Ik heb geprobeerd dit op te lossen door een stukje code zoals bovengenoemd weer te geven

Code:
 While ListBox1.Items.Item(i).Contains("  ")
                    ListBox1.Items.Item(i) = ListBox1.Items.Item(i).Replace("  ", " ")
                End While

Dus de code werd:
Code:
dim i As Integer
            Dim w = New IO.StreamWriter("text.txt")
            For i = 0 To ListBox1.Items.Count - 1

                While ListBox1.Items.Item(i).Contains("  ")
                    ListBox1.Items.Item(i) = ListBox1.Items.Item(i).Replace("  ", " ")
                End While
                w.WriteLine(ListBox1.Items.Item(i))
            Next
            w.Close()
[/CODE]

Gaf hetzelfde resultaat. Wat kan ik nog doen
 
Geen idee wat je bedoelt met: "en krijg de foutmelding matrix enz.".
Laat zien wat de exacte complete foutmelding is en plaats tevens dat voorbeeld text.txt bestandje hier.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan