Discussion :

[caln50]

Bonjour je suis entrain de concevoir un programme dans vb.net qui va me permettre d'aller lire dans un fichier et de mettre les element de ce fichier dans un combobox.
voici par exemple ce que j'ai dans mon fichier

abdou 12 14
abdou 15 19
cheikh 12 3
tima 6 9
patrick 7 9
ect....

je voudrais faire un tri pour juste les nom mais les les chiffre et les afficher dans un combobox et qu'un nom doit etre affiché une seule fois dans le combo box

[Uranne-jimmy]

Tu pourrais redonner ta dernière phrase plus clairement, j'ai pas compris ce que tu voulais Oo

[rv26t]

Bonjour,

Voici une solution

Vous faites une classe représentant la structure de votre fichier.
Vous lisez le fichier et créez une liste de cette classe.
Vous faite une extraction des info voulues depuis cette liste.

La classe

Code :

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

1
2
3
4
5
6
7
8
9
10
    Class LigneFichier
        Property Nom As String
        Property chiffre1 As Integer
        Property chiffre2 As Integer
        Sub New(unNom As String, unChiffre1 As Integer, unChiffre2 As Integer)
            Nom = unNom
            chiffre1 = unChiffre1
            chiffre2 = unChiffre2
        End Sub
    End Class

Le traitement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim LstLignes As List(Of LigneFichier) = New List(Of LigneFichier)
 
    Private Sub btnLitFic_Click(sender As System.Object, e As System.EventArgs) Handles btnLitFic.Click
        ' lecture fichier et constitution de la liste
        For Each ligne As String In File.ReadAllLines("D:\data\fichiers\fic.txt")
            LstLignes.Add(New LigneFichier(ligne.Split()(0), ligne.Split()(1), ligne.Split()(2)))
        Next ligne
        ' rempli la combobox (possible aussi avec une listbox)
        For Each UnNomUnique In (From element In LstLignes Select element.Nom Distinct)
            ComboBox1.Items.Add(UnNomUnique)
        Next
    End Sub

N'oubliez pas

Code :

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

1
2
Imports System.IO
Imports System.Linq

[Edit]Vous pouvez même trier par nom en ajout un order by sur le nom.[/Edit]

[caln50]

merci de votre solution mais le mon vb.net ne reconnait pas cette ligne LstLignes.Add(New LigneFichier(ligne.Split()(0), ligne.Split()(1), ligne.Split()(2)))

est ce que ya une autre methode bcp plus simple comme par exemple utiliser les tableau ds vb

[callo]

merci de votre solution mais le mon vb.net ne reconnait pas cette ligne LstLignes.Add(New LigneFichier(ligne.Split()(0), ligne.Split()(1), ligne.Split()(2)))

rv26t a peut-être voulu écrire:

Code :

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

LstLignes.Add(New LigneFichier(ligne.Split(0), ligne.Split(1), ligne.Split(2)))

[_Ez3kiel]

est ce que ya une autre methode bcp plus simple comme par exemple utiliser les tableau ds vb

Je déconseille en règle générale les tableaux, et encore plus pour ton cas à toi qui vise à récupérer une liste d'items depuis un fichier texte.
Un tableau a une taille définie, or toi depuis ton fichier texte ce n'est peut-être pas le cas (ou peut-être pas dans le futur)

Ce serait plus simple à gérer depuis des collections.
(Et même gérer des List(Of LigneFichier))

rv26t a peut-être voulu écrire:

Code :

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

LstLignes.Add(New LigneFichier(ligne.Split(0), ligne.Split(1), ligne.Split(2)))

Je ne pense pas, Split() renvoit un tableau de chaînes de caractères donc le chiffre est l'index du tableau, mais ce qu'il manque est peut-être le caractère séparateur requis par l'utilisation de Split.

Code :

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

LstLignes.Add(New LigneFichier(ligne.Split(" ")(0), ligne.Split(" ")(1), ligne.Split(" ")(2)))

Sur ce principe, pour la ligne en cours de lecture, on split la ligne à chaque caractère "espace" (" ")

Ce qui donne avec l'exemple de caln50 (abdou 15 19) :

Un tableau qui contient :
Index 0|abdou|
Index 1|15|
Index 2|19|

Et rv26t passe ensuite ces valeurs du tableau dans le constructeur de la classe LigneFichier afin que les properties soient chargés directement. (D'ailleurs les 2 des 3 properties sont en Integer, ne faut-il pas parser le retour du tableau de split à l'index 1 et 2 ?)

Soit :

Code :

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

1
2
3
      If Integer.TryParse(ligne.Split(" ")(1), 0) And Integer.TryParse(ligne.Split(" ")(2), 0) Then
            LstLignes.Add(New LigneFichier(ligne.Split(" ")(0), Integer.Parse(ligne.Split(" ")(1)), Integer.Parse(ligne.Split(" ")(2))))
        End If

[rv26t]

merci de votre solution mais le mon vb.net ne reconnait pas cette ligne LstLignes.Add(New LigneFichier(ligne.Split()(0), ligne.Split()(1), ligne.Split()(2)))

est ce que ya une autre methode bcp plus simple comme par exemple utiliser les tableau ds vb

Merci de préciser l'erreur.
Le code présenté fonctionne avec la version 2010 (J'avais testé avant de poster. Voir fichier en pièce jointe (listbox et combobox))
Avec .NET l'utilisation de collection est conseillé. Autant s'habituer dés le début. De plus une solution avec des tableaux ne sera pas forcément plus simple, ce sera différent.

Ce serait plus simple à gérer depuis des collections.
(Et même gérer des List(Of LigneFichier))

Ce que j'ai proposé dans mon code.

Je ne pense pas, Split() renvoit un tableau de chaînes de caractères donc le chiffre est l'index du tableau, mais ce qu'il manque est peut-être le caractère séparateur requis par l'utilisation de Split.

Par défaut la méthode Split utilise l'espace comme caractère séparateur.
Donc écrire ligne.Split() est la même chose que ligne.Split(" ")Les éléments (0), (1) et (2) accolé derrière Split() sont effectivement les indices du tableau. Et donne le résultat décrit par _Ez3kiel.
Cela évite de créer un tableau, puis de le parcourir ; On accéde directement à l'indice voulu.

Et rv26t passe ensuite ces valeurs du tableau dans le constructeur de la classe LigneFichier afin que les properties soient chargés directement. (D'ailleurs les 2 des 3 properties sont en Integer, ne faut-il pas parser le retour du tableau de split à l'index 1 et 2 ?)

Vb effectue des conversions implicites, mais effectivement il est préférable et conseillé de gérer ces conversions comme le souligne _Ez3kiel.

Pour finir, une requête Linq extrait les noms de façon unique de notre liste d'instance de classe LigneFichier. La boucle For Each permet le parcours de ceux-ci et les ajoutes dans la ComboBox.