Private Sub readfile() Dim item() As String Dim iter As Integer Dim path As String = "E:\test.txt" ' à modifier selen le fichier Dim listitems As List(Of String) = System.IO.File.ReadAllLines(path).ToList For iter = 0 To listitems.Count - 1 item = listitems(iter).Split("|") ListBox1.Items.Add(item(0)) ListBox2.Items.Add(item(1)) ListBox3.Items.Add(item(2)) ListBox4.Items.Add(item(3)) Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question