Ihre Browserversion ist veraltet. Wir empfehlen, Ihren Browser auf die neueste Version zu aktualisieren.
Pollenflug

Pollenflug

Quellcode (c) Luca Franziskowski 2019

 


 

 

@echo off
rem *************************************************
rem By Luca Franziskowski. All rights reserved!
rem Made in 2019.
rem (c) Luca Franziskowski. Build: 19.04.19
rem *************************************************


set version=1.2
color 30
set ambrof=5
set ambror=7
set haself=01
set haselr=04
set erlef=02
set erler=04
set ulmef=03
set ulmer=05
set weidef=03
set weider=06
set pappelf=03
set pappelr=06
set eschef=03
set escher=05
set birkef=03
set birker=06
set buchef=03
set bucher=06
set eichef=04
set eicher=06
set rotbuchef=04
set rotbucher=06
set graeserf=04
set graeserr=09
set wegerichf=05
set wegerichr=08
set ampferf=05
set ampferr=08
set roggenf=05
set roggenr=07
set beifussf=05
set beifussr=09

:start
cls
cd/d %appdata%
if not exist pollenflug goto setup
cd/d pollenflug
title Pollenflug Version %version%
echo *******************************************************
echo *           Pollenflug %version%                            *
echo *******************************************************
echo *     (c) Luca Franziskowski           * %Date%   *
echo *     More: batchsoftware.de           * %Time%  *
echo *                                      ****************
echo * 1: Neuer Eintrag                     * Hauptmenue   *
echo * 2: Auswertung                        ****************
echo * 3: Aktuelle Daten online abgleichen  *
echo * 4: Tag durchsuchen                   *
echo * 5: Monats-Spiegel ansehen            *
echo * 6: Pollenkalender                    *
echo * 7: Persoenliche Pollenvorhersage     *
echo *                                      *
echo ****************************************
choice/c 1234567 >nul
if errorlevel 7 goto seven
if errorlevel 6 goto six
if errorlevel 5 goto fife
if errorlevel 4 goto four
if errorlevel 3 goto three
if errorlevel 2 goto two
if errorlevel 1 goto one
goto start

:seven
cls
rem init:
set ambre=0
set ampfe=0
set beif=0
set birke=0
set buche=0
set eiche=0
set erle=0
set esche=0
set graeser=0
set hasel=0
set pappel=0
set roggen=0
set ulme=0
set wegerich=0
set weide=0
rem change:
if exist Ambrosia_allergie.txt set ambre=1
if exist Ampfer_allergie.txt set ampfe=1
if exist Beifuss_allergie.txt set beif=1
if exist Birke_allergie.txt set birke=1
if exist Buche_allergie.txt set buche=1
if exist Eiche_allergie.txt set eiche=1
if exist Erle_allergie.txt set erle=1
if exist Esche_allergie.txt set esche=1
if exist Graeser_allergie.txt set graeser=1
if exist Hasel_allergie.txt set hasel=1
if exist Pappel_allergie.txt set pappel=1
if exist Roggen_allergie.txt set roggen=1
if exist Ulme_allergie.txt set ulme=1
if exist Wegerich_allergie.txt set wegerich=1
if exist Weide_allergie.txt set weide=1

set month=%date:~3,2%
set/a month=%month%*1
echo          Ihre persoenliche Pollenvorhersage
echo *******************************************************

if %ambre%==1 (
  if %month% EQU %ambrof% echo Ambrosia wird ab jetzt laenger fliegen!
  if %month% LSS %ambror% echo Ambrosia wird weiterhin fliegen!
  if %month% EQU %ambror% echo Ambrosia wird bald nicht mehr fliegen.
  if %month% GTR %ambror% echo Ambrosia fliegt nicht mehr. :D
   )
  if %ampfe%==1 (
   if %month% EQU %ampferf% echo Ampfer wird ab jetzt laenger fliegen!
   if %month% LSS %ampferr% echo Ampfer wird weiterhin fliegen!
   if %month% EQU %ampferr% echo Ampfer wird bald nicht mehr fliegen.
   if %month% GTR %ampferr% echo Ampfer fliegt nicht mehr. :D
  )
  if %beif%==1 (
     if %month% EQU %beifussf% echo Beifuss wird ab jetzt laenger fliegen!
     if %month% LSS %beifussr% echo Beifuss wird weiterhin fliegen!
     if %month% EQU %beifussr% echo Beifuss wird bald nicht mehr fliegen.
     if %month% GTR %beifussr% echo Beifuss fliegt nicht mehr. :D
    )
    if %birke%==1 (
       if %month% EQU %birkef% echo Birke wird ab jetzt laenger fliegen!
       if %month% LSS %birker% echo Birke wird weiterhin fliegen!
       if %month% EQU %birker% echo Birke wird bald nicht mehr fliegen.
       if %month% GTR %birker% echo Birke fliegt nicht mehr. :D
      )
      if %buche%==1 (
         if %month% EQU %buchef% echo Buche wird ab jetzt laenger fliegen!
         if %month% LSS %bucher% echo Buche wird weiterhin fliegen!
         if %month% EQU %bucher% echo Buche wird bald nicht mehr fliegen.
         if %month% GTR %bucher% echo Buche fliegt nicht mehr. :D
        )
        if %eiche%==1 (
           if %month% EQU %eichef% echo Eiche wird ab jetzt laenger fliegen!
           if %month% LSS %eicher% echo Eiche wird weiterhin fliegen!
           if %month% EQU %eicher% echo Erle wird bald nicht mehr fliegen.
           if %month% GTR %eicher% echo Eiche fliegt nicht mehr. :D
          )
          if %erle%==1 (
             if %month% EQU %erlef% echo Erle wird ab jetzt laenger fliegen!
             if %month% LSS %erler% echo Erle wird weiterhin fliegen!
             if %month% EQU %erler% echo Erle wird bald nicht mehr fliegen.
             if %month% GTR %erler% echo Erle fliegt nicht mehr. :D
            )
            if %esche%==1 (
               if %month% EQU %eschef% echo Esche wird ab jetzt laenger fliegen!
               if %month% LSS %escher% echo Esche wird weiterhin fliegen!
               if %month% EQU %escher% echo Esche wird bald nicht mehr fliegen.
               if %month% GTR %escher% echo Esche fliegt nicht mehr. :D
              )
              if %graeser%==1 (
                 if %month% EQU %graeserf% echo Graeser werden ab jetzt laenger fliegen!
                 if %month% LSS %graeserr% echo Graeser werden weiterhin fliegen!
                 if %month% EQU %graeserr% echo Graeser werden bald nicht mehr fliegen.
                 if %month% GTR %graeserr% echo Graeser fliegen nicht mehr. :D
                )
                if %hasel%==1 (
                   if %month% EQU %haself% echo Hasel wird ab jetzt laenger fliegen!
                   if %month% LSS %haselr% echo Hasel wird weiterhin fliegen!
                   if %month% EQU %haselr% echo Hasel wird bald nicht mehr fliegen.
                   if %month% GTR %ampferr% echo Hasel fliegt nicht mehr. :D
                  )
                  if %pappel%==1 (
                     if %month% EQU %pappelf% echo Pappel wird ab jetzt laenger fliegen!
                     if %month% LSS %pappelr% echo Pappel wird weiterhin fliegen!
                     if %month% EQU %pappelr% echo Pappel wird bald nicht mehr fliegen.
                     if %month% GTR %pappelr% echo Pappel fliegt nicht mehr. :D
                    )
                    if %roggen%==1 (
                       if %month% EQU %roggenf% echo Roggen wird ab jetzt laenger fliegen!
                       if %month% LSS %roggenr% echo Roggen wird weiterhin fliegen!
                       if %month% EQU %roggenr% echo Roggen wird bald nicht mehr fliegen.
                       if %month% GTR %roggenr% echo Roggen fliegt nicht mehr. :D
                      )
                      if %ulme%==1 (
                         if %month% EQU %ulmef% echo Ulme wird ab jetzt laenger fliegen!
                         if %month% LSS %ulmer% echo Ulme wird weiterhin fliegen!
                         if %month% EQU %ulmer% echo Ulme wird bald nicht mehr fliegen.
                         if %month% GTR %ulmer% echo Ulme fliegt nicht mehr. :D
                        )
                        if %wegerich%==1 (
                           if %month% EQU %wegerichf% echo Wegerich wird ab jetzt laenger fliegen!
                           if %month% LSS %wegerichr% echo Wegerich wird weiterhin fliegen!
                           if %month% EQU %wegerichr% echo Wegerich wird bald nicht mehr fliegen.
                           if %month% GTR %wegerichr% echo Wegerich fliegt nicht mehr. :D
                          )
                          if %weide%==1 (
                             if %month% EQU %weidef% echo Weide wird ab jetzt laenger fliegen!
                             if %month% LSS %weider% echo Weide wird weiterhin fliegen!
                             if %month% EQU %weider% echo Weide wird bald nicht mehr fliegen.
                             if %month% GTR %weider% echo Weide fliegt nicht mehr. :D
                            )
echo.
echo *********************** I *****************************
echo Info: Falls Sie derzeit keine Vorhersagen
echo       sehen koennen, starten Sie bitte erst die
echo       Auswertung, indem Sie im Menue die "2" druecken.
echo       Wenn dort keine Allergien festgestellt wurden,
echo       werden hier auch keine Vorhersagen angezeigt.
echo *******************************************************
echo                Druecken Sie eine Taste
pause >nul
goto start

:fife
cls
set jan1=0
set jan2=0
set jan3=0
set jan4=0
set jan5=0
set jan6=0
set jan7=0
set jan8=0
set jan9=0
set jan10=0
set jan11=0
set jan12=0
if exist 01_s.txt set/p jan=<01_s.txt
if exist 02_s.txt set/p jan2=<02_s.txt
if exist 03_s.txt set/p jan3=<03_s.txt
if exist 04_s.txt set/p jan4=<04_s.txt
if exist 05_s.txt set/p jan5=<05_s.txt
if exist 06_s.txt set/p jan6=<06_s.txt
if exist 07_s.txt set/p jan7=<07_s.txt
if exist 08_s.txt set/p jan8=<08_s.txt
if exist 09_s.txt set/p jan9=<09_s.txt
if exist 10_s.txt set/p jan10=<10_s.txt
if exist 11_s.txt set/p jan11=<11_s.txt
if exist 12_s.txt set/p jan12=<12_s.txt
echo **********************************
echo    Auswertung der Monate
echo **********************************
echo MONAT-     ANZAHL BESCHWERDEN -
echo Januar:    %jan%
echo Februar:   %jan2%
echo Maerz:     %jan3%
echo April:     %jan4%
echo Mai:       %jan5%
echo Juni:      %jan6%
echo Juli:      %jan7%
echo August:    %jan8%
echo September: %jan9%
echo Oktober:   %jan10%
echo November:  %jan11%
echo Dezember:  %jan12%
echo ***********************************
echo Druecken Sie eine beliebige Taste
pause >Nul
cls
goto start


:four
cls
echo **********************************
echo    Bestimmten Tag durchsuchen
echo **********************************
echo Geben Sie hier ein bestimmtes
echo Datum ein, um naehere Informationen
echo zu diesem Tag zu erhalten.:
echo.
set datum=%Date%
set/p datum=:::
cls
if exist Log%datum%.txt type Log%datum%.txt
if not exist Log%datum%.txt (
    echo Dieser Tag wurde leider nicht erfasst!
    timeout/t 2 >nul
    goto four
  )
echo *********************************
pause
goto start

:six
cls
echo Durchschnittlicher Pollenflug
echo **********************************
echo Hasel:    Januar-April
echo Erle:     Februar-April
echo Ulme:     Maerz-Mai
echo Weide:    Maerz-Juni
echo Pappel:   Maerz-Juni
echo Esche:    Maerz-Mai
echo Birke:    Maerz-Juni
echo Buche:    Maerz-Juni
echo Platane:  April-Juni
echo Eiche:    April-Juni
echo Rotbuche: April-Juni
echo Graeser:  April-September
echo Wegerich: Mai-September
echo Ampfer:   Mai-August
echo Roggen:   Mai-Juli
echo Nessel:   Mai-November
echo Beifuss:  Juni-September
echo **********************************
echo      Druecken Sie eine Taste
pause >Nul
goto start

:three
cls
echo                    DATEN ONLINE ABGLEICHEN
echo ************************************************************************
echo Ihr Browser wird nun geoeffnet um die Pollenwebsite anzuzeigen.
echo Damit geht das Notieren noch schneller und einfacher.
echo Gehen Sie einfach Zeile fuer Zeile hinunter, die Eingaben sind
echo nach der Tabelle auf dieser Website konzipiert.
echo.
echo - Diese Information wird 10 Sekunden lang angezeigt. -
echo.
start https://allergie.hexal.de/pollenflug/vorhersage/
echo.
echo Druecken Sie eine Taste, damit diese Botschaft schneller verschwindet.
timeout/t 10 >nul
cls
goto start



:one
cls
echo    ! Wichtige Frage !
echo Hast du heute beschwerden?
echo 1 = Ja
echo 2 = Nein
echo 3 = Zum Menue
choice/c 123 >Nul
if errorlevel 3 goto start
if errorlevel 2 set code=0
if errorlevel 1 set code=1
cls
echo Welche Pollen fliegen heute, dem %Date%?
title Welche Pollen fliegen heute, dem %Date%?

echo.
echo Ambrosia?
set/p data=<Ambrosia.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto ampfer
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=Ambrosia
if errorlevel 1 echo %data% >Ambrosia.data
:ampfer
echo *********************************
echo Ampfer?
set/p data=<Ampfer.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto beifuss
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Ampfer
if errorlevel 1 echo %data% >Ampfer.data
:beifuss
echo *********************************
echo Beifuss?
set/p data=<Beifuss.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto birke
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Beifuss
if errorlevel 1 echo %data% >Beifuss.data
:birke
cls
echo *********************************
echo Birke?
set/p data=<Birke.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto buche
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Birke
if errorlevel 1 echo %data% >Birke.data
:buche
echo *********************************
echo Buche?
set/p data=<Buche.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto eiche
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Buche
if errorlevel 1 echo %data% >Buche.data
:eiche
echo *********************************
echo Eiche?
set/p data=<Eiche.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto erle
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Eiche
if errorlevel 1 echo %data% >Eiche.data
:erle
cls
echo *********************************
echo Erle?
set/p data=<Erle.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto esche
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Erle
if errorlevel 1 echo %data% >Erle.data
:esche
echo *********************************
echo Esche?
set/p data=<Esche.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto graeser
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Esche
if errorlevel 1 echo %data% >Esche.data
:graeser
echo *********************************
echo Graeser?
set/p data=<Graeser.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto hasel
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Graeser
if errorlevel 1 echo %data% >Graeser.data
:hasel
cls
echo *********************************
echo Hasel?
set/p data=<Hasel.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto pappel
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Hasel
if errorlevel 1 echo %data% >Hasel.data
:pappel
echo *********************************
echo Pappel?
set/p data=<Pappel.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto roggen
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Pappel
if errorlevel 1 echo %data% >Pappel.data
:roggen
echo *********************************
echo Roggen?
set/p data=<Roggen.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto ulme
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Roggen
if errorlevel 1 echo %data% >Roggen.data

:ulme
cls
echo *********************************
echo Ulme?
set/p data=<Ulme.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto wegerich
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Ulme
if errorlevel 1 echo %data% >Ulme.data
:wegerich
echo *********************************
echo Wegerich?
set/p data=<Wegerich.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto weide
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Wegerich
if errorlevel 1 echo %data% >Wegerich.data
:weide
echo *********************************
echo Weide?
set/p data=<Weide.data
echo (Derzeitiger Score: %data%)
echo 1 = Ja
echo 2 = Nein
choice/c 12 >Nul
if errorlevel 2 goto infor
if errorlevel 1 if %code%==1 set/a data=%data%+1
if errorlevel 1 if %code%==0 set/a data=%data%-1
if errorlevel 1 set saver=%saver%, Weide
if errorlevel 1 echo %data% >Weide.data
:infor
cls
echo Moechten Sie noch einige weitere Daten festhalten?
echo Druecken Sie "Enter" zum ueberspringen.
set info= /
set/p info=:::
cls
echo.
set/p data=<Eintraege.data
set/a data=%data%+1
echo %data% >Eintraege.data

:: Log-Datei fuer bestimmten Tag erzeugen:
echo Log %Date%, %Time% >>Log%Date%.txt
echo Diese Pollen sind geflogen: %saver% >>Log%Date%.txt
echo Beschwerden:                %code% >>Log%Date%.txt
echo Informationen:              %info% >>Log%Date%.txt
:: Log-Datei fuer alle Eintraege:
echo %Date%::%Time% : %saver% : %code% : %info% >>log.txt

:: Monats-Spiegel:
set month=%date:~3,2%
if exist %month%_s.txt (
   set/p anzahl_beschwerden_monat=<%month%_s.txt
    )
if not exist %month%_s.txt (
      if %code%==1 (
       set anzahl_beschwerden_monat=0
        )
      if %code%==0 (
         set anzahl_beschwerden_monat=1
        )

       if %code%==1 (
         echo 0 >%month%_s.txt
          )

       if %code%==0 (
          echo 1 >%month%_s.txt
         )
      )
if %code%==1 (
  set/a anzahl_beschwerden_monat=%anzahl_beschwerden_monat%+1
  echo %anzahl_beschwerden_monat% >%month%_s.txt
   )
::Vorraussage erzeugen:
rem if %month% LSS


title Dein Eintrag Nr. %data% wurde gespeichert!
echo Dein Eintrag Nr. %data% wurde gespeichert!
echo.
if %data% LSS 10 set/a var=10-%data%
if %data% LSS 10 echo Du brauchst noch %var% Eintraege um eine Vorhersage erhalten zu koennen.
if %data% GTR 9 echo Du kannst die Vorhersage im Menue abrufen.
echo.
echo Druecke Sie eine Taste
pause >nul
goto start

 

:two
cls
set/p data=<Eintraege.data
if %data% LSS 10 (
  echo ************************ ! ********************************
  echo Du benoetigst mindestens 10 Eintraege fuer eine Vorhersage.
  echo Je mehr Eintraege vorhanden sind, desto genauer ist die
  echo Vorhersage! Damit lassen sich dann auch Pollenvorhersagen
  echo erstellen. Also fleissig weiter Daten sammeln!
  echo ***********************************************************
  echo                Druecken Sie eine Taste
  pause >Nul
  rem goto start
   )

rem if %data% LSS 10 goto start
cls
echo        Pollen-Allergie Vorhersage
echo.
echo                [Disclaimer]
echo **********************************************
echo  Die Vorhersage errechnet nur,
echo  welche Allergie man persoenlich
echo  am wahrscheinlichsten hat. Dies ersetzt
echo  keinen Arzt-Besuch, kann aber bei der
echo  Diagnose eine Hilfe sein.
echo.
echo       Ich uebernehme KEINE Haftung!
echo       Alle Angaben ohne Gewaehr!
echo **********************************************
echo  - Ich habe verstanden (Druecke eine Taste) -
pause >nul
cls
echo Berechnung...
set/p ambr=<Ambrosia.data
set/p ampf=<Ampfer.data
set/p beif=<Beifuss.data
set/p birke=<Birke.data
set/p buche=<Buche.data
set/p eiche=<Eiche.data
set/p erle=<Erle.data
set/p esche=<Esche.data
set/p graeser=<Graeser.data
set/p hasel=<Hasel.data
set/p pappel=<Pappel.data
set/p roggen=<Roggen.data
set/p ulme=<Ulme.data
set/p wegerich=<Wegerich.data
set/p weide=<Weide.data
set/p eintraege=<Eintraege.data

if exist *_allergie.txt del *_allergie.txt
:: VARIABLEN WERDEN WERTE IM HINBLICK AUF DIE ANZAHL DER EINTRAEGE VERGEBEN:
:: wenn score unter n1, keine allergie, wenn darueber mind. leichte allergie:
set n1=3
:: wenn score ueber n1 und unter n2, mittlere allergie:
set n2=6
:: wenn score ueber n3, starke allergie:
set n3=6

if %eintraege% GTR 20 set n1=5 set n2=8 set n3=8
if %eintraege% GTR 40 set n1=10 set n2=16 set n3=16
if %eintraege% GTR 60 set n1=15 set n2=25 set n3=25
if %eintraege% GTR 80 set n1=25 set n2=40 set n3=40
if %eintraege% GTR 100 set n1=30 set n2=50 set n3=50

set ambre=DATEI FEHLER
if %ambr% LSS %n1% set ambre=KEINE ALLERGIE
if %ambr% LSS %n1% goto w1
if %ambr% LSS %n2% set ambre=LEICHTE ALLERGIE
echo 1 >Ambrosia_allergie.txt
if %ambr% LSS %n2% goto w1
if %ambr% EQU %n2% set ambre=LEICHTE ALLERGIE
if %ambr% EQU %n2% goto w1
if %ambr% GTR %n3% set ambre=STARKE ALLERGIE !
if %ambr% GTR %n3% set ambre=STARKE ALLERGIE !

:w1
set ampfe=DATEI FEHLER
if %ampf% LSS %n1% set ampfe=KEINE ALLERGIE
if %ampf% LSS %n1% goto w2
echo 1 >Ampfer_allergie.txt
if %ampf% LSS %n2% set ampfe=LEICHTE ALLERGIE
if %ampf% LSS %n2% goto w2
if %ampf% EQU %n2% set ampfe=LEICHTE ALLERGIE
if %ampf% EQU %n2% goto w2
if %ampf% GTR %n3% set ampfe=STARKE ALLERGIE !
if %ampf% EQU %n3% set ampfe=STARKE ALLERGIE !

:w2
set beife=DATEI FEHLER
if %beif% LSS %n1% set beife=KEINE ALLERGIE
if %beif% LSS %n1% goto w3
echo 1 >Beifuss_allergie.txt
if %beif% LSS %n2% set beife=LEICHTE ALLERGIE
if %beif% LSS %n2% goto w3
if %beif% EQU %n2% set beife=LEICHTE ALLERGIE
if %beif% EQU %n2% goto w3
if %beif% GTR %n3% set beife=STARKE ALLERGIE !
if %beif% EQU %n3% set beife=STARKE ALLERGIE !

:w3
set birkee=DATEI FEHLER
if %birke% LSS %n1% set birkee=KEINE ALLERGIE
if %birke% LSS %n1% goto w4
echo 1 >Birke_allergie.txt
if %birke% LSS %n2% set birkee=LEICHTE ALLERGIE
if %birke% LSS %n2% goto w4
if %birke% EQU %n2% set birkee=LEICHTE ALLERGIE
if %birke% EQU %n2% goto w4
if %birke% GTR %n3% set birkee=STARKE ALLERGIE !
if %birke% EQU %n3% set birkee=STARKE ALLERGIE !

:w4
set eichee=DATEI FEHLER
if %eiche% LSS %n1% set eichee=KEINE ALLERGIE
if %eiche% LSS %n1% goto w5
echo 1 >Eiche_allergie.txt
if %eiche% LSS %n2% set eichee=LEICHTE ALLERGIE
if %eiche% LSS %n2% goto w5
if %eiche% EQU %n2% set eichee=LEICHTE ALLERGIE
if %eiche% EQU %n2% goto w5
if %eiche% GTR %n3% set eichee=STARKE ALLERGIE !
if %eiche% EQU %n3% set eichee=STARKE ALLERGIE !

:w5
set erlee=DATEI FEHLER
if %erle% LSS %n1% set erlee=KEINE ALLERGIE
if %erle% LSS %n1% goto w6
echo 1 >Erle_allergie.txt
if %erle% LSS %n2% set erlee=LEICHTE ALLERGIE
if %erle% LSS %n2% goto w6
if %erle% EQU %n2% set erlee=LEICHTE ALLERGIE
if %erle% EQU %n2% goto w6
if %erle% GTR %n3% set erlee=STARKE ALLERGIE !
if %erle% EQU %n3% set erlee=STARKE ALLERGIE !
:w6
set eschee=DATEI FEHLER
if %esche% LSS %n1% set eschee=KEINE ALLERGIE
if %esche% LSS %n1% goto w7
echo 1 >Esche_allergie.txt
if %esche% LSS %n2% set eschee=LEICHTE ALLERGIE
if %esche% LSS %n2% goto w7
if %esche% EQU %n2% set eschee=LEICHTE ALLERGIE
if %esche% EQU %n2% goto w7
if %esche% GTR %n3% set eschee=STARKE ALLERGIE !
if %esche% EQU %n3% set eschee=STARKE ALLERGIE !
:w7
set graesere=DATEI FEHLER
if %graeser% LSS %n1% set graesere=KEINE ALLERGIE
if %graeser% LSS %n1% goto w8
echo 1 >Graeser_allergie.txt
if %graeser% LSS %n2% set graesere=LEICHTE ALLERGIE
if %graeser% LSS %n2% goto w8
if %graeser% EQU %n2% set graesere=LEICHTE ALLERGIE
if %graeser% EQU %n2% goto w8
if %graeser% GTR %n3% set graesere=STARKE ALLERGIE !
if %graeser% EQU %n3% set graesere=STARKE ALLERGIE !
:w8
set hasele=DATEI FEHLER
if %hasel% LSS %n1% set hasele=KEINE ALLERGIE
if %hasel% LSS %n1% goto w9
echo 1 >Hasel_allergie.txt
if %hasel% LSS %n2% set hasele=LEICHTE ALLERGIE
if %hasel% LSS %n2% goto w9
if %hasel% EQU %n2% set hasele=LEICHTE ALLERGIE
if %hasel% EQU %n2% goto w9
if %hasel% GTR %n3% set hasele=STARKE ALLERGIE !
if %hasel% EQU %n3% set hasele=STARKE ALLERGIE !
:w9
set pappele=DATEI FEHLER
if %pappel% LSS %n1% set pappele=KEINE ALLERGIE
if %pappel% LSS %n1% goto w10
echo 1 >Pappel_allergie.txt
if %pappel% LSS %n2% set pappele=LEICHTE ALLERGIE
if %pappel% EQU %n2% set pappele=LEICHTE ALLERGIE
if %pappel% LSS %n2% goto w10
if %pappel% EQU %n2% goto w10
if %pappel% GTR %n3% set pappele=STARKE ALLERGIE !
if %pappel% GTR %n3% set pappele=STARKE ALLERGIE !

:w10
set roggene=DATEI FEHLER
if %roggen% LSS %n1% set roggene=KEINE ALLERGIE
if %roggen% LSS %n1% goto w11
echo 1 >Roggen_allergie.txt
if %roggen% LSS %n2% set roggene=LEICHTE ALLERGIE
if %roggen% EQU %n2% set roggene=LEICHTE ALLERGIE
if %roggen% LSS %n2% goto w11
if %roggen% EQU %n2% goto w11
if %roggen% GTR %n3% set roggene=STARKE ALLERGIE !
if %roggen% EQU %n3% set roggene=STARKE ALLERGIE !

:w11
set ulmee=DATEI FEHLER
if %ulme% LSS %n1% set ulmee=KEINE ALLERGIE
if %ulme% LSS %n1% goto w12
echo 1 >Ulme_allergie.txt
if %ulme% LSS %n2% set ulmee=LEICHTE ALLERGIE
if %ulme% EQU %n2% set ulmee=LEICHTE ALLERGIE
if %ulme% LSS %n2% goto w12
if %ulme% EQU %n2% goto w12
if %ulme% GTR %n3% set ulmee=STARKE ALLERGIE !
if %ulme% EQU %n3% set ulmee=STARKE ALLERGIE !

:w12
set wegeriche=DATEI FEHLER
if %wegerich% LSS %n1% set wegeriche=KEINE ALLERGIE
if %wegerich% LSS %n1% goto w13
echo 1 >Wegerich_allergie.txt
if %wegerich% LSS %n2% set wegeriche=LEICHTE ALLERGIE
if %wegerich% EQU %n2% set wegeriche=LEICHTE ALLERGIE
if %wegerich% LSS %n2% goto w13
if %wegerich% EQU %n2% goto w13
if %wegerich% GTR %n3% set wegeriche=STARKE ALLERGIE !
if %wegerich% EQU %n3% set wegeriche=STARKE ALLERGIE !

:w13
set weidee=DATEI FEHLER
if %weide% LSS %n1% set weidee=KEINE ALLERGIE
if %weide% LSS %n1% goto w14
echo 1 >Weide_allergie.txt
if %weide% LSS %n2% set weidee=LEICHTE ALLERGIE
if %weide% EQU %n2% set weidee=LEICHTE ALLERGIE
if %weide% LSS %n2% goto w14
if %weide% EQU %n2% goto w14
if %weide% GTR %n3% set weidee=STARKE ALLERGIE !
if %weide% EQU %n3% set weidee=STARKE ALLERGIE !
:w14

set buchee=DATEI FEHLER
if %buche% LSS %n1% set buchee=KEINE ALLERGIE
if %buche% LSS %n1% goto w15
echo 1 >Buche_allergie.txt
if %buche% LSS %n2% set buchee=LEICHTE ALLERGIE
if %buche% EQU %n2% set buchee=LEICHTE ALLERGIE
if %buche% LSS %n2% goto w15
if %buche% EQU %n2% goto w15
if %buche% GTR %n3% set buchee=STARKE ALLERGIE !
if %buche% EQU %n3% set buchee=STARKE ALLERGIE !
:w15

echo Daten geladen.
timeout/t 1 >nul
cls
echo                  AUSWERTUNG
echo **************************************************
echo Ambrosia: %ambre%     (%ambr%)
echo Ampfer:   %ampfe%     (%ampf%)
echo Beifuss:  %beife%     (%beif%)
echo Birke:    %birkee%     (%birke%)
echo Buche:    %buchee%     (%buche%)
echo Eiche:    %eichee%     (%eiche%)
echo Erle:     %erlee%     (%erle%)
echo Esche:    %eschee%     (%esche%)
echo Graeser:  %graesere%     (%graeser%)
echo Hasel:    %hasele%     (%hasel%)
echo Pappel:   %pappele%     (%pappel%)
echo Roggen:   %roggene%     (%roggen%)
echo Ulme:     %ulmee%     (%ulme%)
echo Wegerich: %wegeriche%     (%wegerich%)
echo Weide:    %weidee%     (%weide%)
echo **************************************************
echo 1: Log-Datei anzeigen
echo 2: Zurueck
choice/c 12 >nul
if errorlevel 2 goto start
cls
echo **************************************************
if exist log.txt type log.txt
if not exist log.txt echo Log-Datei wurde nicht gefunden.
echo **************************************************
echo       Druecken Sie eine beliebige Taste.
pause >nul
goto start


:setup
mkdir pollenflug
cd/d pollenflug
echo 0 >Ambrosia.data
echo 0 >Ampfer.data
echo 0 >Beifuss.data
echo 0 >Birke.data
echo 0 >Buche.data
echo 0 >Eiche.data
echo 0 >Erle.data
echo 0 >Esche.data
echo 0 >Graeser.data
echo 0 >Hasel.data
echo 0 >Pappel.data
echo 0 >Roggen.data
echo 0 >Ulme.data
echo 0 >Wegerich.data
echo 0 >Weide.data
echo 0 >Eintraege.data
goto start
rem ***************** ENDE SKRIPT. (c) Luca Franziskowski 2019. All rights reserved! ********************

Neuigkeiten

 Erfahre die neuesten Nachrichten aus der IT-Welt über unseren Blog.

Blog besuchen

 Login für Freunde und Kollegen

Cookie-Regelung

Diese Website verwendet Cookies, zum Speichern von Informationen auf Ihrem Computer.

Stimmen Sie dem zu?