[Débutant] Extraire les données UNIQUE d'une colonne de listView

Extraire les données UNIQUE d'une colonne de listView

Bonjour.

J'ai une listView qui comprend 2 colonnes. La première colonne est unique pour chaque enregistrement. La deuxième colonne peux recevoir des données identiques. Voici un exemple ci-dessous :

Colonne 1 - Colonne 2
1 DS5
2 DS4
3 DS3
4 C4
5 DS4
6 DS3
7 C4

Ce que j'aimerais c'est dans une combobox récupérer (DS5 - DS4 - DS3 - C4).

Pour le moment je fais une boucle sur la listView, a chaque données lu, je vais lire un fichier ini, et si la donnée existe dans le fichier ini, je passe à la donnée suivante sinon j'inscrit la donnée dans le fichier ini. Mais ça ne marche pas. Je récupère "DS5" est puis pas plus.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 For I = 0 To (Nb_item - 1) voiture = Me.ListView.Items.Item(I).SubItems.Item(5).Text For J = 1 To 1000 val_ini = Cls_Ini.INIRead(Lien_ini, "Voiture", "V" & I) If val_ini = voiture Then O_N = "0" Exit For ElseIf val_ini = "" Then O_N = "1" Val_J = J Exit For End If Next J If O_N = "1" Then Cls_Ini.INIWrite(Lien_ini, "Voiture", "V" & Val_J, voiture) End If Next I
Quelqu'un à une idée pour que j'arrive à récupérer les données ?

Merci

Bonjour,

Je n'ai pas approfondi ton algo, mais ta boucle For J = 1 To 1000 ne sert à rien
Tu lis 1000 fois Cls_Ini.INIRead(Lien_ini, "Voiture", "V" & I)
Par rapport à ton exemple de liste tu lis 1000 fois les 7 premières lignes du fichier ini.
Ce doit être J

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    For I = 0 To (Nb_item - 1)
            voiture = Me.ListView.Items.Item(I).SubItems.Item(5).Text
             For J = 1 To 1000
                val_ini = Cls_Ini.INIRead(Lien_ini, "Voiture", "V" & J)
 
                If val_ini = voiture Then
                    Exit For
                ElseIf val_ini = "" Then
                    Cls_Ini.INIWrite(Lien_ini, "Voiture", "V" & J, voiture)
                    Exit For
                End If
            Next J
    Next I

Après, je n'ai pas approfondi s'il y avait autre chose

Citation:
Envoyé par rv26t
Bonjour,

Je n'ai pas approfondi ton algo, mais ta boucle For J = 1 To 1000 ne sert à rien
Tu lis 1000 fois Cls_Ini.INIRead(Lien_ini, "Voiture", "V" & I)
Par rapport à ton exemple de liste tu lis 1000 fois les 7 premières lignes du fichier ini.
Ce doit être J
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 For I = 0 To (Nb_item - 1) voiture = Me.ListView.Items.Item(I).SubItems.Item(5).Text For J = 1 To 1000 val_ini = Cls_Ini.INIRead(Lien_ini, "Voiture", "V" & J) If val_ini = voiture Then Exit For ElseIf val_ini = "" Then Cls_Ini.INIWrite(Lien_ini, "Voiture", "V" & J, voiture) Exit For End If Next J Next I
Après, je n'ai pas approfondi s'il y avait autre chose
Dans ma logique, je ne sait pas faire encore la boucle, "Tant que" du coup,,,

For J = 1 to 1000 <== me permet de lire dans le INI jusqu'à 1000 valeur et un peu plus loin, je dis que si la valeur lu = rien alors tu arrête le "For". C'est en gros un "Tant que" détourner. Pas class, mais généralement ça marche. ;);)

Citation:

Envoyé par kitcarflo

For J = 1 to 1000 <== me permet de lire dans le INI jusqu'à 1000 valeur et un peu plus loin

Ben pas dans le code que tu as écrit, il ne lit que les 7 premières lignes du fichier ini 1000 fois chacune, comme je te l'explique dans mon post précédant.
Dans ton code
Citation:
Envoyé par kitcarflo
Code:

1 2 For J = 1 To 1000 val_ini = Cls_Ini.INIRead(Lien_ini, "Voiture", "V" & I) ' ici erreur c'est J pas I
As tu testé mon code avec J à la place de I ?
Cela fonctionne-t-il maintenant ?

Citation:

Envoyé par rv26t

Ben pas dans le code que tu as écrit, il ne lit que les 7 premières lignes du fichier ini 1000 fois chacune, comme je te l'explique dans mon post précédant.
Dans ton code

As tu testé mon code avec J à la place de I ?
Cela fonctionne-t-il maintenant ?

Bon ben voilà c'est réglé, l'erreur dans mon code était le I que j'ai écris au lieu du J. J'ai corrigé et sa marche :lol::lol::lol::lol:.

C'est le plus gros problème dans les progs, trouver les erreurs comme cela. Des fois tu bloques sur un bout de code pendant 1h00 à cause d'une erreur à la c... Et c'est dur des fois de la trouvé :mrgreen: et à un moment tu te dis, mais attend, j'ai mis "s" au lieu de "e" ou dans mon cas présent "i" au lieu de "j". Et voilà 1h00 perdu :lol::lol::lol:

Merci pour ton aide.