Discussion :

[racacax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gastoncs]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[gastoncs]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[racacax]

Merci beaucoup . Ca fonctionne parfaitement !