Je voudrais qu'il rajoute un item pour chaque ligne du fichier .txt
CheckedListBox1.Items.Add(File.ReadAllText("C:\Essai.txt"), False)
Mais il ne récupère que la première ligne du document.
Mr Dupont - Mathieu Mme Dupont - Mathilde Mr Durand - Paul Mme Schiffer Claudia
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'contenu du fichier complet sous forme de tableau Dim saData() As String = System.IO.File.ReadAllText("C:\tmp.txt").Split(Environment.NewLine.ToCharArray) 'pour chaque ligne For Each line As String In saData 'enlève les espaces en trop ? line = line.Trim If line.Length > 0 Then 'récupère le nom sans me prénom si on trouve bien le "-", sinon on met tout Dim iPos As Integer = line.IndexOf(" -") If iPos > 0 Then CheckedListBox1.Items.Add(line.Substring(0, iPos)) Else CheckedListBox1.Items.Add(line) End If End If Next End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click With CheckedListBox1 For i As Integer = 0 To .Items.Count - 1 If .CheckedIndices.Contains(i) Then Console.WriteLine("L'indice {0} est coché, la valeur est '{1}'", i, .Items(i).ToString) End If Next End With End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question