Accueil > > > SOCKETS DES JEUX OLYMPIQUES (2004 - ATHÈNES) : CLASSEMENT DES MÉDAILLES PAR PAYS
SOCKETS DES JEUX OLYMPIQUES (2004 - ATHÈNES) : CLASSEMENT DES MÉDAILLES PAR PAYS
Information sur la source
Description
Ce code permet d'avoir le classement de tous les pays ayant des médailles aux JO, avec leur rang par total, par nombre de médailles d'or, ...
Page scannée : http://www.athens2004.com/fr/OlympicMedals/medals
Commandes : /jo (pour actualiser le classement), et l'afficher en écho. Pour arrêter l'affichage, il faut retapper /jo
Le classement est sauvegardé dans un .txt (jo.txt), dans le dossier mIRC.
/jo "abréviation du pays" (celle qui est a la fin de l'url). Exemple : /jo FRA, pour afficher le score des français :)
/jo "place" (pour afficher tous les pays à cette place). Exemple : /jo 9 vous donnera au moment ou j'écris ce code, les score de la grèce, de la roumanie, et de la turquie.
Un exemple : (pris totalement au hazard :) )
[ Place : 6e :: Pays : France :: Médailles : Or : 3 - Argent : 2 - Bronze : 4 - Total : 9 :: Rang par total : 6 :: Lien : www.athens2004.com/fr/OlympicMedals/medals?noc=FRA (By ArKanis) ]
Source
- alias jo {
- if ($1) {
- if (!$read(jo.txt,1)) { echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Le fichier JO.txt n'existe pas. Tapez /jo pour le créer. 12] | return }
- if ($1 !isnum) {
- var %t = 1
- var %c = $1
- var %n = -0.9
- echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
- while $read(jo.txt,%t) {
- tokenize 32 $read(jo.txt,%t)
- if ($2 == %c) { inc %n 3 | jo.say %t %n say }
- inc %t
- }
- }
- if ($1 isnum) {
- var %t = 1
- var %c = $1
- var %n = -0.9
- echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
- while $read(jo.txt,%t) {
- tokenize 32 $read(jo.txt,%t)
- if ($remove($1,=) == %c) { inc %n 3 | jo.say %t %n say }
- inc %t
- }
- }
- return
- }
- if ($timer(jo.40)) { .timerjo.* off | echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Classement arrêté 12] | return }
- sockclose jo | write -c jo.txt | sockopen jo www.athens2004.com 80
- }
-
- on *:sockopen:jo:{
- sockwrite -nt $sockname GET http://www.athens2004.com/fr/OlympicMedals/medals HTTP/1.0
- sockwrite -nt $sockname $crlf
- }
-
- on *:sockread:jo:{
- sockread %a
- if ((<td align="center"> isin %a) && (</td><td align="left"><img src="/images/results/ isin %a)) {
- var %b = $remove(%a,<td,/td>,<td,align="left">,<img src="/images/results/,.gif",alt=""> <a,title=",</a>," href=")
- var %b = $remove($replace(%b,< align="center">,$chr(165),$+(<,$chr(32)),$chr(32)),align="center">)
- var %b = $replace(%b,è,è,é,é,ô,ô,ût,û,à,à,ù,ù,ç,ç,ï,ï,USA_big,USA)
- write jo.txt $left(%b,-1)
- }
- }
-
- on *:sockclose:jo:{
- if (!$read(jo.txt,1)) { return }
- var %t = 1
- var %n = 0
- echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
- while (%t <= $lines(jo.txt)) {
- jo.say %t %n echo
- inc %n
- inc %t
- }
- }
-
- alias jo.say {
- if (!$1) { return }
- var %n = 0
- if ($2) { var %n = $2 }
- var %m = $3-
- if ($3 == echo) { var %m = echo -a }
- var %h = 0
- tokenize 32 $read(jo.txt,$1)
- var %p = $1
- ;cette partie a été réalisée car il y a des pays qui sont composés de plusieurs mots
- :pays
- if ((/fr/ !isin $ [ $+ [ $calc(3 + %h) ] ]) && (%h < $0)) { inc %h | goto pays }
- var %e = $+($calc($0 -%h),-)
- var %e = $ [ $+ [ %e ] ]
- var %a = $replace($ [ $+ [ $calc(3 + %h) ] ],/fr/,$chr(165),">,$chr(165))
- tokenize 165 %a
- var %l = $+(www.athens2004.com/fr/,$2)
- tokenize 165 %e
- var %e = $1
- var %m1 = $2
- var %m2 = $3
- var %m3 = $4
- var %s = $5
- var %r = $6
- .timerjo. $+ %n 1 %n %m 12,1[ 14P15lace0 : $+(%p,e) 12::14 P15ays0 : %e 12::14 M15édailles0 :8 Or : %m1 12- 15Argent : %m2 12- 7Bronze : %m3 12-15 Total0 : %s 12::14 R15ang par total 0 : %r 12::14 Lien0 : %l (By ArKanis) 12]
- }
alias jo {
if ($1) {
if (!$read(jo.txt,1)) { echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Le fichier JO.txt n'existe pas. Tapez /jo pour le créer. 12] | return }
if ($1 !isnum) {
var %t = 1
var %c = $1
var %n = -0.9
echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
while $read(jo.txt,%t) {
tokenize 32 $read(jo.txt,%t)
if ($2 == %c) { inc %n 3 | jo.say %t %n say }
inc %t
}
}
if ($1 isnum) {
var %t = 1
var %c = $1
var %n = -0.9
echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
while $read(jo.txt,%t) {
tokenize 32 $read(jo.txt,%t)
if ($remove($1,=) == %c) { inc %n 3 | jo.say %t %n say }
inc %t
}
}
return
}
if ($timer(jo.40)) { .timerjo.* off | echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Classement arrêté 12] | return }
sockclose jo | write -c jo.txt | sockopen jo www.athens2004.com 80
}
on *:sockopen:jo:{
sockwrite -nt $sockname GET http://www.athens2004.com/fr/OlympicMedals/medals HTTP/1.0
sockwrite -nt $sockname $crlf
}
on *:sockread:jo:{
sockread %a
if ((<td align="center"> isin %a) && (</td><td align="left"><img src="/images/results/ isin %a)) {
var %b = $remove(%a,<td,/td>,<td,align="left">,<img src="/images/results/,.gif",alt=""> <a,title=",</a>," href=")
var %b = $remove($replace(%b,< align="center">,$chr(165),$+(<,$chr(32)),$chr(32)),align="center">)
var %b = $replace(%b,è,è,é,é,ô,ô,ût,û,à,à,ù,ù,ç,ç,ï,ï,USA_big,USA)
write jo.txt $left(%b,-1)
}
}
on *:sockclose:jo:{
if (!$read(jo.txt,1)) { return }
var %t = 1
var %n = 0
echo -a 2 $+ $asctime([HH:nn:ss]) 12,1[ 0Sockets des Jeux Olympiques (www.Athens2004.com) 12::0 Script by ArKanis 12]
while (%t <= $lines(jo.txt)) {
jo.say %t %n echo
inc %n
inc %t
}
}
alias jo.say {
if (!$1) { return }
var %n = 0
if ($2) { var %n = $2 }
var %m = $3-
if ($3 == echo) { var %m = echo -a }
var %h = 0
tokenize 32 $read(jo.txt,$1)
var %p = $1
;cette partie a été réalisée car il y a des pays qui sont composés de plusieurs mots
:pays
if ((/fr/ !isin $ [ $+ [ $calc(3 + %h) ] ]) && (%h < $0)) { inc %h | goto pays }
var %e = $+($calc($0 -%h),-)
var %e = $ [ $+ [ %e ] ]
var %a = $replace($ [ $+ [ $calc(3 + %h) ] ],/fr/,$chr(165),">,$chr(165))
tokenize 165 %a
var %l = $+(www.athens2004.com/fr/,$2)
tokenize 165 %e
var %e = $1
var %m1 = $2
var %m2 = $3
var %m3 = $4
var %s = $5
var %r = $6
.timerjo. $+ %n 1 %n %m 12,1[ 14P15lace0 : $+(%p,e) 12::14 P15ays0 : %e 12::14 M15édailles0 :8 Or : %m1 12- 15Argent : %m2 12- 7Bronze : %m3 12-15 Total0 : %s 12::14 R15ang par total 0 : %r 12::14 Lien0 : %l (By ArKanis) 12]
}
Conclusion
Si vous avez un problème avec ce script, merci de mettre des commentaires :)
Cette socket ne marchera que le temps des jeux olympiques, très probablement :), c'est à dire jusqu'au 28 aout je crois ...
Historique
- 18 août 2004 17:41:24 :
- un "!" qui manquait :)
- 18 août 2004 18:04:38 :
- var %a = $replace($ [ $+ [ $calc(3 + %h) ] ],/fr/,$chr(165),">,$chr(165))
le $+( ne marchait pas ^^
Sources du même auteur
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 0ETENDRE LE TEAM WEB ACCESS DE TFS 2012 - STEP 0 par Philess
L'extensibilité du Team Web Access
Le Web Access (site d'équipe) de Team Foundation Server a été complètement réécrit dans la version 2012 avec pas moins de 400.000 lignes de JavaScript. Ce nouveau modèle a été pensé pour offrir de grandes...
Cliquez pour lire la suite de l'article par Philess SIMULER FACILEMENT L'ENVOI DE MAILSIMULER FACILEMENT L'ENVOI DE MAIL par JeremyJeanson
il m'a été demandé, à plusieurs reprises, comment je faisais pour simuler l'envoi de mail lors de mes démos de Workflow Foundation. Ma solution est plutôt simple : j'utilise la configuration par défaut du SmtpClient et j'oriente les mails vers un dossier ...
Cliquez pour lire la suite de l'article par JeremyJeanson VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES !VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES ! par Patrick Guimonet
Si ce n'est déjà fait (comme plus de 600 personnes déjà), il est encore temps de voter pour le concours TOP 10 des influenceurs SharePoint francophones ! Il est organisé par harmon.ie et accessible ici : http://harmon.ie/top-...
Cliquez pour lire la suite de l'article par Patrick Guimonet [CONF'SHAREPOINT] DERNIER RAPPEL ! :-)[CONF'SHAREPOINT] DERNIER RAPPEL ! :-) par Patrick Guimonet
La Conf'SharePoint en chiffres c'est : 3 jours de SharePoint ! 4 parcours et 60 sessions 17 partenaires représentant toutes les fac...
Cliquez pour lire la suite de l'article par Patrick Guimonet
Forum
LANGAGE 4DLANGAGE 4D par wvalter
Cliquez pour lire la suite par wvalter PROBLEME MIRCPROBLEME MIRC par PaTaTe
Cliquez pour lire la suite par PaTaTe PERFECTIONPERFECTION par gorby10
Cliquez pour lire la suite par gorby10
Logiciels
Easy-Planning (4.5.0.11)EASY-PLANNING (4.5.0.11)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté a... Cliquez pour télécharger Easy-Planning CVEasy (3.1.0.51)CVEASY (3.1.0.51)PHMSD-CVEasy est un logiciel d'aide à la rédaction de CV d'une simplicité déconcertante.
PHMSD-C... Cliquez pour télécharger CVEasy LettresFaciles 2011 (8.6.0.31)LETTRESFACILES 2011 (8.6.0.31)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011 sDEVIS-FACTURES vlPRO (8.4.2.62)SDEVIS-FACTURES VLPRO (8.4.2.62)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO Devis-Factures PHMSD (2.1.0.11)DEVIS-FACTURES PHMSD (2.1.0.11)Configuration minimale
Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à... Cliquez pour télécharger Devis-Factures PHMSD
|