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

wyx567

怎么样让每5个文件移动到一个文件夹里

让文件夹内文件5个为一组移动到一个新文件夹里呢

Blitz

回复 13# wyx567


    再看看这样会不会好一点，14那个文件夹里进了6个应该是这6个文件名有一处是相同的吧，主要是这些文件的命名不统一。。。

@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
复制代码

lifei259

@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
复制代码

wyx567

回复 12# Blitz

您好,测试了,还是有文件没划进去,
文件夹里有的还剩下几个文件没进去,14文件夹进去了6个文件

剩下的文件我手工弄了,还是非常感谢您
如果您有兴趣有空再编辑答案,我留了文件可以继续测试

非常感谢!

Blitz

回复 11# wyx567


   应该可以了

@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
复制代码

wyx567

回复 10# Blitz


    好的,麻烦您了

Blitz

回复 8# wyx567


    那就是有一部分文件没有弄到咯，等晚上我再看看吧，现在不在电脑前

wyx567

回复 6# slore


    这样也行,就是把每个人名相同的文件放一起就好
只是正好都是5个文件而已

wyx567

回复 7# Blitz


  有,而且也是正确的文件~

Blitz

回复 4# wyx567


    请问那些由这个批处理创建的文件夹里有没有文件？

slore

其实按-分隔，取出中间40，41这种数字，按这个名字见文件夹存放就行吧，和5个没关系

wyx567

文件夹不需要设置成这样,用简单的数字或者字母来做文件夹都行

非常感谢~

wyx567

回复 3# Blitz

您好,运行后效果:

Blitz

使用前先备份好自己的文件，以免造成损失

@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
复制代码

wyx567

有几百个这样的文件