Régime pour code

**Nathalie35000** · 14/10/2013, 21h37

Bonjour,

Quelqu'un aurait il une idée pour alléger ce code

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
// Supprimer toutes les lignes sélectionnées dans une table ENREG 1
i1 est un entier
NbSelection1 est un entier = TableSelectOccurrence(TABLE_EXPRESS_ENREGISTREMENT1)
POUR i1 = NbSelection1 A 1 PAS -1
	TableSupprime(TABLE_EXPRESS_ENREGISTREMENT1, TableSelect(TABLE_EXPRESS_ENREGISTREMENT1, i1))
FIN		
TableInsèreLigne(TABLE_EXPRESS_ENREGISTREMENT1, 1, "1")
TableEnregistre(TABLE_EXPRESS_ENREGISTREMENT1)	
// Supprimer toutes les lignes sélectionnées dans une table ENREG 2
i2 est un entier
NbSelection2 est un entier = TableSelectOccurrence(TABLE_EXPRESS_ENREGISTREMENT2)
POUR i2 = NbSelection2 A 1 PAS -1
	TableSupprime(TABLE_EXPRESS_ENREGISTREMENT2, TableSelect(TABLE_EXPRESS_ENREGISTREMENT2, i2))
FIN		
TableInsèreLigne(TABLE_EXPRESS_ENREGISTREMENT2, 1, "0")
TableEnregistre(TABLE_EXPRESS_ENREGISTREMENT2)	
// Supprimer toutes les lignes sélectionnées dans une table ENREG 3
i3 est un entier
NbSelection3 est un entier = TableSelectOccurrence(TABLE_EXPRESS_ENREGISTREMENT3)
POUR i3 = NbSelection3 A 1 PAS -1
	TableSupprime(TABLE_EXPRESS_ENREGISTREMENT3, TableSelect(TABLE_EXPRESS_ENREGISTREMENT3, i3))
FIN		
TableInsèreLigne(TABLE_EXPRESS_ENREGISTREMENT3, 1, "0")
TableEnregistre(TABLE_EXPRESS_ENREGISTREMENT3)	
// Supprimer toutes les lignes sélectionnées dans une table ENREG 4
i4 est un entier
NbSelection4 est un entier = TableSelectOccurrence(TABLE_EXPRESS_ENREGISTREMENT4)
POUR i4 = NbSelection4 A 1 PAS -1
	TableSupprime(TABLE_EXPRESS_ENREGISTREMENT4, TableSelect(TABLE_EXPRESS_ENREGISTREMENT4, i4))
FIN		
TableInsèreLigne(TABLE_EXPRESS_ENREGISTREMENT4, 1, "0")
TableEnregistre(TABLE_EXPRESS_ENREGISTREMENT4)	
// Supprimer toutes les lignes sélectionnées dans une table ENREG 5
i5 est un entier
NbSelection5 est un entier = TableSelectOccurrence(TABLE_EXPRESS_ENREGISTREMENT5)
POUR i5 = NbSelection5 A 1 PAS -1
	TableSupprime(TABLE_EXPRESS_ENREGISTREMENT5, TableSelect(TABLE_EXPRESS_ENREGISTREMENT5, i5))
FIN		
TableInsèreLigne(TABLE_EXPRESS_ENREGISTREMENT5, 1, "0")
TableEnregistre(TABLE_EXPRESS_ENREGISTREMENT5)	
// Supprimer toutes les lignes sélectionnées dans une table ENREG 6
i6 est un entier
NbSelection6 est un entier = TableSelectOccurrence(TABLE_EXPRESS_ENREGISTREMENT6)
POUR i6 = NbSelection6 A 1 PAS -1
	TableSupprime(TABLE_EXPRESS_ENREGISTREMENT6, TableSelect(TABLE_EXPRESS_ENREGISTREMENT6, i6))
FIN		
TableInsèreLigne(TABLE_EXPRESS_ENREGISTREMENT6, 1, "0")
TableEnregistre(TABLE_EXPRESS_ENREGISTREMENT6)

**Hemgé** · 14/10/2013, 22h13

Bonsoir,

Si j'ai bien lu, il s'agit de tables fichier, que vous videz pour y réécrire ensuite une ligne et l'enregistrer.

1. Suppression de lignes dans une table (en général)
Pour les tables fichier, attention aux répercussions sur le fichier.
TableSupprime(MaTable,NoLigne)
Si NoLigne (optionnel) n'est pas précisé, toutes les lignes sélectionnées sont supprimées.

2. Suppression de toutes les lignes dans une table mémoire.
TableSupprimeTout (MaTable) supprime toutes les lignes de la table.

Vous pourriez également jouer avec les indirections pour faire une boucle de 1 à 6 et énumérer les tables, mais je suppose que les noms de table vont être plus significatifs.
Sinon, le code serait encore plus compact puisque l'indirection serait également utilisée dans l'insertion et l'enregistrement.
Je vous laisse explorer cela.

Hemgé

**tatayo** · 15/10/2013, 08h41

Bonjour,
TalbeSupprimeTout ne peut pas être utilisé ici, car seules les lignes sélectionnées sont supprimées.

Les indirections peuvent tout à fait être utilisées, quitte à stocker dans une liste/pile les noms des tables.

Tatayo.

**Hemgé** · 15/10/2013, 09h09

Bonjour tatayo,

Envoyé par tatayo

TalbeSupprimeTout ne peut pas être utilisé ici, car seules les lignes sélectionnées sont supprimées.

Si TableSupprimeTout ne peut pas être utilisé ici c'est parce qu'on travaille avec des tables fichier et non des tables mémoire.
Par contre, cette fonction ne tient pas compte des lignes sélectionnées ou pas. Comme son intitulé - TableSupprimeTout - l'indique, à la différence de TableSupprime, elle supprime toutes les lignes et elle n'attend d'ailleurs que le nom de la table comme paramètre.

Hemgé

**tatayo** · 15/10/2013, 09h23

Je pense que je me suis mal exprimé (manque de café !).
Dans le code présenté, seules les lignes sélectionnées doivent être supprimées.
Je n'avais pas percuté sur le côté table mémoire/fichier, vu que je n'utilise que les premières (pas d'analyse, pas de fichier HF).

Donc en fait on est d'accord: pas de TableSupprimeTout !

Tatayo.

**michel.souris** · 15/10/2013, 09h49

Vous pourriez également déclarer un seul i et un seul NbSelection.... et en début de script c'est plus lisible.... sinon, plus radical, factorisez !

**laurent30s** · 15/10/2013, 10h07

Si le code fait bien le job, il suffit de passer par les indirections comme l'a suggéré Hemgé

Code :

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

1
2
3
4
5
6
7
8
9
10
i,j,NbSelection sont des entiers
POUR i = 1 A 6
        // Supprimer toutes les lignes sélectionnées dans des tables ENREG 1 à 6
        NbSelection1 = TableSelectOccurrence({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp})
        POUR j = NbSelection1 A 1 PAS -1
                TableSupprime({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}, TableSelect({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}, j))
        FIN             
        TableInsèreLigne({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}, 1, "1")
        TableEnregistre({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp})  
FIN

**Hemgé** · 15/10/2013, 10h42

Envoyé par laurent30s

Si le code fait bien le job, il suffit de passer par les indirections comme l'a suggéré Hemgé

Code :

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

1
2
3
4
5
6
7
8
9
10
i,j,NbSelection sont des entiers
POUR i = 1 A 6
        // Supprimer toutes les lignes sélectionnées dans des tables ENREG 1 à 6
        NbSelection1 = TableSelectOccurrence({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp})
        POUR j = NbSelection1 A 1 PAS -1
                TableSupprime({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}, TableSelect({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}, j))
        FIN             
        TableInsèreLigne({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}, 1, "1")
        TableEnregistre({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp})  
FIN

Tstt, je croyais qu'on essayait de ne pas fournir trop vite le code, mais plutôt de corriger et améliorer les codes soumis...

Tant qu'on y est : l'idée est de vider la table de toutes ses lignes.
Donc, soit c'est une table mémoire et TableSupprimeTout
soit c'est une table fichier et il faut tout sélectionner avant de supprimer.
En fait, Nathalie35000 s'est inspirée de l'exemple de la doc pour sélectionner toutes ses lignes

Et cet exemple est malheureux, puisque la fonction TableSelectPlus permet de sélectionner toutes les lignes d'une table sans la parcourir, ce qui ne semble pas très connu.

TableSelectPlus(<Nom de la table> [, <Indice 1> [, ... [, <Indice N>]]])
<Nom de la table> : Chaîne de caractères (avec ou sans guillemets)

Nom de la table à manipuler.
Si ce paramètre correspond à une chaîne vide (""), la table à laquelle appartient le traitement en cours est manipulée.

<Indice 1> : Entier optionnel

Premier indice de la ligne à sélectionner.

Si les paramètres <Indice 1> et <Indice N> ne sont pas précisés, toutes les lignes de la table spécifiée sont sélectionnées.

Donc, in fine, pour améliorer le code proposé et en tenant compte qu'on insère pas la ligne entre des lignes existantes mais en fin de table (dans le cas présent, c'est d'ailleurs la seule) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
i est un entier
POUR i = 1 A 6
        // Supprimer toutes les lignes 
  TableSelectPlus({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp})  
  TableSupprime({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}    
       // Ajouter une ligne
   SELON i
     CAS 1
         TableAjoute({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}, "1")  
     AUTRE CAS
         TableAjoute({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp}, "0") 
   FIN
   TableEnregistre({"TABLE_EXPRESS_ENREGISTREMENT"+i,indChamp})  
FIN

**tatayo** · 15/10/2013, 11h08

Envoyé par Hemgé

Tant qu'on y est : l'idée est de vider la table de toutes ses lignes.

Rien n'est moins sûr. D'après ce que j'ai compris du code il faut supprimer les lignes sélectionnées, et non toutes les lignes.

Tatayo.

**Hemgé** · 15/10/2013, 11h37

Envoyé par tatayo

Rien n'est moins sûr. D'après ce que j'ai compris du code il faut supprimer les lignes sélectionnées, et non toutes les lignes.

Tatayo.

TableSelectOccurence fatal ....
Mea culpa, mea maxima culpa !!

**laurent30s** · 15/10/2013, 12h13

Envoyé par Hemgé

Tstt, je croyais qu'on essayait de ne pas fournir trop vite le code, mais plutôt de corriger et améliorer les codes soumis...

On peut même aider sous forme de charade ça sera plus facile pour les demandeurs

Plus sérieusement, dans un autre message Nathalie se renseigne sur les tarifs de windev, c'est donc apparemment une débutante en windev.
Je n'est pas refait son code, je lui ai juste montré comment on fait une indirection dont tu parlais précédemment.
Pour quelqu'un qui débute voir un exemple facilite grandement la compréhension des indirections...

**Hemgé** · 15/10/2013, 15h15

Envoyé par laurent30s

On peut même aider sous forme de charade ça sera plus facile pour les demandeurs

Oh, mais certaines demandes elles-mêmes ressortent régulièrement au genre charade, devinette ou intrigue !

Envoyé par laurent30s

c'est donc apparemment une débutante en windev.

De fait, elle travaille sur une version Express (voir la dénomination de toutes ses variables)

Mais, elle est du genre qui apprend vite et se décarcasse, donc du genre pour qui la recherche est un outil pédagogique.
Et 1 médaille pour Nathalie (pas encore 35000 quand même)
C'est donc à dessein que je la laissais explorer les indirections.
Mais avec un exemple précisément sur un de ses problèmes, elle apprendra aussi, j'en conviens dans son cas.

**jdsetls** · 18/10/2013, 11h36

Bonjour,

Comme cela a été dit clairement, les indirections simplifient grandement les codes, réduisant les blocs de n à 1.

Ceci d'autant plus qu'on y aura pensé en phase de conception.

Voici quelques principes si tu débutes :

L'abstraction vise à simplifier en généralisant. Encore faut-il qu'elle puisse être perçue comme tel, sans donner le sentiment d'une économie de la pensée réalisée par une complexification du code.

Les bases de la simplification sous Windev utilisent les mots clés, fonctions et principes suivants :
• le mot clé MoiMême
• les indirections
• les procédures automatiques TimerSys, Timer, ThreadExecute
• la fonction ChampEnCours
• Les champs indicés
• Les groupes
• ExecuteTraitement
• la compilation dynamique
• le MCI
• Les FAA ou actions Windows prédéfinies
• Les briques de code
• Les composants
• La lecture attentive du mode d’emploi et de la rubrique Voir aussi…

En espérant t'avoir aidée avec ces principes généraux,

Bien cordialement,

Jacques De Schryver

nb : ¨Pense également à la puissance de ces principes conjugués, par exemple un champclone géré par des indirections. C'est là tout le génie de Windev.

Régime pour code

WinDev

Discussions similaires

Partager

Partager