Ik heb het volgende probleem. Ik heb een string met textbox1, textbox2, textbox3, richtextbox1, richtextbox2 enz.
Deze worden aan de listbox1 toegevoegd:
Vervolgens save ik de listbox als volgt:
Dit lukt ook prima komt in het kladblok als 1 regel te staan.
Echter bij het uitlezen, dat ik als volgt doe
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
Dus de code werd:
[/CODE]
Gaf hetzelfde resultaat. Wat kan ik nog doen
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()
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()
Gaf hetzelfde resultaat. Wat kan ik nog doen