Discussion :

[beast]

Bonjour les amis, j'aimerais qu'on m'aide sur un problème que j'ai rencontré lors du parcours d'une table remplie par programmation.
Lors du parcours de la table à chaque passage sur une ligne il y a une condition qui selon laquelle on supprime la ligne ou non.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
n est un entier 
nNbrLigne est un entier = TableOccurrence(TABLE_LISTEDOCPERM)
POUR i = 1 _A_ nNbrLigne
     TableSelectPlus(TABLE_LISTEDOCPERM,i)
     n = TABLE_LISTEDOCPERM.COL_ID_ParentDocP
     SI n = SAI_Val ALORS
        TableSupprime(TABLE_LISTEDOCPERM,TableSelect(TABLE_LISTEDOCPERM))
        SINON
        Info("Non")	
     FIN	
FIN

Le code ne s’exécute pas comment je le souhaite d'aider moi s'il vous plait

[rudolfrudolf]

Bonjour Beast,

Tout d'abord quand tu postes un code pour demande d'aide n'oublie pas d'utiliser les balises # ça rend le code lisible

je reprends ton code en y mettant des balises tu vas voir la différence.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
n est un entier 
nNbrLigne est un entier = TableOccurrence(TABLE_LISTEDOCPERM)
POUR i = 1 _A_ nNbrLigne
     TableSelectPlus(TABLE_LISTEDOCPERM,i)
     n = TABLE_LISTEDOCPERM.COL_ID_ParentDocP
     SI n = SAI_Val ALORS
        TableSupprime(TABLE_LISTEDOCPERM,TableSelect(TABLE_LISTEDOCPERM))
        SINON
        Info("Non")	
     FIN	
FIN

Ensuite tu dis que le résultat n'est pas celui que tu attends à l'exécution - mais encore ? peux tu préciser stp.

[Narwe]

Le code ne supprime qu'une ligne sur deux.
En effet, on imagine une table de 3 lignes.
L'indice i de la boucle POUR va donc prendre successivement les valeur 1, 2 puis 3.

Au premier passage, i=1, on supprime la première ligne, la table ne contient plus que 2 lignes.
Au deuxième passage, i=2, on supprime donc la 2e ligne de la table (qui était la 3e ligne au début du parcours). La table ne contient plus qu'une ligne.
Au troisième passage, i=3, et je suppose que le TableSelectPlus et le test qui suit doivent indiquer un "non" (voir planter le programme).

C'est un problème classique que tout le monde a rencontré au moins 1 fois dans sa vie de développeur.

La solution la plus simple est de modifier la boucle pour partir de la dernière ligne et remonter la table

Code :

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

POUR i=nNbrLigne _A_ 1 PAS -1

[beast]

Tout d'abord merci d'avoir répondu, Comme vous l'aviez remarquer il y a une condition:

Code :

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

1
2
3
4
5
6
 
     SI n = SAI_Val ALORS
        TableSupprime(TABLE_LISTEDOCPERM,TableSelect(TABLE_LISTEDOCPERM))
        SINON
        Info("Non")	
     FIN

la condition s’exécute pas comme je le souhaite quand la condition est vérifié une fois il y a un décalage dans le parcours il saute la prochaine ligne
Par exemple si il y a 4 ligne dans la table et que la ligne N°1 et N° 2 doivent vérifier la condition pendant le parcours la première sera supprimé mais il vas sauter la seconde qui normalement doit vérifié la condition pour aller sur la ligne N°3.

[beast]

Le code ne supprime qu'une ligne sur deux.
En effet, on imagine une table de 3 lignes.
L'indice i de la boucle POUR va donc prendre successivement les valeur 1, 2 puis 3.

Au premier passage, i=1, on supprime la première ligne, la table ne contient plus que 2 lignes.
Au deuxième passage, i=2, on supprime donc la 2e ligne de la table (qui était la 3e ligne au début du parcours). La table ne contient plus qu'une ligne.
Au troisième passage, i=3, et je suppose que le TableSelectPlus et le test qui suit doivent indiquer un "non" (voir planté le programme).

C'est un problème classique que tout le monde à rencontré au moins 1 fois dans sa vie de développeur.

La solution la plus simple est de modifier la boucle pour pour partir de la dernière ligne et remonté la table

Code :

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

POUR i=nNbrLigne _A_ 1 PAS -1

Je viens de tester votre code et le problème est résolu. Grand merci pour votre aide.
Et Merci à tout ceux qui ont bien voulu m'aider

[Invité]

Bonjour,

Là comme ça, je ferais ceci :

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
n est un entier 
nNbrLigne est un entier = TableOccurrence(TABLE_LISTEDOCPERM)
tabLignesASupprimer est un tableau d'entiers
POUR i = 1 _A_ nNbrLigne
     TableSelectPlus(TABLE_LISTEDOCPERM,i)
     n = TABLE_LISTEDOCPERM.COL_ID_ParentDocP
     SI n = SAI_Val et TableauCherche(tabLignesASupprimer, TableSelect(TABLE_LISTEDOCPERM))=-1  ALORS
        Ajoute(tabLignesASupprimer, TableSelect(TABLE_LISTEDOCPERM))
      FIN	
FIN
TableauTrie(tabLignesASupprimer, ttDécroissant)
si tabLignesASupprimer..Occurrence>0 Alors
     Info("Je supprime les lignes = "+TableauVersChaîne(tabLignesASupprimer, ", "))
Sinon
     Info("Je n'ai aucune ligne à supprimer")
fin

Les lignes à supprimer sont-elles celles attendues?