[文件操作] 批处理怎么根据文件名中的字符串将多个文件移动到同一文件夹

@echo off
for /f "tokens=2,3 delims=-" %%a in ('dir *.doc /b') do echo %%a-%%b>>mulu
for /f "delims=" %%i in (mulu) do if not defined %%i set %%i=A & echo %%i>>xmulu
del mulu
for /f "delims=" %%n in (xmulu) do md %%n
del xmulu
for /f "tokens=1-4 delims=-" %%f in ('dir *.doc /b') do move "%%f-%%g-%%h-%%i" "%%g-%%h"
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f %%a in ('dir *.doc *.dot /b') do (
	set wj=%%~na
	set wjm=!wj:-=.!
	echo !wjm!>>mulu
)
for /f %%b in (mulu) do (
	set wj=%%~nb
	echo !wj!>>xmulu
)
del mulu
for /f %%c in (xmulu) do (
	set wj=%%~xc
	echo !wj:.=!>>cmulu
)
del xmulu
for /f "delims=" %%i in (cmulu) do if not defined %%i set %%i=A & echo %%i>>dmulu
del cmulu
for /f "delims=" %%n in (dmulu) do md %%n
for /f "delims=" %%d in (dmulu) do (
	for /f "delims=" %%e in ('dir *.doc *.dot /b^|find "%%d"') do (
		move "%%e" "%%d"
		)
)
del dmulu
pause
复制代码

@echo off
for /f "tokens=1-4 delims=-." %%a in ('dir /b /a-d *.do*') do (
if not exist "%%c" md "%%c"
move "%%a-%%b-%%c*" "%%c"
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f %%a in ('dir *.doc *.docx *.dot /b') do (
	set wj=%%~na
	set wjm=!wj:-=.!
	echo !wjm!>>mulu
)
for /f %%b in (mulu) do (
	set wj=%%~nb
	echo !wj!>>xmulu
)
del mulu
for /f %%c in (xmulu) do (
	set wj=%%~xc
	echo !wj:.=!>>cmulu
)
del xmulu
for /f "delims=" %%i in (cmulu) do if not defined %%i set %%i=A & echo %%i>>dmulu
del cmulu
for /f "delims=" %%n in (dmulu) do md %%n
for /f "delims=" %%d in (dmulu) do (
	for /f "delims=" %%e in ('dir *.doc *.docx *.dot /b^|find "%%d"') do (
		move "%%e" "%%d"
		)
)
del dmulu
pause
复制代码