Discussion :

[kitcarflo]

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 :

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

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

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

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

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

[kitcarflo]

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 :

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

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.

[rv26t]

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

Code :

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

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 ?

[kitcarflo]

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 .

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é 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

Merci pour ton aide.