na Blog.cz

   #Toto je vzorový příklad
   JMENO | BYDLISTE | POVOLANI
   Karel Novak | Praha | ridic
   ing. Jan Faust | Pribram | urednik
   #Jaroslav Mlady | Olomouc | ucitel
   Bedrich Kropenka | Teplice | kuchar

   @echo off
   for /f "eol=# delims=| tokens=1,3" %%A in (adresy.txt) do (
    echo %%A, %%B
    REM ** Příkaz echo jsem u členu %%B nepsal, protože čárka značí, že se mají
    REM ** vypsat oba
    )
   pause

   @echo off
   REM *** Jednoduchý příklad využití dávek
   REM *** Autor: jakub zaplatilek (kikina-14.blog.cz)

   :zacatek
   color 35
   echo Obvody geometrickych utvaru
   echo ===========================
   echo C - Obvod ctverce
   echo O - Obvod obdelniku
   echo K - Konec davky
   echo Zadejte pismeno obrazce, jehoz obvod chcete vypocitat:
   set /p vyber=
   set ctverec=C
   set obdelnik=O
   set finite=K
   if /i %vyber%==%ctverec% goto octverce
   if /i %vyber%==%finite% goto konec2
   if /i %vyber%==%obdelnik% goto oobdelniku else goto konec
   REM *** Přepínač /i znamená, že podmínka nebude rozlišovat malá a velká
   REM *** písmena. V tomto příkladu vzácně můžet použít tradiční operátor ==

   :octverce
   color 42
   echo Obvod ctverce
   echo =============
   set /p stranaA=Zadejte velikost strany a:
   echo vzorec: o = a . a
   echo a = %stranaA%
   echo _________________
   echo                                                                     .
   set /a "vysledek1=stranaA*stranaA"
   echo o = a . a = %stranaA% . %stranaA% = %vysledek1%
   echo                                                                     .


   pause
   goto konec2

   :oobdelniku
   color 75
   echo Obvod obdelniku
   echo ===============
   set /p stranaA=Zadejte velikost strany a:
   set /p stranaB=Zadejte velikost strany b:
   echo vzorec: o = a . b
   echo a = %stranaA%
   echo b = %stranaB%
   echo _________________
   echo                                                                     .
   set /a "vysledek1=stranaA*stranaB"
   echo o = a . b = %stranaA% . %stranaB% = %vysledek1%
   echo                                                                     .
   pause
   goto Konec2
   :konec
   color 67
   echo Toto pismeno neznam. Nyni stisknete libovolnou klavesu pro navrat do

   hlavni nabidky
   :konec2

   @echo off
   chcp 1250
   for /f "tokens=1,2 delims=;" %%i in (adresy.txt) do (
    ..postiepostie -host:mail.xxx.cz -from:kikina.kikina@xxx.cz -to:%%i
    -s:"Predmet" -msg:"%%j," -file:dopis.txt -ns -charset:windows-1250 -
    log:log.txt || echo %%i;%%j >> chyby.txt
    echo Odesláno na %%i
   )

   kikina.kikina@xxx.cz;Nazdar Michale
   jklas@yyy.cz;Nazdar Honzo

   Nazdar kikino,
    tady ti píšu pokusnej dopis