批处理之家 - Powered by Discuz! Board

标题: [文件操作] 文件加上序号的批处理代码怎么修改？ [打印本页]

作者: zhuoluo 时间: 2017-10-5 18:00 标题: 文件加上序号的批处理代码怎么修改？

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d') do (
for /f "tokens=1-4" %%a in ("%%i") do (
if not "%%i"=="%~nx0" ren "%%i" "%%a%%b%%c%%d"||del /f "%%i"
))
for /f "delims=" %%i in ('dir /b /a-d') do (
if not "%%i"=="%~nx0" (
set /a x+=1
ren "%%i" "!x!.%%i"
))
复制代码

这段代码实现了，当前文件夹下，所有文件加上序号。
现在我希望是：只给没有序号的文件加序号，有序号的就不加了。是不是可以？怎么修改？

作者: Batcher 时间: 2017-10-6 11:54

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d') do (
    for /f "tokens=1-4" %%a in ("%%i") do (
        if not "%%i"=="%~nx0" ren "%%i" "%%a%%b%%c%%d"||del /f "%%i"
    )
)
for /f "delims=" %%i in ('dir /b /a-d') do (
    if not "%%i"=="%~nx0" (
        set file=%%i
        if !file:~0,1! geq 1 (
            if !file:~0,1! leq 9 (
                break
            )
        )
        set /a x+=1
        ren "%%i" "!x!.%%i"
    )
)
复制代码

作者: zhuoluo 时间: 2017-10-10 10:41

回复 2# Batcher

好像不行呢，不信您试试，我的代码可以修改。您的不能

作者: zhuoluo 时间: 2017-10-12 15:07

自己顶个自己顶个自己顶个

作者: zhanglei1371 时间: 2017-10-12 17:28

本帖最后由 zhanglei1371 于 2017-10-12 17:30 编辑

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d') do (
echo %%i
for /f "tokens=1-4" %%a in ("%%i") do (
if not "%%i"=="%~nx0" ren "%%i" "%%a%%b%%c%%d"||del /f "%%i"
))
for /f "delims=" %%i in ('dir /b /a-d^|findstr /v ^[0-9]*\.') do (
if not "%%i"=="%~nx0" (
set /a x+=1
pause
echo ren "%%i" "!x!.%%i"
))
复制代码

作者: zhuoluo 时间: 2017-10-19 15:01

回复 5# zhanglei1371

我试了下，好像没有反应？

作者: zhuoluo 时间: 2017-10-22 15:55

自己顶个自己顶个自己顶个

作者: zhuoluo 时间: 2017-11-1 18:52

自己顶个自己顶个自己顶个

作者: lifei259 时间: 2017-11-2 17:00

本帖最后由 lifei259 于 2017-11-2 18:36 编辑

@echo off&setlocal EnableDelayedExpansion
set n=0
for /f "delims=" %%i in ('dir/b/a-d^|find /v "%~nx0"') do (
set /a n+=1
for /f "tokens=1-3 delims=." %%a in ("%%~nxi") do (
if "%%c"== "" (ren "%%i" "!n!.%%i")))

pause
复制代码

作者: zhuoluo 时间: 2017-11-8 08:27

回复 9# lifei259

成功，谢谢

欢迎光临批处理之家 (http://www.bathome.net/)