Accueil > > > SYSTÈME DE TRI DE DONNÉE AVEC @WINDOW AFIN D'ÉTABLIR UN CLASSEMENT.
 SYSTÈME DE TRI DE DONNÉE AVEC @WINDOW AFIN D'ÉTABLIR UN CLASSEMENT.
 Information sur la source
 Description
Système permettant le tri d'une hashtable avec utilisation d'une @window afin d'en faire ressortir un classement. Utilisable pour un jeu style quizz par exemple. Exemple d'utilisation : $tri(table,5) va retourner le pseudo en 5ème position ainsi que son score ; $tri(table,5-10) va retourner les mêmes choses mais de la 5ème position à la 10ème incluse.
 Source
- points {
- if $isid {
- if $prop == hash {
- ; on verifie l'existence d'une table et de l'argument $2 ;
- if !$hget($1) || !$2 { return }
-
- ; si la window est déjà ouverte, on la ferme ;
- ; puis on l'ouvre avec les options 'l10' pour ajouter une liste et 'S' qui permet de trier celle-ci ;
- if $window(@scores) { window -c @scores }
- window -hl10S @scores
- var %a = 1, %class
-
- ; On entre les données de la table dans la window en faisant une boucle sur la totalité des items de la table ;
- ; Afin d'éviter un bug dans le tri des scores, j'ajoute des '0' pour faire que la totalité des scores aient la même longueur ;
- ; Sans ça, 22 sera considéré comme plus important que 122 ;
- while $hget($1,%a).item {
- var %donnees = $hget($1,$v1), %item = $v1
- aline -l @scores $base(%donnees,10,10,5) %item
- inc %a
- }
-
- ; On regarde si l'arguement $2 demande une intervalle ;
- if $regex($2,/([0-9]+)-([0-9]+)/) {
- if $regml(1) >= $regml(2) || $regml(1) > %a || $regml(2) > %a { return }
-
- ; On définit la var %deb qui indique de quelle position nous devons partir et la var %fin la position ou l'on doit s'arrêter ;
- ; A savoir que la liste tri par ordre croissant, donc le score le plus petit se trouve en premier dans la liste et le plus grand en dernier ;
- var %deb = %a - $regml(1), %fin = %a - $regml(2)
- while %deb >= %fin {
- var %pseudo = $gettok($line(@scores,%deb,3),2,32), %score = $regsubex($gettok($line(@scores,%deb,3),1,32),/^0+/gi,)
-
- ; On stock les données dans la var %class sous forme 'pseudo=score pseudo=score' ;
- ; Attention à ne pas demander une intervalle trop grande, il faut penser que la var ne peut pas stocker de données trop importantes :/ ;
- var %class = $addtok(%class,$+(%pseudo,$chr(61),%score),32)
- dec %deb
- }
- }
-
- ; Si on demande simplement de retourner une position ;
- elseif $2 isnum && $2 <= %a {
- var %pseudo = $gettok($line(@scores,$calc(%a - $2),3),2,32), %score = $regsubex($gettok($line(@scores,$calc(%a - $2),3),1,32),/^0+/gi,)
-
- ; On stock les données dans la var %class sous forme 'pseudo=score' ;
- var %class = $+(%pseudo,$chr(61),%score)
- }
-
- ; On ferme la window ;
- window -c @scores
-
- ; On retourne les données demandées ;
- return %class
- }
- elseif $prop == ini {
- if !$ini($1,$2) { return }
- if $window(@scores) { window -c @scores }
- window -hl10S @scores
- var %a = 1, %class
- while $ini($1,$2,%a) {
- var %donnees = $readini($1,$2,$v1), %item = $v1
- aline -l @scores $base(%donnees,10,10,5) %item
- inc %a
- }
- if $regex($3,/([0-9]+)-([0-9]+)/) {
- if $regml(1) >= $regml(2) || $regml(1) > %a || $regml(2) > %a { return }
- var %deb = %a - $regml(1), %fin = %a - $regml(2)
- while %deb >= %fin {
- var %pseudo = $gettok($line(@scores,%deb,3),2,32), %score = $regsubex($gettok($line(@scores,%deb,3),1,32),/^0+/gi,)
- var %class = $addtok(%class,$+(%pseudo,$chr(61),%score),32)
- dec %deb
- }
- }
- elseif $3 isnum && $3 <= %a {
- var %pseudo = $gettok($line(@scores,$calc(%a - $3),3),2,32), %score = $regsubex($gettok($line(@scores,$calc(%a - $3),3),1,32),/^0+/gi,)
- var %class = $+(%pseudo,$chr(61),%score)
- }
- window -c @scores
- return %class
- }
- }
- else {
- ; Si j'utilise un system de hash ;
- if $1 == hash {
- ; J'incrémente l'item, le -m créé l'item s'il n'existe pas ;
- hinc -m $2-
- }
- ; Si j'utilise un system d'ini ;
- elseif $1 == ini {
- ; On regarde si l'item existe, on l'incrémente ;
- if $readini($2,$3,$4) {
- writeini $2-4 $calc($v1 + $5)
- }
- else {
- ; sinon on créé l'item ;
- writeini $2-
- }
- }
- }
- }
points {
if $isid {
if $prop == hash {
; on verifie l'existence d'une table et de l'argument $2 ;
if !$hget($1) || !$2 { return }
; si la window est déjà ouverte, on la ferme ;
; puis on l'ouvre avec les options 'l10' pour ajouter une liste et 'S' qui permet de trier celle-ci ;
if $window(@scores) { window -c @scores }
window -hl10S @scores
var %a = 1, %class
; On entre les données de la table dans la window en faisant une boucle sur la totalité des items de la table ;
; Afin d'éviter un bug dans le tri des scores, j'ajoute des '0' pour faire que la totalité des scores aient la même longueur ;
; Sans ça, 22 sera considéré comme plus important que 122 ;
while $hget($1,%a).item {
var %donnees = $hget($1,$v1), %item = $v1
aline -l @scores $base(%donnees,10,10,5) %item
inc %a
}
; On regarde si l'arguement $2 demande une intervalle ;
if $regex($2,/([0-9]+)-([0-9]+)/) {
if $regml(1) >= $regml(2) || $regml(1) > %a || $regml(2) > %a { return }
; On définit la var %deb qui indique de quelle position nous devons partir et la var %fin la position ou l'on doit s'arrêter ;
; A savoir que la liste tri par ordre croissant, donc le score le plus petit se trouve en premier dans la liste et le plus grand en dernier ;
var %deb = %a - $regml(1), %fin = %a - $regml(2)
while %deb >= %fin {
var %pseudo = $gettok($line(@scores,%deb,3),2,32), %score = $regsubex($gettok($line(@scores,%deb,3),1,32),/^0+/gi,)
; On stock les données dans la var %class sous forme 'pseudo=score pseudo=score' ;
; Attention à ne pas demander une intervalle trop grande, il faut penser que la var ne peut pas stocker de données trop importantes :/ ;
var %class = $addtok(%class,$+(%pseudo,$chr(61),%score),32)
dec %deb
}
}
; Si on demande simplement de retourner une position ;
elseif $2 isnum && $2 <= %a {
var %pseudo = $gettok($line(@scores,$calc(%a - $2),3),2,32), %score = $regsubex($gettok($line(@scores,$calc(%a - $2),3),1,32),/^0+/gi,)
; On stock les données dans la var %class sous forme 'pseudo=score' ;
var %class = $+(%pseudo,$chr(61),%score)
}
; On ferme la window ;
window -c @scores
; On retourne les données demandées ;
return %class
}
elseif $prop == ini {
if !$ini($1,$2) { return }
if $window(@scores) { window -c @scores }
window -hl10S @scores
var %a = 1, %class
while $ini($1,$2,%a) {
var %donnees = $readini($1,$2,$v1), %item = $v1
aline -l @scores $base(%donnees,10,10,5) %item
inc %a
}
if $regex($3,/([0-9]+)-([0-9]+)/) {
if $regml(1) >= $regml(2) || $regml(1) > %a || $regml(2) > %a { return }
var %deb = %a - $regml(1), %fin = %a - $regml(2)
while %deb >= %fin {
var %pseudo = $gettok($line(@scores,%deb,3),2,32), %score = $regsubex($gettok($line(@scores,%deb,3),1,32),/^0+/gi,)
var %class = $addtok(%class,$+(%pseudo,$chr(61),%score),32)
dec %deb
}
}
elseif $3 isnum && $3 <= %a {
var %pseudo = $gettok($line(@scores,$calc(%a - $3),3),2,32), %score = $regsubex($gettok($line(@scores,$calc(%a - $3),3),1,32),/^0+/gi,)
var %class = $+(%pseudo,$chr(61),%score)
}
window -c @scores
return %class
}
}
else {
; Si j'utilise un system de hash ;
if $1 == hash {
; J'incrémente l'item, le -m créé l'item s'il n'existe pas ;
hinc -m $2-
}
; Si j'utilise un system d'ini ;
elseif $1 == ini {
; On regarde si l'item existe, on l'incrémente ;
if $readini($2,$3,$4) {
writeini $2-4 $calc($v1 + $5)
}
else {
; sinon on créé l'item ;
writeini $2-
}
}
}
}
 Conclusion
Pour le moment ne gère que les données "entassées" dans une table. Mais je vais voir pour gérer un .txt et un .ini pour laisser libre choix à l'utilisateur.
J'attends vos idées pour, pourquoi pas faire évoluer ce code. J'attends surtout le commentaire de Wims car il a forcément quelque chose à dire ^^
Si la source est ininteressante, effacez là :)
 Historique
- 17 août 2007 11:56:58 :
- Correction de fautes d'ortho :/
- 17 août 2007 14:35:30 :
- Suppression d'une var inutile :)
- 18 août 2007 11:28:03 :
- J'ai volontairement changé le nom de l'alias suite aux dernières modifs.
- $points(table,1).hash va retourner le premier du classement si le classement est géré par hash
- $points(table,1).ini va retourner le premier du classement si le classement est géré par ini
- /points hash table pseudo nbre_de_pts va incrémenter le score de "pseudo" (classement géré par hash)
- /points ini fichier.ini Section Pseudo nbre_de_pts va incrémenter le score de "pseudo" (classement géré par ini)
Ne gère pour le moment pas les égalités. (J'ai volontairement pas commenté la partie "tri du fichier.ini" car quasiment identique à la partie "tri hash")
- 19 août 2007 01:31:18 :
- Correction d'un bug suite à une erreur (utilisation de $2 au lieu de $3)
optimisation du code avec utilisation de $v1
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
tri d'une page html..????? [ par Bouzoul ]
Salut je debute dans le codage irc et je n'arrive pas a faire une parti de code, donc je fais appel a vos lumieres plzzzzzzzzz lol!donc voila je voudr
bot quizz [ par bbjulien ]
salutje chercher un bot quizz qui peut faire plusieur quizz:1 avec des question générale1 avec '' " sur les jeux vidéoet d autre encorej
probléme irc :) aidez moi [ par Mordikuss ]
oila je suis en train de me faire un bot sur irc et je l'ai pas terminé , sur se bot il y a une fonction quizz et une fonction bot qui modére le salon
ou peut on trouver un bot quizz [ par staria ]
je vx un bot quizz ss faute et complet on je px en trouver bouhhhh j'arrive po a trouver staria
ingore pour quizz [ par maaars ]
coucou je voudrai savoir comment faire pour que lorsque qu'un chatteur tape "vrai" ou "faux" a une question il sois ignoré pendant 10 secondes (afin d
CreaTion d'un QUizz (Simple) [ par karukeranet ]
Bonjour A tous Les ScripteursApres Avoir recopier Des Questions / Reponses Sur un Bloc Note (question.txt) Je voudrai savoir COmment creer un Script Q
Comment faire un quizz avec des commandes de base [ par Bal007 ]
Bonjour tout le monde,Je suis une personne utilisant régulièrement IRC, et je voudrais me créer un "Quizz". (Un eggdrop admettons où j'insère des que
Comment avoir un chrono comme sur les quizz ... [ par Panther007 ]
J'aimerais savoir comment faire pour que quand quelqu'un est une bonne réponse sa lui dise : Bravo $nick , tu à répondu en ... secondes et tu gagne ..
Classement des trois meilleur joueur... [ par Panther007 ]
Salut , J'ai un Jeu , Le But du jeu est de retapez le mot donner par le robot le plus vite possible , le premier qui tape le mot gagne , mais ce que j
Le salon #sept_mn_d`intelligence sur le Serveur Voila\Wanadoo [ par LiGhT_At_ThE_EnD ]
Coucou à tousJe vous invite à venir sur #sept_mn_d`intelligence où se trouve un robot de quizz particulier et une ambiance sympathiqueVous pouvez chat
|
Derniers Blogs
 TECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURSTECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURS par ROMELARD Fabrice
Animé par: Laurent Cotton Le développement dans SharePoint 2010 passe par plusieurs axes qui seront évoqués dans cette session, mais plus particulièrement les développements simples lié au besoin Business Business Connectivity Services Ce BCS es...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOURTECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice
Cette session est la dernière pleinière de ces 3 jours de TechDays Paris 2010. Généralement, cette troisième journée est plus axée sur l'avenir vu par Microsoft. Après un retour sur l'avenir vu par la Science Fiction ou par ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion
Forum
 RE : ON RAWMODERE : ON RAWMODE par WorldDMT
Cliquez pour lire la suite par WorldDMT AVERTISSMENT ET KIKKAVERTISSMENT ET KIKK par mouhcine951990
Cliquez pour lire la suite par mouhcine951990
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|