Connaitre le nombre de subitems différents dans une listviewRésolu

Question

Bonjour,

Je Possede une listview à 2 colonnes dans la premiére j' ai des articles et dans la deuxieme des references.

J' aurais aimais savoir comment compter les subitems différents ( donc les references )?
La ou je n' y arrive pas c' est pour faire une boucle pour controler toute la listview car une même référence peut se trouver n'importe où et donc il ne faut pas la recompter si celle-ci l' a déja était.

Merci par avance.



Fripouil

ucfoutu · Accepted Answer

et presque la même vitesse fulgurante avec une collection
Dim toto As New Collection
 For i = 0 To List1.ListCount - 1
     On Error Resume Next
     toto.Add "", List1.List(i)
   Next
   MsgBox toto.Count



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

scromania · Answer

bonjour,

Tu peux trié ta listview puis ensuite bouclé et comptabilisé.

ucfoutu · Answer

Bonjour,
Je te conseille dans un tel cas et sans la moindre hésitation l'utilisation d'un dictionnaire.
Il te permettra de ne boucler qu'une seule fois et de comptabiliser dans la foulée chaque subitem différent.
D'une énorme souplesse et rapidité.
Ouvre ton aide (MSDN) sur le mot Dictionary 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Renfield · Answer

HashTable dans le cas présent, ucfoutu, en .Net

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

Renfield · Answer

y'a surement une expression LINQ qui pourrait faire l'affaire, là que j'y pense....

à voir.

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

cs_Fripouil · Answer

Bonjour et merci d' avoir répondu.

J' ai regardé  ce qu' était une hashtable sur google avec quelques exemples, il a l' air vrai que cela puisse me servir mais étant donné que je suis un "débutant", cela me semble plus compliqué.
Mon idée était de faire une boucle, mémoriser les différentes références puis de les compter mais c' est justement là que je bloque car le seul code que j' ai réussi à pondre était de faire une boucle en vérifiant les subitems et si le subitem x était différent de subitem x - 1 alors un label s' incrémenté de 1 mais biensûr si plus loin dans ma list il y' avait à nouveau une référence déja "vérifier" il me la recomptait ( la solution dans ce cas est de trier ma listview ) mais mon code ne me paraissait pas trés propre d' autant que sur les 106 références pour le moment, il n' en comptait que 105.
Si vous pouvez plus m' aider, mercie encore...

Fripouil

ucfoutu · Answer

Je trouve que tu te compliques bien la tâche, pour ne pas vouloir apprendre (hashtable ou dictionary : même combat)
Mais si tu tiens tellement à te torturer avec tes boucles :
Amuse-toi, mais ainsi (pour ne pas recompter ce que tu as déjà compté) :
A chaque fois que tu rencontres un article identique ==>> tu incrémentes le compteur de 1, tu sors et reprends ta boucle, mais à une ligne en dessous.
Un travail de fou (tant en boucle, que pour garder en mémoire autant de compteurs que d'articles différents)!
Mais c'est ton choix... Alors ... vas-y 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

ou encore (un peu moins fou, mais toujours pas sage)
Pour chaque article "lu" non vide ==>> faire toute la boucle, comptabiliser les correspondances et les mettre toutes à vide.
Donc une boucle dans la boucle. Mais alors : sur une copie de ta listview , hein (si tu ne veux pas en perdre les données).
Tout cela n'est pas sérieux.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_Fripouil · Answer

Oui, je suis sur que tu as raison, je n' en doute pas une seule seconde, le probléme est que je n' y connais pas grand chose et que malgré les exemples que j' ai trouvé aucuns ne me semblent assez explicite pour l' adapter à ce que je veux faire.
Donc y' a comme un dilemme...

Fripouil

Renfield · Answer

à corriger... j'ai écrit ca de tête, mais en gros, c'est ce que tu cherches :

Dim h as new HashTable
For Each Item as ListItem
    If Not h.Contains(Item.ToString) Then
        h.Add Item.ToString
    End If
Next Item
MessageBox.Show h.Count.ToString()

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

ucfoutu · Answer

Bonjour, Renfield
J' aurais aimais savoir comment compter les subitems différents

est interprété par moi différemment, cependant.
Toi, tu comptes combien il y a d'articles distincts
Moi, j'ai cru comprendre qu'il voulait le nombre d'articles correspondant à chaque article distinct.
Mais tu as peut-être mieux deviner le but, après tout.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Renfield · Answer

ah, peut etre
enfin le fond du probleme n'est pas vraiment là

le listview n'est normallement là que pour l'affichage...

les requetes, extractions etc

sont a faire sur la sources des données...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

cs_Fripouil · Answer

Bonsoir et merci pour ton aide.
Je vais te déranger un petit peu encore si tu me le permets

Pourrais je avoir des explications sur ton code que je comprenne bien et que cela me reserve dans l' avenir ?

Merci encore


Fripouil

LIBRE_MAX · Answer

Bonsoir,

Pourquoi ne pas utiliser un tableau.
L' initialiser avec le premier élélément de la listview.
Et pour chaque élément de la listview, le comparer avec les éléments du tableau.
S' il n' y est pas l' ajouter, sinon passer à l' élément suivant.
Au final, le nombre des subitems différents est le nombre
des éléments ajoutés au tableau.




[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

Fripouil vient d'écrire dans un doublon de ce "post" :
J essaie de faire des boucles dans tous les sens ça rame et en plus cela ne fonctionne pas

Il veut donc faire cela à tout prix à laide de boucle (un dico serait mieux, mais bon ...)
On aurait quand-même aimé voir quelques lignes du ode qu'il a tenté. Mais bon ...
En voilà le mécanisme, donc (fort simple), en langage naturel.
Pour I = 0 jusqu'au dernier
   compteur = compteur + 1
   pour J = I + 1 jusqu'au dernier
      si article J article I alors compteur compteur - 1 et quitter cette boucle J
   J suivant
I suivant
Compteur contiendra ainsi bien évidemment forcément le nombre d'articles différents.
A Fripouil d'écrire son code sur cette base fort simple.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

LIBRE_MAX · Answer

Bonsoir, 

ucfoutu: la solution qui consiste à comparer un item avec les suivants ne fonctionne pas si on prend son exemple.
Le dernier "AA" n' a pas son pareil dans ce qui suit.Pourtant un "AA" se trouve en haut de la liste.Et il a déjà été comparé.Ce qu' il faudrait c' est comparer chaque item avec toute la liste.
Ma somution du tableau est la plus judicieuse.
Le nombre d' itération y est moindre.




[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

Bonsoir, LIBRE_MAX
La solution la plus judicieuse est l'utilisation d'un dico, tout simplement (déjà dit). Ou même (mais faut alors une gestion d'erreur : une collection. Ou même (encore) trier (et du coup : une seule boucle suffit.
Ta remarque, par contre est totalement infondée 
Je pense que tu n'as pas capté le principe du compteur 
Essaye donc.



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

c'est ce que je souligne ici, qui t'a probablement échappé :
si article J article I alors compteur  compteur - 1 et   quitter cette boucle J  


____________________
Réponse exacte ?   => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

LIBRE_MAX · Answer

Ta remarque, par contre est totalement infondée 

Voilà ce qui dit ton code:
Pour I = 0 jusqu'au dernier
compteur = compteur + 1
Tu incrémentes,alors que tu n' as même pas vérifié si l' item n' a pas éré déjà comptabilisé.


Voilà ce que je dis:
xitem=ListView.ListItems(i)
Redim Preserve T(1)
T(0)=xItem
Compteur=1
Pour i=2 jusqu' au dernier
  xitem=ListView.ListItems(i)
  trouv=False
  Pour j=0 jusqu' à UBound(T)-1
    Si xItem=T(j) Alors 
       trouv=True
       Exit Pour
    Fin Si
  Suivant j
  Si trouv=False Alors 
      Compteur=Compteur+1
      Redim Preserve T(Compteur)
      T(Compteur-1)=xItem
  Fin Si 
Suivant i



[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

Ah vu .
Tu as raison.
Alors : avec un dico.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

LIBRE_MAX · Answer

[i]"c'est ce que je souligne ici, qui t'a probablement échappé : 

  si article J article I alors compteur compteur - 1 et quitter   cette boucle J
  ''/i

Moi, c'est ce que je souligne ici, qui pose problème : 
Le dernier "AA" n' a pas son pareil dans ce qui suit.Pourtant un "AA" se trouve en haut de la liste.Et il a déjà été comparé..
[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

Je t'ai déjà dit que j'avais vu et constaté que tu avais raison. 

Mais je viens d'essayer avec un dico et une listbox comportant 30000 articles, pour voir.
Le résultat est atteint sans faille à la vitesse de l'éclair (moins de 1/10ème de seconde)
Je n'ai pas VB.Net, mais voilà le code VB6
  Set mondico = CreateObject("Scripting.Dictionary")
  deb = Timer
   For i = 0 To List1.ListCount - 1
     If Not mondico.exists(List1.List(i)) Then mondico.Add List1.List(i), ""
   Next
  MsgBox mondico.Count

Pour être certain d'avoir des doublons de manière aléatoire, j'ai ainsi rempli la listbox :
Randomize
 For i =  1 To  30025 
   List1.AddItem Int((1000 * Rnd) + 1)
 Next
____________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

LIBRE_MAX · Answer

>ucfoutu:
J' ai revisité ton code.
J' ai cru un moment avoir compris ta logique
et j' étais prêt à te donner raison.
Sauf que..

Pour I = 0 jusqu'au dernier
Si I au dernier,J ne peut être au dernier+1
et par conséquent article dernier+1 n' éxiste pas.

D' autre part:
i=dernier
j=dernier
On comparera alors le dernier avec lui même.

Si on corrige par :
Pour I = 0 jusqu'au dernier-1
   compteur = compteur + 1
   pour J = I + 1 jusqu'au dernier

La dernière comparaison sera entre l' avant dernier et le dernier.
Que fera t' on alors du dernier ?




[] Ce qui va sans dire. va mieux en le disant.

LIBRE_MAX · Answer

désolé !
posts croisés..


[] Ce qui va sans dire. va mieux en le disant.

ucfoutu · Answer

lorsque I = dernier, J = dernier + 1
Or, on n'entre dans une boucle For K = X to Y  sans step négatif que su Y >= X  
Ce n'est pas cela, qui m'a fait revenir en arrière, mais ta toute première remarque, fondée, par contre.
Mais on va noyer les réponses, si on s'égare.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

cs_ShayW · Answer

Salut
avec linq

 Private Function CountDistinctItem(ByVal listitem As List(Of String)) As Integer

        Dim sql = (From value As String In listitem Select value Distinct).Count
        Return sql
    End Function

Renfield · Answer

LINQ, oui, je l'avais conseillé...

j'avais aussi indiqué :

le listview n'est normallement là que pour l'affichage... 

les requetes, extractions etc 

sont a faire sur la sources des données... 

et sur ce point, pas de réponse de Fripouil...
d'ou proviennent les données affichées dans la listview ?


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

cs_Fripouil · Answer

Bonjour,

Merci à tous pour votre aide.

Pour répondre à Renfield, les données proviennent de fichiers csv.

Je remplis mes listviews de cette façon : 
Try
            ' AFFICHAGE DE LA BOITE DE DIALOGUE
            Ouvrir_Fichier_Fournisseur.ShowDialog()

            ' INDIQUE L'EMPLACEMENT DU FICHIER FOURNISSEUR DANS LE LABEL : LBL_EMPLACEMENT_FICHIER_FOURNISSEUR
            Lbl_Emplacement_Fichier_Fournisseur.Text = Ouvrir_Fichier_Fournisseur.FileName

            ' SI LE LABEL ( LBL_EMPLACEMENT_FICHIER_FOURNISSEUR ) EST RENSEIGNE
            If Lbl_Emplacement_Fichier_Fournisseur.Text <> "" Then

                ' ON VIDE LA LISTVIEW : LISTE_ARTICLES_FOURNISSEUR
                Liste_Articles_Fournisseur.Items.Clear()

                ' ON CHARGE LES DONNEES DANS LA LISTVIEW : LISTE_ARTICLES_FOURNISSEUR
                SR = New StreamReader(Lbl_Emplacement_Fichier_Fournisseur.Text, System.Text.Encoding.Default)
                Ligne = ""
                Ligne = SR.ReadLine()
                While Not Ligne Is Nothing
                    LVF = New ListViewItem
                    TAB = Ligne.Split(";")
                    LVF.Text = UCase(TAB(0).ToString.Replace(Chr(34), ""))
                    LVF.SubItems.Add(1).Text = UCase(TAB(1).ToString.Replace(Chr(34), ""))
                    LVF.SubItems.Add(2).Text = TAB(2).ToString.Replace(Chr(34), "")
                    LVF.SubItems.Add(3).Text = TAB(3).ToString.Replace(Chr(34), "")
                    LVF.SubItems.Add(4).Text = TAB(4).ToString.Replace(Chr(34), "")
                    Liste_Articles_Fournisseur.Items.Add(LVF)
                    TAB = Nothing
                    Ligne = SR.ReadLine()
                End While
                SR.Close()

Ce fameux Fichier_Fournisseur.csv contient plus de 7760 Lignes ( Articles ) sur 5 colonnes.

A l'aide des réponses fournies suite à mes questions, j' utilise ce code pour le "Comptage" : 

 ' COMPTE LE NOMBRE DE REFERENCES DIFFERENTES DANS LA LISTVIEW : FOURNISSEUR
        Dim toto As New Collection
        For i = 1 To Liste_Articles_Fournisseur.Items.Count - 1
            On Error Resume Next
            toto.Add("", Liste_Articles_Fournisseur.Items(i).SubItems(0).Text)
        Next
        Lbl_Nombre_References_Fournisseur.Text = toto.Count


Cela a l'air de fonctionner ( même si je n'ai pas vraiment compter manuellement pour vérifier ) car il me donne 3111 Références sur 7760 Articles.
Le premiére ligne de ma listview est les entêtes des Articles exemple : Référence Maitre / Déclinaison / Stock / etc donc celle ci n' a pas besoin d' être comparer.

Je ne sais pas si mon code est propre et/ou peut être optimiser mais pour l'instant cela fonctionne sans trop ramer ( 4/5 secondes pour le remplissage de mes listviews et 2 secondes pour la comptage.

En tous les cas merci vraiment à tous pour votre intérêt à mon probléme.
Fripouil

Connaitre le nombre de subitems différents dans une listview

28 réponses

Votre réponse

Discussions similaires