Récupérer données et les inscrire dans ma ListBox

Version imprimable

Bonjour,
Je suis novice en VB.NET et je suis entrain de développer ma propre application. Cependant j'ai un problème, comment faire pour récupérer les données d'un fichier txt et les inscrire das ma ListBox ?
Je récupère les données :
Code:

1 2 3 4 5 webRequest = webRequest.Create("http://forum-racacax.ga/allfrtv/chnlist.txt") webresponse = webRequest.GetResponse() inStream = New StreamReader(webresponse.GetResponseStream()) chn = inStream.ReadToEnd() ListBox1.Items.Insert(0, chn)
Mais à la dernière ligne, au lieu de mettre à chaque ligne, chaque Item, il me met tout sur la même ligne.
Autre question, comment exécuter ce code au démarrage de l'application ? Car pour l'instant, je suis obligé de cliquer sur un bouton pour le démarrer.
Merci d'avance

Salut pour bien faire la séparation du saut de ligne utilise :

Code:

Replace(Convert.ToChar(10), vbCrLf)

Pour le lancer au démarrage de ton application met le tout dans l'événement 'Load' de ta form.

Voici ce que j'aurais fait, reste à adapter pour la listbox :
Code:

1 2 3 4 5 6 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim client As WebClient = New WebClient 'on recupere le fichier distant Dim chaine As String = client.DownloadString("http://forum-racacax.ga/allfrtv/chnlist.txt").Replace(Convert.ToChar(10), vbCrLf) TextBox1.Text = chaine.ToString End Sub

27/03/2016, 11h12
racacax

Merci, tu as déjà réussi à régler le problème pour démarrer automatiquement la manip. Cependant, c'est bien la manip pour l'adapter à la ListBox qui m'embête. Et je ne vois pas comment :? .
Une idée ?

avec un tableau, tiens j'ai bricolé ca regarde si ca te convient, et surtout si tu comprend le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim client As WebClient = New WebClient
        'on recupere le fichier distant
        Dim chaine As String = client.DownloadString("http://forum-racacax.ga/allfrtv/chnlist.txt").Replace(Convert.ToChar(10), vbCrLf)
        'on met dans le tableau chaque ligne avec pour séparateur le saut de ligne
        Dim lignes() As String = Split(chaine, vbCrLf)
        'on balaye le tableau nouvellement crée pour l'affecter a la listbox
        For i As Integer = 0 To lignes.Length - 1
            ListBox1.Items.Add(lignes(i).ToString)
        Next
    End Sub

27/03/2016, 11h34
racacax

Merci beaucoup :D . Ca fonctionne parfaitement !