variable Variablen, Ordneraulistung, Menu, Option, variable Liste optimieren

@echo off
goto :begin
----------------------------------------------------------------------------------------------------
README DISCMENU BY PHLEGMA

Hi, 

beiliegend zu dieser Readme findest du ein Programm oder eine Batch,
die einen beliebigen CD/DVD (oder Ordner) Inhalt auflisten und starten kann.

Allerdings muss dafür alles richtig konfiguriert werden!

der Inhalt muss folgende Kriterien erfüllen:
1. der Name des Ordners oder Programms darf nicht länger als 19 Stellen lang sein
2. die Exe des Programms im Ordner muss genauso wie der Ordner selbst heißen (nur mit .exe am Ende)
   sonst kann die Exe nicht richtig gestartet werden.
 2a) ansonsten kann eine Batch mit dem Ordnernamen gestartet werden (mit .bat am Ende)
     Hinweis: batch kann den parameter %1 verwerden um den Ort anzugeben an dem sie sich befindet
3. dem Programm kann/sollte im Ordner eine Infodatei beigelegt werden
   3a) Format: info-"programmname".txt (nicht vergessen: programmname=ordnername)  
4. Nichtzulistende Dateien sollten in einen Ordner namens extra verschoben werden.

Info: Die Dateien readme, discmenu und autorun.inf werden nicht gelistet.



@Phlegma 2007
----------------------------------------------------------------------------------------------------
readme.txt
----------------------------------------------------------------------------------------------------
:begin
setlocal enabledelayedexpansion
::    VERSION
      set version=1.0

title DiscMenu - Phlegma - ver. %version%

set /a count=0
for /f "delims=;" %%i in ('dir /b') do if "%%i" neq "%~nx0" if not "%%i"=="readme.txt" if not "%%i"=="autorun.inf" if not "%%i"=="extra" call :setprog "%%i"  
if %count% EQU 0 goto :eof

set /a Zeilen=(%count%+2)/3
call :MenueText
mode con lines=(%Zeilen%+5)

cls
echo.
echo.
echo   Hi, Du hast grade eine CD oder DVD von mir eingeschoben,
echo   jetzt kannst Du ausw„hlen, welches Programm Du installieren m”chtest^!
echo.
echo   Anzahl der gefunden Programme: %count%
echo.
echo.
echo   Weiter mit einer beliebigen Taste zur Programmauswahl ...
pause>nul

:Menue
cls
echo.
for /l %%n in (1,1,%Zeilen%) do echo!MZeile%%n!
echo.
echo.
set /p choice=  Gib die Nummer Deines Programms ein (0 fr Ende): 
set /a ANr=-1
set /a ANr=%choice% 2>nul
if %ANr% equ 0 goto :Ende
if %ANr% lss 0 goto :Fehler
if %ANr% gtr %count% goto :Fehler
goto :startprog
::start "Fenstertitel" "!prog%Nr%!" 
::goto :Menue

:setprog
set /a "count+=1"  
set "prog%count%=%~1"  
goto :eof

:MenueText
for /l %%m in (1,1,%Zeilen%) do (
    set "MZeile%%m=."  
    set /a Nr=%%m
    if !Nr! leq %count% set MZeile%%m=
    if !Nr! leq %count% call :ProcessEntryForLine %%m
    set /a Nr+=%Zeilen%
    if !Nr! leq %count% call :ProcessEntryForLine %%m
    set /a Nr+=%Zeilen%
    if !Nr! leq %count% call :ProcessEntryForLine %%m
)
goto :eof

:ProcessEntryForLine
set "NrForm=   %Nr%"  
set "ProgForm=!prog%Nr%!                    "  
set "MZeile%1=!MZeile%1!%NrForm:~-4%: %ProgForm:~0,19% "  
goto :eof

:Fehler
echo.
echo.
echo   Ungltige Auswahl - bitte Taste drcken und erneut versuchen...
pause>nul
goto :Menue

:startprog
cls
echo.
echo  Programm !prog%ANr%! gew„hlt.
echo.
echo    Optionen:
echo.
set "proggy=!prog%ANr%!"  
if "%proggy:~-3%"=="exe"  echo ^(s^)tart - ProgrammExe auf der CD/DVD direkt starten  
if exist "%proggy%\info-%proggy%.txt" echo  ^(i^)nfo   - Infodatei des Programms aufrufen  
echo.
if exist "%proggy%\%proggy%.exe" (echo  ^(s^)tart  - Programm/Installation starten)  
echo.
if exist "%proggy%\%proggy%.bat" (echo  ^(s^)tart  - Programm/Extension starten  
                                  echo    mehr Informationen sollten beim Aufruf oder bei info stehen.)
echo.
echo.
if not "%proggy:~-3%"=="exe" (if not exist "%proggy%\%proggy%.exe" echo  --- ProgrammExe nicht verfgbar )  
echo.
echo.
echo.
echo  ^(z^)urck - zurck zur Programmauswahl
echo.
set /p startprog=  W„hle: 
if "%startprog%"=="" goto :startprog  
if "%startprog%"=="start" if "%proggy:~-3%"=="exe" start %proggy% & goto :ende  
if "%startprog%"=="s" if "%proggy:~-3%"=="exe" start %proggy% & goto :ende  
if "%startprog%"=="start" if exist "%proggy%\%proggy%.exe" start "Programm" "%proggy%\%proggy%.exe" & goto :ende  
if "%startprog%"=="s" if exist "%proggy%\%proggy%.exe" start "Programm" "%proggy%\%proggy%.exe" & goto :ende  
if "%startprog%"=="start" if exist "%proggy%\%proggy%.bat" start cmd /c ("%proggy%\%proggy%.bat") & goto :ende  
if "%startprog%"=="s" if exist "%proggy%\%proggy%.bat" start cmd /c ("%proggy%\%proggy%.bat" "%~dp0%proggy%") & goto :ende  
if "%startprog%"=="info" start "Info" "%proggy%\info-%proggy%.txt" & goto :startprog  
if "%startprog%"=="i" start "Info" "%proggy%\info-%proggy%.txt" & goto :startprog  
if "%startprog%"=="zurck" goto Menue  
if "%startprog%"=="z" goto Menue  
echo  Fehler / falsche Eingabe
pause>nul
:Ende
cls
echo.
echo   Fertig! Programm wird in 5 Sekunden beendet.
echo.
echo.
ping -n 5 127.0.0.1 >nul 2>nul


:: @ Phlegma 2007                                             thx to bastla & biber @ www.administrator.de

::”„á ™Žš õ
::öäüß ÖÄÜ §