qixiaobin0715

未经测试

@echo off
set var=山东 广州 四川
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /s /a-d') do (
    set "str=%%~na"
    set n=0
    for %%a in (%var%) do (
        set /a n+=1
        if not "!str!"=="!str:%%a=!" ren "%%a" "0!n!.!str!%%~xa"
    )
)
pause
复制代码

newswan

当前目录下运行正确，已测试
子目录 其他目录 自己修改一下

ngb0519

回复 7# newswan


    非常感谢，但是运行还是不成功。

ngb0519

回复 6# rockjean


    是的，但是不能改表原始文件名，只是在原始文件名前面加前缀。这个前缀按照规则，比如01.山东；02.广州，

newswan

回复  newswan


   感谢帮助，但是 运行下来，不行
ngb0519 发表于 2021-5-13 13:27

@echo off
chcp 936
setlocal enableDelayedExpansion

set str=01 山东 02 四川

for /f "usebackq tokens=* delims=" %%a in (` dir /b *.docx `) do (
    call :f1 "%%a" %str%
)
goto :END

rem %0 %str% index
:f1
if not "%2"=="" (
    echo %1 | findstr /r "^[^0-9]*%3" >nul
    if !errorlevel!==0 (
        echo "%~1" "%2_%~1"
        goto :eof
    )
    shift /2 & shift /2
    goto :f1
)
goto :eof

:END
复制代码

rockjean

回复 5# ngb0519


    你的意思是把所有含山东关键字的文件，全部在前面加编号01，含有广州的文件，加编号02，含有四川的文件，加编号03，这个意思吧？

ngb0519

回复 4# newswan


   感谢帮助，但是 运行下来，不行

newswan

@echo off
setlocal enableDelayedExpansion

set str=01 山东 02 四川


call :f1  库存表-四川.docx %str%
goto :END

:f1
if not "%2"=="" (
    echo %1 | findstr /r "^[^0-9]*%3" >nul
    if !errorlevel!==0 (
        echo %1 %2_%1
        goto :eof
    )
    shift /2 & shift /2
    goto :f1
)
goto :eof

:END
复制代码

如果正确 把 echo 改成 ren
个人习惯，. 表示扩展名， 文件名中用 - _

ngb0519

回复 2# rockjean



    感谢大神的帮助，但是我运行了一下：
1、批处理前：库存表—山东.docx
2、批处理后：01山东东.docx
3、批处理文件是这样的：ren 山东*.* 01山东*.*
                      ren *山东.* 01山东*.*


4、运行后改变了原始文件名！我的想法是：如何在不改变原始文件名的前提下，根据文件名的关键词，在文件名前加特定前缀。
比如，
批处理前文件名是这样：山东销售情况
批处理后文件名是这样：01、山东销售情况

rockjean

回复 1# ngb0519


    这个很简单哦，用重命名命令就可以了：
    ren 山东*.* 01山东*.*
    ren 广州*.* 02广州*.*
    ren 四川*.* 03四川*.*

诸如此类，试验的时候可以先备份一下文件夹。