@echo off
Title Magazijn
Set /A Counter=-1
:Start
Set /A Counter=-1
ECHO Maak een keuze:
ECHO (1) in.
ECHO (2) Uit.
ECHO (3) Refresh.
set /p keuze=Keuze:
if "%keuze%"=="1" goto Incheck
if "%keuze%"=="2" goto Uitcheck
if "%keuze%"=="3" goto Refresh1
if "%keuze%"=="4" exit
cls
goto Start

:Refresh1
cls
goto Refresh

:Uitcheck
ECHO Welke wilt u Uitchecken?
SET /p Gereedschap=Gereedschap:
SET /p Naam=Naam:
:GEN
SET /a ID=%Random% %%450
if exist C:\MagazijnSoftware\%ID%.txt GOTO GEN
@ECHO %Date% %Time% %Naam% %Gereedschap% >> %ID%.txt
:worked
if not exist C:\MagazijnSoftware\%ID%.txt goto retry
cls
GOTO Refresh1

:retry
@ECHO %Date% %Time% %Naam% %Gereedschap% >> %ID%.txt
goto worked

:Incheck
ECHO Welke wilt u Inchecken?
SET /p IncheckID=ID:
echo list = "%IncheckID%"
for %%a in ("%IncheckID:,=" "%") do (
   echo Verwijderd: %%a.txt
   del %%a.txt
)
cls
GOTO Refresh1

:Lees
del C:\MagazijnSoftware\Lijst.txt
for /r . %%g in (*.txt) do echo %%~nxg >> C:\MagazijnSoftware\Lijst.txt
type Lijst.txt
Goto Start


:Check
set /p NummerID=ID:
for %%a in (%NummerID%.txt) do (
    set filename=%%~nxa
)
FOR /F "tokens=* delims=" %%x in (%NummerID%.txt) DO SET TICKETINFO=%%x
echo %filename% %TICKETINFO%
pause
cls
goto Start



:Refresh

Set /A Counter=%Counter% + 1

if exist C:\MagazijnSoftware\%Counter%.txt Goto EXECUTE

if %Counter% GEQ 500 GOTO ENDSEARCH
Goto Refresh

:EXECUTE
for %%a in (%Counter%.txt) do set filename=%%~nxa
FOR /F "tokens=* delims=" %%x in (%Counter%.txt) DO SET TICKETINFO=%%x
ECHO %filename% %TICKETINFO%
Set /A Counter=%Counter% + 1
if %Counter% GEQ 500 GOTO Start
Goto Refresh

:ENDSEARCH
Set /A Counter=-1
Goto Start