remplace
AutomateMeteociel2018, avec invention d'un calcul de coût VMC
suite à quelques modification du site
remplace le programme frère de la page:
AutomateMeteociel, le reste inchangé
nécessite Wget
se joue sur vostro xp dans dossier c:\users\adminpo\desktop\meteo
variante vmc (REMPLACER % % par %% et sauver sous le nom ueuro.bat avant d'exécuter!)
pour la capture dans une
FenetreDeCommande:
set stampdeb=aaaammdd
set stampfin=aaaammdd
rem 7040: dieppe, 7240: orleans (à découvrir en demandant tableau statistique sur le site MeteoCiel?)
set ville=7040
ueuro 2022
modif 20220210
en-tete sur fichier meteo
an.bat (fait setfddeb et fin et lance u)
filtrer meteo 1023°
corrigé bug si aucun klima
gaffe pas d'archives antérieuresq à 2018
@echo off
echo on
rem si premier parametre -: appel récu_rsif, ne pas recalculer nomfi
rem prévoir sortie hiératchise selon ??????
rem envisager dates butoir et si %nomf > ne rien faire
if $%1 == $ goto doc
if $%1 == $- goto interne
if $%stampdeb% == $ goto setdeb
if $%stampfin% == $ goto setfin
set nomfi=%1%2%4.txt
set nomfi=%ville%_%stampdeb%-%stampfin%.txt
echo sortie vers %nomfi%
goto faire
:interne
shift
:faire
if $%2 == $ goto an
if $%3 == $ goto mois
rem GAFFE: le deuxième est le mois 01-12 et le troisième le mois aussi mais de 00-11 qui est utilisé sur le site web
rem à créer par un .vbs
set stamp=%1%2%4
echo %stamp% %stampdeb% %stampfin%
if %stamp% LSS %stampdeb% goto done1
if %stamp% GTR %stampfin% goto done1
goto ouf
:done1
rem pause
goto done
:ouf
echo -----------stamp: %stamp%
rem 7240
"c:\Program Files\GnuWin32\bin\wget.exe" --no-check-certificate -o html\%stamp%.log -O html\%stamp%.html "http://www.meteociel.com/temps-reel/obs_villes.php?code2=%ville%&jour2=%4&mois2=%3&annee2=%1&envoyer=OK" 2>err.txt
cscript html2euro.vbs html\%stamp%.html 1> jour.txt
rem pause
type jour.txt | find "%stamp%" >> %nomfi%
rem del html\%stamp%.html
rem del html\%stamp%.log
goto done
:done
rem pause
goto done
:mois
rem echo mois %2
if %2 == 01 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) do call ueuro - %1 %2 00 % %j 31
rem annees bisextiles
if %1%2 == 200802 goto bi
if %1%2 == 201202 goto bi
if %1%2 == 201602 goto bi
if %1%2 == 202002 goto bi
rem année non bissecstile
if %2 == 02 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28) do call ueuro - %1 %2 01 % %j 28
goto mars
:bi
rem année bissectile
if %2 == 02 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29) do call ueuro - %1 %2 01 % %j 29
:mars
if %2 == 03 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) do call ueuro - %1 %2 02 % %j 31
if %2 == 04 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30) do call ueuro - %1 %2 03 % %j 30
if %2 == 05 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) do call ueuro - %1 %2 04 % %j 31
if %2 == 06 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30) do call ueuro - %1 %2 05 % %j 30
if %2 == 07 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) do call ueuro - %1 %2 06 % %j 31
if %2 == 08 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) do call ueuro - %1 %2 07 % %j 31
if %2 == 09 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30) do call ueuro - %1 %2 08 % %j 30
if %2 == 10 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) do call ueuro - %1 %2 09 % %j 31
if %2 == 11 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30) do call ueuro - %1 %2 10 % %j 30
if %2 == 12 for % %j in (01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31) do call ueuro - %1 %2 11 % %j 31
goto done
:an
if exist %nomfi% goto fodel
echo "AAAAMMJJHH T KWH EURO" > %nomfi%
if %1==2016 goto an2016
for % %m in (01 02 03 04 05 06 07 08 09 10 11 12) do call ueuro - %1 % %m
goto done
:an2016
for % %m in (01 02 03 04 05 06 07 08 09 10 11 12) do call ueuro - %1 % %m
goto done
:fodel
echo fichier %nomfi% existe! try again.
goto done
:setdeb
echo set stampdeb=AAAAMMJJ
goto done
:setfin
echo set stampfin=AAAAMMJJ
goto done
:doc
echo %1 AAAA
echo %1 AAAA MM
echo %1 AAAA MM mm jj
echo (MM est le mois de 01 à 12, mm de 00 à 11), en attendant une solution plus élégante
echo fusionner avec la sortie de klimaloggpro pa la commande:
echo cscript and.vbs klimalogpro.csv %stampdeb%-%stampfin%.txt
:done
exemple
AAAAMMJJHH T KWH EURO
2021100100 10,7 0,2822 0,04233
2021100101 9,8 0,3128 0,04692
2021100102 9,1 0,3366 0,05049
2021100103 8,6 0,3536 0,05304
2021100104 7,6 0,3876 0,05814
2021100105 7,1 0,4046 0,06069
2021100106 8,1 0,3706 0,05559
2021100107 8,5 0,357 0,05355
2021100108 8,6 0,3536 0,05304
2021100109 9,9 0,3094 0,04641
2021100110 12,6 0,2176 0,03264
2021100111 14,6 0,1496 0,02244
2021100112 15,8 0,1088 0,01632
2021100113 16,9 0,0714 0,01071
2021100114 16,6 0,0816 0,01224
2021100115 16,6 0,0816 0,01224
2021100116 14,8 0,1428 0,02142
2021100117 15,7 0,1122 0,01683
2021100118 15,7 0,1122 0,01683
2021100119 15,9 0,1054 0,01581
2021100120 15,9 0,1054 0,01581
2021100121 15,9 0,1054 0,01581
2021100122 13,8 0,1768 0,02652
2021100123 13,8 0,1768 0,02652
2021100200 14,3 0,1598 0,02397
2021100201 14,2 0,1632 0,02448
2021100202 14,2 0,1632 0,02448
jus 2
AAAAMMJJHH T KWH EURO
2021100100 10,7 0,2822 0,04233
2021100101 9,8 0,3128 0,04692
2021100102 9,1 0,3366 0,05049
2021100103 8,6 0,3536 0,05304
2021100104 7,6 0,3876 0,05814
2021100105 7,1 0,4046 0,06069
2021100106 8,1 0,3706 0,05559
2021100107 8,5 0,357 0,05355
2021100108 8,6 0,3536 0,05304
2021100109 9,9 0,3094 0,04641
2021100110 12,6 0,2176 0,03264
2021100111 14,6 0,1496 0,02244
2021100112 15,8 0,1088 0,01632
2021100113 16,9 0,0714 0,01071
2021100114 16,6 0,0816 0,01224
2021100115 15 0,136 0,0204
2021100116 14,8 0,1428 0,02142
2021100117 15,7 0,1122 0,01683
2021100118 15,7 0,1122 0,01683
2021100119 15,9 0,1054 0,01581
2021100120 16 0,102 0,0153
2021100121 15 0,136 0,0204
2021100122 13,8 0,1768 0,02652
2021100123 13,8 0,1768 0,02652
2021100200 14,3 0,1598 0,02397
2021100201 14,2 0,1632 0,02448
2021100202 14,2 0,1632 0,02448
2021100203 13,5 0,187 0,02805
2021100204 13,2 0,1972 0,02958
2021100205 12,6 0,2176 0,03264
2021100206 12,7 0,2142 0,03213