Discussion :

[Hobinantenaina1]

salut à tous , j'ai une petite projet pour gérer des élèves dans une établissement et j'ai une table mémoire qui stock les classes existant dans cette établissement . Voici le résultat sans triage

CLASSE

Seconde I

Première L

Seconde II

Terminale S

Terminale L

Première S

Et voici le résultat après le triage,

CLASSE

Première L

Première S

Seconde I

Seconde II

Terminale L

Terminale S

Ma question c'est j'aimerais savoir, si on peut personnaliser le triage c'est à dire que je souhaiterais avoir une résultat comme ci-dessous:

CLASSE

Seconde I

Seconde II

Première L

Première S

Terminale L

Terminale S

au lieu de ceci

CLASSE

Première L

Première S

Seconde I

Seconde II

Terminale L

Terminale S

Merci à tous ceux qui vont me répondre

[tatayo]

Bonjour,
Si les données sont enregistrées dans un fichier HF, il suffit d'y ajouter un rang...
Dans tous les cas, tu ajoutes une colonne masquée avec un rang, et tu tries sur ce rang.

Tatayo.

[LeonCosnyd]

Une solution :

1/ Stocker toutes les classes dans un tableau de chaines
2/ Effectuer un trie avec la fonction TableauTrie() en utilisant un type ttFonction ! Appeler une fonction qui effectue ton trie personnalisé.

Exemple :

Code :

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

1
2
3
tabClasses est un tableau de chaîne = ["Seconde I","Première L","Seconde II","Terminale S","Terminale L","Première S"]
 
TableauTrie(tabClasses,ttFonction,TrieClasse)

Avec une fonction TrieClasse :

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
PROCEDURE TrieClasse(sClasse1 est une chaîne, sClasse2 est une chaîne)
 
sClasse1_Niveau est une chaîne = ExtraitChaîne(sClasse1,rangPremier," ")
sClasse1_Spé 	est une chaîne = ExtraitChaîne(sClasse1,rangDernier," ")
 
sClasse2_Niveau est une chaîne = ExtraitChaîne(sClasse2,rangPremier," ")
sClasse2_Spé 	est une chaîne = ExtraitChaîne(sClasse2,rangDernier," ")
 
SELON sClasse1_Niveau
 
	CAS "Seconde"	
		SELON sClasse2_Niveau
			CAS "Seconde"
				SI sClasse1_Spé > sClasse2_Spé ALORS RENVOYER(1)
				SI sClasse1_Spé = sClasse2_Spé ALORS RENVOYER(0)
				SI sClasse1_Spé < sClasse2_Spé ALORS RENVOYER(-1)				
			CAS "Première"  : RENVOYER(-1)
			CAS "Terminale" : RENVOYER(-1)
			AUTRE CAS 	   : RENVOYER(0)
		FIN
 
	CAS "Première"
		SELON sClasse2_Niveau
			CAS "Seconde"  : RENVOYER(1)			
			CAS "Première"  :
				SI sClasse1_Spé > sClasse2_Spé ALORS RENVOYER(1)
				SI sClasse1_Spé = sClasse2_Spé ALORS RENVOYER(0)
				SI sClasse1_Spé < sClasse2_Spé ALORS RENVOYER(-1)	
			CAS "Terminale" : RENVOYER(-1)
			AUTRE CAS 	   : RENVOYER(0)
		FIN
 
	CAS "Terminale"
		SELON sClasse2_Niveau
			CAS "Seconde"  : RENVOYER(1)			
			CAS "Première"  : RENVOYER(1)
			CAS "Terminale" :
				SI sClasse1_Spé > sClasse2_Spé ALORS RENVOYER(1)
				SI sClasse1_Spé = sClasse2_Spé ALORS RENVOYER(0)
				SI sClasse1_Spé < sClasse2_Spé ALORS RENVOYER(-1)
			AUTRE CAS 	   : RENVOYER(0)
		FIN
 
	AUTRE CAS
		RENVOYER(0)
FIN
 
RENVOYER(0)

[Hobinantenaina1]

Merci pour vos suggestions , je vais tester ce code , et je vous tiendrai au courant. à toute

[Delphi-ne]

L'approche en ajoutant un rang présente l'avantage de toujours fonctionner et de laisser le code totalement indépendant des données.
L'autre solution inclut les données dans le code et dans la vie d'une application, un jour ou l'autre, ça coince.

[Hobinantenaina1]

Le code proposé par LeonCosnyd résoudrait le problème si la classe est fixée c'est à dire qu'on ne peut pas ajouter des nouvelles classes , Mais dans mon Cas, on suppose qu'on peut ajouter de nouvelle classe au cas où on a besoin. comment donc faire en sorte que si on ajoute une nouvelle classe le table sera tout de suite trié par ce qu'on veut ?
Merci encore pour votre réponse .

[serendib]

Tatayo t'a donné la solution !

[LeonCosnyd]

Ma solution fonctionne si la nouvelle classe respecte le nommage "Seconde", "Première", "Terminale" (exemple Première ES). Si ce n'est pas le cas alors tu n'as pas d'autre choix que d'utiliser un indice de position.

Il faudrait que tu nous dises comment tu créés et comment tu stockes les "classes" : utilises-tu une fenêtre de saisie réalisée par tes soins qui enregistre les classes dans une base HyperFile ? Si oui il te faut créer une nouvelle rubrique dans ton fichier HFSQL de type entier. Et d'y définir l'ordre d'affichage des classes (soit avec l'application que tu développes, soit par WDMAP, soit par le centre de controle HFSQL).

Une fois cela fait, tu utilises une requete SQL ou un POUR TOUT en triant par ta nouvelle rubrique.

[Hobinantenaina1]

En fait , pour ajouter une classe j'ai utilisé la fenêtre de saisie.
Si je comprend bien l'indice sera donc rempli manuellement et la table classe sera triée par cet indice.
Merci encore à toi LeonCosnyd pour ta suggestion.

[LeonCosnyd]

Oui effectivement l'indice d'affichage est à définir par tes soins.

PS : J'ai juste détaillé la solution proposée par tatayo !

[tatayo]

On peut faire beaucoup plus simple.
Dans la fonction de comparaison, il suffit de récupérer avec un tableau associatif le rang des deux classes à comparer (en ne prenant que le premier mot du nom comme indice).
En cas d'égalité, on repart sur un tri alphabétique.

Code WinDev :

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
 
PROCEDURE TrieClasse(sClasse1 est une chaîne, sClasse2 est une chaîne)
taRangClasse est un tableau associatif d'entier
taRangClasse["Seconde"] = 1
taRangClasse["Première"] = 2
taRangClasse["Terminale"] = 3
 
sClasse1_Niveau est une chaîne = ExtraitChaîne(sClasse1,rangPremier," ")
sClasse2_Niveau est une chaîne = ExtraitChaîne(sClasse2,rangPremier," ")
 
si taRangClasse[sClasse1_niveau] > taRangClasse[sClasse2_niveau] alors renvoyer 1
si taRangClasse[sClasse1_niveau] < taRangClasse[sClasse2_niveau] alors renvoyer -1
 
si taRangClasse[sClasse1_niveau] = taRangClasse[sClasse2_niveau] alors 
si sClasse1 > sClasse2 renvoyer 1
si sClasse1 < sClasse2 renvoyer -1
 
fin
*
RENVOYER(0)

Je n'ai pas trop vérifié le sens des comparaisons, mais l'idée est là.
Tatayo.

[Hobinantenaina1]

Merci encore une fois à toi tatayo