Umbenennen Dateien

setlocal EnableDelayedExpansion 

set /p indexno=Enter the initial index string of the serial number for the files to change (for ex.: "02345") and press 'Enter':  
if [%indexno%]== echo Index string of the serial number cannot be void  && ping 127.0.0.1 -n 10>nul && exit 

set temp=%indexno%
set temp2=%indexno%
set first=%temp:~0,1%
for /f %%a in ('cmd /u /c set /p "=%temp:"= %"^<nul^|find /v /c ""') do echo Length of the string is %%a && set length=%%a  

if %first%==0 echo Index string of the serial number is %temp% && set /a index=1%temp% 
if not %first%==0 set /a index=%temp2% && echo Index string of the serial number is %temp2%

echo ****************************************************************************


set /p path=Enter the path for the files to change and press 'Enter':  

set Ordner="%path%"   
set Ordner2=%path%


if not exist %Ordner% echo Path for the files to be renamed could not be found! && pause && exit

echo **************************************************************************** 

set /p file_extension=Enter the file extension (for ex.:"jpg","pdf") for the files to change and press 'Enter':  
set file_ext=%file_extension%

if [%file_ext%]== echo File extension cannot be void && pause && exit 
if not exist %Ordner2%\*.%file_ext% echo No files with the "%file_ext%" file extension could be found! && pause && exit  

echo ****************************************************************************  


pushd "%Ordner%"   

Set strArrayNumber=0

For %%i IN ("???? - ????????_??????.%file_ext%") do (for /f %%a in ("%%~ni") ^  
do (set strArrayValue=%%a && call:functionArray)) 
                   
        
:functionArray

set /a strArrayNumber=%strArrayNumber% + 1
set strArrayName.%strArrayNumber%=%strArrayValue%

echo %strArrayName.1%
set temp=%strArrayName.1% && echo %temp%

set /a Mod=3%temp% %% 3 

echo %Mod%


if %Mod% == 1 ( ^
call :rename1)  ^
else ( if %Mod% == 0 ( ^
call :rename2)  ^
else (if %Mod% == 3 ( ^
call :rename3) ) )


:rename1

set "Char0=C"   
set "Char1=A"   
set "Char2=B"   


for %%i in ("???? - ????????_??????.%file_ext%") ^  
do ( for /f %%a in ("%%~ni") do set /a Mod=3%%a %% 3 && echo %%a && echo !Mod! && ^  
for /f "tokens=1,2 delims=_" %%a in ("%%~ni") ^  
do call ren "%%i" "%%a_!index:~-%length%!-%%Char!Mod!%%%%~xi") && ^  
if !Mod!==0 set /a index+=1 && set !index!=index) 

:rename2

set "Char0=A"   
set "Char1=B"   
set "Char2=C"   


for %%i in ("???? - ????????_??????.%file_ext%") ^  
do ( for /f %%a in ("%%~ni") do set /a Mod=3%%a %% 3 && echo %%a && echo !Mod! && ^  
for /f "tokens=1,2 delims=_" %%a in ("%%~ni") ^  
do call ren "%%i" "%%a_!index:~-%length%!-%%Char!Mod!%%%%~xi") && ^  
if !Mod!==2 set /a index+=1 && set !index!=index) 

:rename3

set "Char2=A"   
set "Char0=B"   
set "Char1=C"   


for %%i in ("???? - ????????_??????.%file_ext%") ^  
do ( for /f %%a in ("%%~ni") do set /a Mod=3%%a %% 3 && echo %%a && echo !Mod! && ^  
for /f "tokens=1,2 delims=_" %%a in ("%%~ni") ^  
do call ren "%%i" "%%a_!index:~-%length%!-%%Char!Mod!%%%%~xi") && ^  
if !Mod!==1 set /a index+=1 && set !index!=index) 

popd


echo [XXXXXXXXXX] 100%%

echo Rename completed
pause