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
 
:ENDCOPY

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

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
 
:ENDCOPY

newswan

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

newswan

应该有个判断：前面没序号，添加序号

newswan

回复 17# ngb0519

http://www.bathome.net/viewthrea ... hlight=%B5%F7%CA%D4

    发不了附件，邮箱？