Не могу справиться с переменной

@set  author=Џ®«®¬®и*®ў Ђ.Ђ. 
@set  ver=0.1
@title [xml_sort]
@echo off
Color 0e
 
rem задаем переменные:
set File_name=file.xml
:: как бы имя проще получать ? так чтоб перетаскиваешь xml на
:: батник и батник в итоге получает имя xml файла
:: это что то типа:
:: set File_name=%1
set base_region=region.txt
set base_rayion=rayion.txt
set KPT=0
 
rem находим по тегу кадастровый номер:
For /F "tokens=2-5 Delims=<>:" %%a In ('find "<CadastralNumber>" ^<"%File_name%"') Do (
    set K_Region=%%a
    set K_Rayion=%%b
    set K_kvartal=%%c
    if %%d=="" (set KPT=1) else set K_uchastok=%%d
    goto :_ext1
)
:_ext1
rem выводим результат на экран:
if %KPT%==0 (
    echo ®, ¤*, нв® ‚›Џ€‘ЉЂ!!
    echo ====================
    echo %K_Region%:%K_Rayion%:%K_kvartal%:%K_uchastok%
    echo ====================
    echo.
)
if %KPT%==1 (
    echo ®, ¤*, нв® ЉЏ’!!
    echo ================
    echo %K_Region%:%K_Rayion%:%K_kvartal%
    echo ================
    echo.
)
 
rem находим название региона по номеру:
for /f "delims=] tokens=1*" %%a in ('find /n "%K_Region%" %base_region%') do (set T_Region=%%b)
set region=%T_Region:~4,50%
rem выводим результат на экран:
echo %T_Region:~1,50%
 
rem находим название района по номеру:
rem проверка на условный кад район
if %K_Rayion%==00 (
    set rayion=“б«®ў*л© Є*¤*бва®ўл© а*©®*
    echo 00=“б«®ў*л© Є*¤*бва®ўл© а*©®*
    goto :_ext2
)
for /f "delims=] tokens=1*" %%a in ('find /n "%K_Rayion%" %K_Region%_%base_rayion%') do (set T_Rayion=%%b)
set rayion=%T_Rayion:~4,50%
rem выводим результат на экран:
echo %T_Rayion:~1,50%
:_ext2
 
rem проверяем существует ли каталог:
rem %~p0
if NOT exist "%K_Region%_%region%\%K_Region%_%K_Rayion%_%rayion%\%K_Region%_%K_Rayion%_%K_kvartal%\" MD "%K_Region%_%region%\%K_Region%_%K_Rayion%_%rayion%\%K_Region%_%K_Rayion%_%K_kvartal%\"
 
rem подсчет количества символов в обозначении участка:
call :var_Count "%K_uchastok%" K_uchastok_zero
if %K_uchastok_zero%==1 set K_uchastok=000%K_uchastok%
if %K_uchastok_zero%==2 set K_uchastok=00%K_uchastok%
if %K_uchastok_zero%==3 set K_uchastok=0%K_uchastok%
goto :_ext3
 
:var_count
set var=%~1
if not defined var exit /b
set var=%var:~1%
set /a %2+=1
call :var_count "%var%" %2
exit /b
 
:_ext3
rem переименовываем файл:
if %KPT%==0 (
    set new_file_name=Љ‚‡“_%K_uchastok%_%date:~6,4%-%date:~3,2%-%date:~0,2%.xml
    echo Ќ®ў®Ґ Ё¬п д*©«*:=Љ‚‡“_%K_uchastok%_%date:~6,4%-%date:~3,2%-%date:~0,2%.xml
    echo Ќ®ў®Ґ Ё¬п д*©«*:=%new_file_name%
    rem именно тут каккая то проблема ^^
    rem т.е. в переменную не уходит значение
    echo %~p0%file_name%
    echo %~p0%new_file_name%
    ren %file_name% %new_file_name%
    pause
    move %new_file_name% "%K_Region%_%region%\%K_Region%_%K_Rayion%_%rayion%\%K_Region%_%K_Rayion%_%K_kvartal%\"
    echo Ќ®ў*п Ї*ЇЄ* д*©«*:="%K_Region%_%region%\%K_Region%_%K_Rayion%_%rayion%\%K_Region%_%K_Rayion%_%K_kvartal%\"
)
pause

@echo off
set File_name=file.xml
set K_uchastok=0038
set new_file_name=Љ‚‡“_%K_uchastok%_%date:~6,4%-%date:~3,2%-%date:~0,2%.xml
echo Ќ®ў®Ґ Ё¬п д*©«*:=Љ‚‡“_%K_uchastok%_%date:~6,4%-%date:~3,2%-%date:~0,2%.xml
echo Ќ®ў®Ґ Ё¬п д*©«*:=%new_file_name%
echo %~p0%file_name%
echo %~p0%new_file_name%
ren %file_name% %new_file_name%
pause

set File_name=file.xml
:: как бы имя проще получать ? так чтоб перетаскиваешь xml на
:: батник и батник в итоге получает имя xml файла
:: это что то типа:
:: set File_name=%1
set KPT=0
 
For /F "tokens=2-5 Delims=: " %%a In ('find "<Parcel CadastralNumber=" ^<"%File_name%"') Do (
    set K_Region=%%a
    set K_Rayion=%%b
    set K_kvartal=%%c
    if %%d=="" (set KPT=1) else set K_uchastok=%%d
    goto :_ext1
)
:_ext1
 
set K_Region=%K_Region:~17,2%
set K_uchastok=%K_uchastok:~0,-1%
echo %K_Region%:%K_Rayion%:%K_kvartal%:%K_uchastok%
pause