[文件操作] 求助批处理文件整理，谢谢

@echo off
setlocal enabledelayedexpansion
for %%i in (*) do (
    set str=%%i
    set str=!str:的= !
    if not "%%i"=="%~nx0" (
    for /f %%a in ("!str!") do (
        if not exist %%a md %%a
        move "%%i" "%%a"
    ))
)
pause
复制代码

@echo off
md 体检表,报告
copy "*体检表*.*" "体检表"
copy "*报告*.*" "报告"
setlocal enabledelayedexpansion
for %%i in (*) do (
    set str=%%i
    set str=!str:的= !
    if not "%%i"=="%~nx0" (
        for /f %%a in ("!str!") do (
            if not exist %%a md %%a
            move "%%i" "%%a"
        )
    )
)
pause
复制代码

@echo off
setlocal enabledelayedexpansion
for %%i in (*) do if not "%%i"=="%~nx0" (
    set "str=%%i"
    set "str=!str:~,3!"
    if not exist "!str!" md "!str!"
    move "%%i" "!str!"
)
pause
复制代码

@echo off & setLocal enableDelayedExpansion & cd /d "%~dp0"

goto comment
代码作用局限:
    不能移动隐藏文件或者系统文件
    不会移动子目录下的文件
    若之前已有目录, 会覆盖目录下重名文件
    关键字有中文存在,所以该代码保存为bat文件时得用GKB编码
:comment

rem 要截取的关键字, 可继续往后添加, 包含这些字段的文件都会移动, 若同时包含有多个关键字, 则按下面填写的顺序移动
set key=张三 李四 王麻子

for %%i in (%key%) do (
    md "%%i"

    for /f "delims=" %%j in ('dir /b /a-d-s-h') do (
        echo "%%~nj" | find "%%i" > nul && set is=0

        if !is!==0 (
            move "%%~nxj" "%%i"
        )

        set is=1
    )
)

pause
复制代码