Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
UN BOT METEOROLOGUE! (MISE À JOUR IMPORTANTE! )
Information sur la source
Description
Ce script va chercher la meteo sur un site internet.
il est specialement optimisé pour la belgique, puisque il reonnait TOUTES les communes belges (normalement il n'en manque pas une ;) )
PS: Une mise a jour importante viens d'etre faites:
En effet le script a du etre quasiment completement refait puisque le site d'ou les informations étaient récupérées à changé complètement.
Des lors, dorénavant les prévisions avec 5 jours d'avances ne sont plus de mise par contre les prévisions sur la journée sont plus précises et plus fiable.
Source
- ON *:TEXT:*!meteo*:#:{
- UNSET %meteoville
- UNSET %meteoRead
- UNSET %MeteoRead1
- UNSET %MeteoReadLune
- IF (!meteo == $1) { SET %meteoville $2 }
- ELSEIF (!meteo == $2) { SET %meteoville $3 }
- SET %Meteochan $chan
- SET %MeteoRead1
- SET %MeteoReadLune
- SOCKCLOSE meteo
- SOCKCLOSE meteoA
- SOCKOPEN meteo www.meteo-consult.fr 80
- }
-
- ON *:SOCKOPEN:meteo:{
- SOCKWRITE -n meteo GET /ter/monde/prevision/moteur.php?langue=fr&saisie= $+ %meteoville
- }
- ON *:SOCKREAD:meteo:{
- SOCKREAD %meteoRead
- echo %meteoread
- IF (tresgros-gras ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<td width=60%><font class=tresgros-gras> , <tr class=tresgros-grasitalic-jaune>,</font></td><td width=40% align=right>,<font class=tresgros-gras>, ,</font>,</td>, </tr>)
- MSG %MeteoChan %meteoRead
- }
- IF (assezgros-gras-bleu ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<font class=assezgros-gras-bleu>,</font>)
- MSG %MeteoChan Etat général: %meteoRead
- MSG %MeteoChan
- }
- IF (lune</font> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<font class=assezpetit-bleu>,</font>)
- %meteoReadLune = %MeteoRead
- }
- IF (</span></font></td> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,</span></font></td>,<BR>)
- %meteoRead1 = $+ %meteoRead $+ :
- }
- IF (°C ISIN %meteoRead) {
- IF (RESSENTIE ISIN %meteoRead) %meteoRead = </font>
- %meteoRead = $remove(%meteoRead,<font class=gros-gras-bleu>,</font>)
- %meteoRead = $replace(%meteoRead,°C,°C)
- MSG %MeteoChan %MeteoRead1 %meteoRead
- %meteoread = $null
- %meteoread1 = $null
- }
- IF (<p align=justify> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<p align=justify>,<BR>)
- %meteoRead1 = %meteoRead
- }
- IF (.</p> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,</p>)
- MSG %MeteoChan %MeteoRead1 %meteoRead
- }
- IF (référencée ISIN %meteoRead) {
- MSG %MeteoChan La ville ou commune que vous cherchez n'as pas été trouvée. Je vérifie quelle ville la plus proche peut-être trouvée. :)
- var %MeteoCommune
- var %i = 0
- var %MeteoComOk = 0
- WHILE (%i <= 2802) {
- %meteocommune = $read(Commune.txt, %i)
- IF (%meteocommune == %meteoville) {
- IF ((%i >= 3) && (%i <= 24)) {
- %meteoville = bruxelles
- %meteoComOK = 1
- }
- IF ((%i >= 28) && (%i <= 148)) {
- %meteoville = wavre
- %MeteoComOk = 1
- }
- IF ((%i >= 152) && (%i <= 389)) {
- %meteoville = leuven
- %MeteoComOk = 1
- }
- IF ((%i >= 393) && (%i <= 548)) {
- %meteoville = anvers
- %MeteoComOk = 1
- }
- IF ((%i >= 552) && (%i <= 769)) {
- %meteoville = hasselt
- %MeteoComOk = 1
- }
- IF ((%i >= 773) && (%i <= 1142)) {
- %meteoville = liege
- %MeteoComOk = 1
- }
- IF ((%i >= 1146) && (%i <= 1520)) {
- %meteoville = namur
- %MeteoComOk = 1
- }
- IF ((%i >= 1524) && (%i <= 1992)) {
- %meteoville = mons
- %MeteoComOk = 1
- }
- IF ((%i >= 1996) && (%i <= 2236)) {
- %meteoville = arlon
- %MeteoComOk = 1
- }
- IF ((%i >= 2240) && (%i <= 2494)) {
- %meteoville = bruges
- %MeteoComOk = 1
- }
- IF ((%i >= 2498) && (%i <= 2802)) {
- %meteoville = gent
- %MeteoComOk = 1
- }
- %i = 2803
- }
- INC %i
- }
- IF (%MeteoComOk == 1) {
- MSG %meteochan %meteocommune a été trouvée dans la Base de Donnée, je recherche la météo de suite!
- SOCKOPEN meteoA www.meteo-consult.fr 80
- }
- ELSE { MSG %meteochan Soit la ville/commune n'est pas belge soit elle est mal orthographiée }
- }
- IF ((lune ISIN %meteoReadLune) && (</BODY> ISIN %meteoread)) MSG %MeteoChan Ephémérides: %meteoReadLune
- }
-
- ON *:SOCKOPEN:meteoA:{
- SOCKWRITE -n meteoA GET /ter/monde/prevision/moteur.php?langue=fr&saisie= $+ %meteoville
- }
-
- ON *:SOCKREAD:meteoA:{
- SOCKREAD %meteoRead
- IF (assezgros-gras-bleu ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<font class=assezgros-gras-bleu>,</font>)
- MSG %MeteoChan
- MSG %MeteoChan Etat général: %meteoRead
- }
- IF (lune</font> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<font class=assezpetit-bleu>,</font>)
- %meteoReadLune = %MeteoRead
- }
- IF (</span></font></td> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,</span></font></td>,<BR>)
- %meteoRead1 = $+ %meteoRead $+ :
- }
- IF (°C ISIN %meteoRead) {
- IF (RESSENTIE ISIN %meteoRead) %meteoRead = </font>
- %meteoRead = $remove(%meteoRead,<font class=gros-gras-bleu>,</font>)
- %meteoRead = $replace(%meteoRead,°C,°C)
- MSG %MeteoChan %MeteoRead1 %meteoRead
- %meteoread = $null
- %meteoread1 = $null
- }
- IF (<p align=justify> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,<p align=justify>,<BR>)
- %meteoRead1 = %meteoRead
- }
- IF (.</p> ISIN %meteoRead) {
- %meteoRead = $remove(%meteoRead,</p>)
- MSG %MeteoChan %MeteoRead1 %meteoRead
- }
- IF ((lune ISIN %meteoReadLune) && (</BODY> ISIN %meteoread)) MSG %MeteoChan Ephémérides: %meteoReadLune
- }
ON *:TEXT:*!meteo*:#:{
UNSET %meteoville
UNSET %meteoRead
UNSET %MeteoRead1
UNSET %MeteoReadLune
IF (!meteo == $1) { SET %meteoville $2 }
ELSEIF (!meteo == $2) { SET %meteoville $3 }
SET %Meteochan $chan
SET %MeteoRead1
SET %MeteoReadLune
SOCKCLOSE meteo
SOCKCLOSE meteoA
SOCKOPEN meteo www.meteo-consult.fr 80
}
ON *:SOCKOPEN:meteo:{
SOCKWRITE -n meteo GET /ter/monde/prevision/moteur.php?langue=fr&saisie= $+ %meteoville
}
ON *:SOCKREAD:meteo:{
SOCKREAD %meteoRead
echo %meteoread
IF (tresgros-gras ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<td width=60%><font class=tresgros-gras> , <tr class=tresgros-grasitalic-jaune>,</font></td><td width=40% align=right>,<font class=tresgros-gras>, ,</font>,</td>, </tr>)
MSG %MeteoChan %meteoRead
}
IF (assezgros-gras-bleu ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<font class=assezgros-gras-bleu>,</font>)
MSG %MeteoChan Etat général: %meteoRead
MSG %MeteoChan
}
IF (lune</font> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<font class=assezpetit-bleu>,</font>)
%meteoReadLune = %MeteoRead
}
IF (</span></font></td> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,</span></font></td>,<BR>)
%meteoRead1 = $+ %meteoRead $+ :
}
IF (°C ISIN %meteoRead) {
IF (RESSENTIE ISIN %meteoRead) %meteoRead = </font>
%meteoRead = $remove(%meteoRead,<font class=gros-gras-bleu>,</font>)
%meteoRead = $replace(%meteoRead,°C,°C)
MSG %MeteoChan %MeteoRead1 %meteoRead
%meteoread = $null
%meteoread1 = $null
}
IF (<p align=justify> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<p align=justify>,<BR>)
%meteoRead1 = %meteoRead
}
IF (.</p> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,</p>)
MSG %MeteoChan %MeteoRead1 %meteoRead
}
IF (référencée ISIN %meteoRead) {
MSG %MeteoChan La ville ou commune que vous cherchez n'as pas été trouvée. Je vérifie quelle ville la plus proche peut-être trouvée. :)
var %MeteoCommune
var %i = 0
var %MeteoComOk = 0
WHILE (%i <= 2802) {
%meteocommune = $read(Commune.txt, %i)
IF (%meteocommune == %meteoville) {
IF ((%i >= 3) && (%i <= 24)) {
%meteoville = bruxelles
%meteoComOK = 1
}
IF ((%i >= 28) && (%i <= 148)) {
%meteoville = wavre
%MeteoComOk = 1
}
IF ((%i >= 152) && (%i <= 389)) {
%meteoville = leuven
%MeteoComOk = 1
}
IF ((%i >= 393) && (%i <= 548)) {
%meteoville = anvers
%MeteoComOk = 1
}
IF ((%i >= 552) && (%i <= 769)) {
%meteoville = hasselt
%MeteoComOk = 1
}
IF ((%i >= 773) && (%i <= 1142)) {
%meteoville = liege
%MeteoComOk = 1
}
IF ((%i >= 1146) && (%i <= 1520)) {
%meteoville = namur
%MeteoComOk = 1
}
IF ((%i >= 1524) && (%i <= 1992)) {
%meteoville = mons
%MeteoComOk = 1
}
IF ((%i >= 1996) && (%i <= 2236)) {
%meteoville = arlon
%MeteoComOk = 1
}
IF ((%i >= 2240) && (%i <= 2494)) {
%meteoville = bruges
%MeteoComOk = 1
}
IF ((%i >= 2498) && (%i <= 2802)) {
%meteoville = gent
%MeteoComOk = 1
}
%i = 2803
}
INC %i
}
IF (%MeteoComOk == 1) {
MSG %meteochan %meteocommune a été trouvée dans la Base de Donnée, je recherche la météo de suite!
SOCKOPEN meteoA www.meteo-consult.fr 80
}
ELSE { MSG %meteochan Soit la ville/commune n'est pas belge soit elle est mal orthographiée }
}
IF ((lune ISIN %meteoReadLune) && (</BODY> ISIN %meteoread)) MSG %MeteoChan Ephémérides: %meteoReadLune
}
ON *:SOCKOPEN:meteoA:{
SOCKWRITE -n meteoA GET /ter/monde/prevision/moteur.php?langue=fr&saisie= $+ %meteoville
}
ON *:SOCKREAD:meteoA:{
SOCKREAD %meteoRead
IF (assezgros-gras-bleu ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<font class=assezgros-gras-bleu>,</font>)
MSG %MeteoChan
MSG %MeteoChan Etat général: %meteoRead
}
IF (lune</font> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<font class=assezpetit-bleu>,</font>)
%meteoReadLune = %MeteoRead
}
IF (</span></font></td> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,</span></font></td>,<BR>)
%meteoRead1 = $+ %meteoRead $+ :
}
IF (°C ISIN %meteoRead) {
IF (RESSENTIE ISIN %meteoRead) %meteoRead = </font>
%meteoRead = $remove(%meteoRead,<font class=gros-gras-bleu>,</font>)
%meteoRead = $replace(%meteoRead,°C,°C)
MSG %MeteoChan %MeteoRead1 %meteoRead
%meteoread = $null
%meteoread1 = $null
}
IF (<p align=justify> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,<p align=justify>,<BR>)
%meteoRead1 = %meteoRead
}
IF (.</p> ISIN %meteoRead) {
%meteoRead = $remove(%meteoRead,</p>)
MSG %MeteoChan %MeteoRead1 %meteoRead
}
IF ((lune ISIN %meteoReadLune) && (</BODY> ISIN %meteoread)) MSG %MeteoChan Ephémérides: %meteoReadLune
}
Conclusion
pour tout bug ou suggestion n'hesitez pas a me contacter à womby@epiknet.fr ou encore a passer faire un petit tour sur undernet salon #drogenbos :)
p.s pour l'installation mettez le script et le fichier texte dans le dossier meme de votre executable mirc
Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
Télécharger le zip
Sources de la même categorie
Commentaires
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | | | | 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 |
|
|