Ajouter du contenu à un Combobox grâce à un document texte

[invite668e064f]

Bonjours tout le monde il y a plusieurs jours que je travail sur un logiciel et je suis bloquer aujourd'hui car je voudrais faire lire un Combobox un fichier txt stocker en ligne le stockage et la lecture fonctionne parfaitement mais quand je veux faire lire mon fichier txt le Combobox me marque ceci :

adminarnoid

Au lieu de marquer ceci :

admin
arnoid

Je ne sais pas quel code utiliser, j'ai déjà utiliser cette façon :

Dim MAJ As New WebClient
          Dim Liste As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/cb17lpwcngmwo7n/Listaccept.txt")    ' mon fichier txt en ligne
          Dim nbr_ligne As Integer = 0
          Dim ligne As String
          Dim sr As New StreamReader(Liste)
        


          While sr.Peek <> -1
              nbr_ligne += 1
              ligne = sr.ReadLine()
          ComboBox1.Items.Add(Ligne)
         End While

Mais cela ne marche pas


Merci d'avance !!
-----

[invite668e064f]

Dsl j'ai oublier de préciser que je programme en vb.net

[bisou10]

Tu t'emmeles les pinceaux. Tu ouvres un fichier comme une chaine, et après tu utilises un streamreader sur ta chaine, mais le streamreader ne va pas te découper ta liste.

Si tu veux que ca marche, Liste doit être un StreamReader.

A mon avis tu utilises un code trouvé sur le net que tu ne comprends pas, parce que tu t'embètes pour rien. Un SR sur ton fichier, un Split() et un data binding sur ta ComboBox et roule.

[invite668e064f]

Merci je vais essayer je ne suis pas sur d'avoir compris mais j'essaye et je te dit les resultats.

[A voir en vidéo sur Futura]

[invite668e064f]

Enfaîte je n'ai as réussi(compris)

[bisou10]

Je ferais pas comme ça mais ca peut marcher ça (syntaxe approximative selon mes souvenirs...)

Dim sr as New StreamReader()
sr = My.Computer.FileSystem.OpenTextFileReader("C:\\monfichier.txt")

While sr <> EOF 
     ComboBox1.Items.Add(sr.ReadLine())
Wend


sr.Dispose();

[invite668e064f]

J'ai essayer mais plusieurs erreurs sont apparues :

Erreur 1 La résolution de surcharge a échoué, car aucun 'New' accessible n'accepte ce nombre d'arguments.

Erreur 2 Argument non spécifié pour le paramètre 'FileNumber' de 'Public Function EOF(FileNumber As Integer) As Boolean'.


code entier :

Imports System.Net
Imports System.IO

Public Class Form2
    Dim touche

    Sub Truk()
        Dim MAJ As New WebClient   
        Dim Liste As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/cb17lpwngmwo7n/Listaccept.txt")

        Dim sr As New StreamReader()                                                      'erreur 1
        sr = My.Computer.FileSystem.OpenTextFileReader(Liste)

        While sr <> EOF()                                                                         'erreur 2
            ComboBox1.Items.Add(sr.ReadLine())
        End While


        sr.Dispose()

    End Sub

    Sub Admin()
        Dim MAJ As New WebClient
        Dim motdp As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/aeifvgnd280zrm/admin.txt")
        If ComboBox1.Text = "admin" Then
            If motdp = TextBox1.Text Then
                Form3.Show()
                Me.Close()
            Else
            End If
        Else
        End If
    End Sub

    Sub User1()
        Dim MAJ As New WebClient
        Dim motdp As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/7a0hg8xzvd5w2/user1.txt")
        If ComboBox1.Text = "user1" Then
            If motdp = TextBox1.Text Then
                Form3.Show()
                Me.Close()
            Else
            End If
        Else
        End If
    End Sub

    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Truk()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Admin() 'ajoute ici les new users
        User1()

    End Sub
End Class

merci d'avance

[bisou10]

Crée un fichier C:\test.txt contenant:

ItemA
ItemB
ItemC

Et ensuite:

Dim sr As New StreamReader("C:\test.txt")
		
While sr.EndOfStream <> True
	ComboBox1.Items.Add(sr.ReadLine())
End While
			
sr.Dispose()

[invite668e064f]

Merci beaucoup d'avoir répondu aussi vite et d'avoir répondu tout court