RENAME FROM LIST

@echo off
set "File2Read=mkv.txt"
If Not Exist "%File2Read%" (Goto :Error)

rem iterpiame 0
setlocal EnableDelayedExpansion
for /f "tokens=*" %%f in ('dir /b *.mkv ^| sort') do (
    SET var=%%f
    if  "!var:~7,1!" == "_" move %%f "!var:~0,6!0!var:~6!"
)

setlocal EnableExtensions EnableDelayedExpansion
for /f "delims=" %%a in ('Type "%File2Read%"') do (
    set /a count+=1
    set "Line[!count!]=%%a"
)

for /f "tokens=*" %%f in ('dir /b *.mkv ^| sort') do (
    set /a num+=1
    set "Out[!num!]=%%f"
)

if %count% neq %num% (Goto :Error)

for /l %%n in (1 1 %num%) do (
    echo mklink /h "!Line[%%n]!".mkv "!Out[%%n]!"
    mklink /h "!Line[%%n]!".mkv "!Out[%%n]!"
)

endlocal

rem # end #
pause>nul
Exit
For /L %%i in (1,1,%Count%) do (
    echo "Var%%i" is assigned to ==^> "!Line[%%i]!"
)

:Error
cls & Color 4C
echo(
echo   Failas "%File2Read%" nerastas arba klaidingas eiluciu skaicius count=%count% num=%num%
Pause>nul
exit /b