Код: Выделить всё
@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 new_file_name=value
(
set new_file_name=new value
echo %new_file_name%
echo !new_file_name!
)Код: Выделить всё
Setlocal EnableDelayedExpansionКод: Выделить всё
cmd /v:on /c batnik.batКод: Выделить всё
57401380000009Код: Выделить всё
set File_name=file.xml
:: как бы имя проще получать ? так чтоб перетаскиваешь xml на
:: батник и батник в итоге получает имя xml файла
:: это что то типа:
:: set File_name=%1
set KPT=0
For /F "tokens=2-5 Delims=: " %%a In ('find "Код: Выделить всё
@echo off
setlocal enableextensions enabledelayedexpansion
set sFile=%~1
if defined sFile (
if exist "%sFile%" (
rem Здесь Ваш код
) else (
echo File [%sFile%] not found
)
) else (
echo Usage: %~0 ^
)
endlocal
exit /b 0