qwertyuiop1

刚学搞得一个功能， 计算文件名长度后， 重命名文件

:bigen
cls
 
set /p a=inputLOT ID:
 
 
 
for /l %%a in (0,1,9999) do (
    set /a b+=1
    if not "!a:~%%a,1!"=="" (
        set c=!b!
    )
)
set /p=%c%
 
if %c% equ 9 goto a
if %c% equ 10 goto b
goto error
 
:error
color 4f
echo.
echo  错误,输入批号有误请重新输入
pause>nul 2>nul
goto bigen
 
:a
@echo off
setlocal enabledelayedexpansion
set s=map
for /f "tokens=* delims=" %%i in ('dir /b /a-d *.txt') do (
set "line=%%i" 
echo "%%i" | findstr %s% && ren "%%i" "!line:~0,12!_CP map.txt" || ren "%%i" "!line:~0,12!_Counter.txt"
)
for /f "tokens=* delims=" %%i in ('dir /b /a-d *.plf') do (
set "line=%%i"
ren "%%i" "!line:~0,12!.plf"
)
for /f "tokens=* delims=" %%i in ('dir /b /a-d *.xls') do (
set "line=%%i"
echo "%%i" | findstr %s% && del /s /q /f *map.xls|| ren "%%i" "!line:~0,12!.xls"
)
pause>nul 2>nul
exit
 
:b
color 2f
cls
@echo off
setlocal enabledelayedexpansion
set s=map
for /f "tokens=* delims=" %%i in ('dir /b /a-d *.txt') do (
set "line=%%i" 
echo "%%i" | findstr %s% && ren "%%i" "!line:~0,13!_CP map.txt" || ren "%%i" "!line:~0,13!_Counter.txt"
)
for /f "tokens=* delims=" %%i in ('dir /b /a-d *.plf') do (
set "line=%%i"
ren "%%i" "!line:~0,13!.plf"
)
for /f "tokens=* delims=" %%i in ('dir /b /a-d *.xls') do (
set "line=%%i"
echo "%%i" | findstr %s% && del /s /q /f *map.xls|| ren "%%i" "!line:~0,13!.xls"
)
pause>nul 2>nul
exitCOPY