Lagerverwaltung Programm

if NOT exist list.txt goto nolist
if exist Lagerplatz.txt goto existinglist
if exist errorlog.txt goto existingerrorlog
set d=%date:~0,2%.%date:~-7,2%.%date:~-4,4%
set d=%d: =_%
set t=%time:~0,2%.%time:~3,2%
set t=%t: =0%
set dt=_%d%_%t%
@echo off
set ctrl=0
for /f "tokens=1,* delims=:" %%i in ('findstr /n $ list.txt') do @(  
	for /L %%a in (1,2,99) do if %%i==%%a echo %%j && set satz=%%a && set ISBN=%%j && echo %ISBN%>>ISBN%%a.txt
        for /L %%a in (2,2,99) do @if %%i==%%a echo %%j && set satz=%%a && set lager=%%j && echo %lager%>>lager%%a.txt
	rem for /L %%a in (3,2,99) do if %%i==%%a echo %%j && set bstd=%%j && echo %bstd%>>bstd%%a.txt

	call :blub
)
goto end



:wrongisbn
	set /a line=%satz%/2
	set /a errmi=%line%-1
	set /a errma=%line%+1
	echo Fehlerhafte ISBN in Zeile %satz% %isbn% -- wurde zwischen Zeile %errmi% und %errma% geschrieben. >>errorlog.txt
	exit /b

:wronglager
	set /a line=%satz%/2
	set /a errmi=%line%-1
	set /a errma=%line%+1
	echo Fehlerhafter Lagerplatz in Zeile %satz% %lager% -- wurde zwischen Zeile %errmi% und %errma% geschrieben.>>errorlog.txt
	exit /b

:nolist
	@echo off
	cls
	color 0c
	cd > owndirectory 
	set /p owndirectory= <owndirectory
	del owndirectory
	echo Es besteht keine Liste zur Verarbeitung! Stellen sie sicher, dass die list.txt, welche vom Scanner erzeugt wird sich im selben Verzeichnis befindet. 
	echo.
	echo Bitte stellen sie die list.txt in %owndirectory% zur Verfuegung.
	pause
	exit

:existinglist
	@echo off
	cls
	color 0e
	echo Es besteht bereits eine Lagerlist! Pruefen sie ob diese bereits uebertragen wurde!
	echo.
	echo Sollte sie schon im System vorhanden sein, loeschen sie die Datei Lagerliste.txt und starten sie den Vorgang neu
	pause
	exit

:existingerrorlog
	@echo off
	cls	
	color 0e
	echo Es besteht bereits eine Errorliste! Pruefen sie ob die Eintragungen in der Datenbank korrigiert wurden!
	echo.
	echo Sollten die Eintragungen korrigiert sein, loeschen sie die Datei errorlog.txt und starten sie den Vorgang neu
	pause
	exit




:blub
	set Lager=%Lager:~0,-1%
	set ISBN=%ISBN:~0,-1%
	set NUll0=0
	if not %satz%==1 if %ISBN:~0,1% GTR 9 call :wrongisbn
	if not %satz%==1 if %lager:~0,1% LEQ 9 call :wronglager
	rem echo %Lager%;%ISBN%;%bstd% >>Lagerplatz.txt
	echo %Lager%;%ISBN%;%Null0% >>Lagerplatz.txt
	exit /b

:end
	for /f "tokens=1,* delims=:" %%o in ('findstr /n $ Lagerplatz.txt') do @(  
		for /L %%b in (2,2,99) do if %%o==%%b echo %%p>>Lagerplatz_a.txt
	)

	for /f "tokens=1,* delims=:" %%o in ('findstr /n $ errorlog.txt') do @(  
		for /L %%b in (1,2,99) do if %%o==%%b echo %%p>>errorlog_a.txt
	)


	for /L %%k IN (1,1,20) DO (
		if exist ISBN%%k.txt del ISBN%%k.txt
		if exist lager%%k.txt del lager%%k.txt
		if exist bstd%%k.txt del bstd%%k.txt
	)
:weiter
	if exist Lagerplatz.txt ( 
		del Lagerplatz.txt
	)
	@echo off

	

	if exist Lagerplatz_a.txt (
		if NOT exist Lagerplatz.txt (
			rename Lagerplatz_a.txt Lagerplatz.txt
		)
	)
	
	
	if exist errorlog.txt (
		del errorlog.txt 
	)
	
	if NOT exist errorlog.txt ( 
		if exist errorlog_a.txt ( 
			rename errorlog_a.txt errorlog.txt
		)
	)
	
	if NOT exist Lagerplatz.txt (
		cls 
		color 0c 
		echo Ein FEHLER ist aufgetreten! 
		echo. 
		echo Datei Lagerplatz wurde nicht erstellt 
		echo Bitte kontaktieren sie einen Administrator!
		color 07

		pause>nul
		exit
	)
	
	if exist Lagerplatz.txt if exist errorlog.txt (
		cls
		color 02
		echo Verarbeitung erfolgreich 
		echo.
		echo Mindestens 1 Datensatz war fehlerhaft 
		echo.
		echo Duecken sie eine beliebige Taste um den Vorgang fertigzzstellen und die Fehler anzuzeigen.  Bitte ueberpruefen sie die Fehler. 
		pause>nul
		start notepad.exe errorlog.txt 
		cls
		set skipif=1 
		color 07
	)

	if not "%skipif%"=="1"if exist Lagerplatz.txt (  
		cls 
		color 02 
		echo Verarbeitung erfolgreich 
		echo. 
		pause 
		cls
		color 07
	)
	
	G:
	cd \Budders\
	rename list.txt list%dt%.txt
	move list%dt%.txt G:\Budders\lists
exit