[文件操作] 求批处理-根据文件名中相同字符创建文件夹并移入

@echo off &for /f "tokens=1 delims=0123456789" %%a in ('dir /b *.jpg') do (
	if not exist "%%a\" md "%%a"
	if exist "%%a*%%~xa" move /y "%%a*%%~xa" "%%a\"
) 2>nul
pause&exit/b
复制代码

@echo off &for /f "tokens=1-4 delims=_" %%1 in ('dir /b *.jpg') do for /f "tokens=1 delims=0123456789" %%a in ("%%4") do (
	md "%%1_%%2_%%3_%%a\"
	if exist "%%1_%%2_%%3_%%a*.jpg" move /y "%%1_%%2_%%3_%%a*.jpg" "%%1_%%2_%%3_%%a\"
) 2>nul
pause&exit/b
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b/a-d') do (
    if %%~fa neq %~f0 (
        set "str=%%~na"&call :Eng %str%
        if not exist "!str!" md "!str!"
        move "%%a" "!str!"
    )
)
pause&exit/b

:Eng
set/a n+=1
set last=%str:~-1%
echo "%last%" | findstr /r "[A-Za-z]">nul &&exit/b|| set str=%str:~0,-1%&goto :Eng
复制代码

@echo off
cd /d "%~dp0"
set az=q w e r t y u i o p a s d f g h j k l z x c v b n m
for /f "delims=" %%i in ('dir /b /a-d *.jpg ^| findstr /i "[a-z].*\.jpg$"') do (
	set n=%%~ni
	set "_n=%%~ni|"
	setlocal enabledelayedexpansion
	for %%a in (%az%) do (
		set "n=!n:%%a=\!"
	)
	for %%a in ("!n!|%%~xi") do (
		endlocal
		if "%%~na" equ "|" (
			set f=%%~ni
		) else (
			call set "f=%%_n:%%~na=%%"
		)
	)
	call md "%%f%%" 2>nul
	call move "%%i" "%%f%%\"
)
pause
复制代码

for /f "delims=" %%i in ('dir /b /a-d ^|find /v "%~nx0" ^| findstr /i "[a-z].*\."') do (
复制代码

@echo off &setlocal &for /f "delims=" %%a in ('dir /b *.*') do (set "v=%%~na"&set "xF=%%~xa" &call :yyy)
endlocal&pause&exit/b
:yyy
	if "%v:~-1%" geq "0" if "%v:~-1%" leq "9" set "v=%v:~0,-1%" &goto :yyy
	(md "%v%\" &if exist "%v%*%xF%" move /y "%v%*%xF%" "%v%\") 2>nul
	exit/b
复制代码

@echo off
setlocal enabledelayedexpansion
set n=4
for /f "delims=" %%i in ('dir /b /a-d^|findstr /e "[0-9]\.jpg [0-9]\.png"') do (
    set "str=%%~ni"
    set "NewFolder=!str:~,-%n%!"
    if not exist "!NewFolder!" md "!NewFolder!"
    move "%%i" "!NewFolder!\"
)
pause
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d^|findstr /e "[0-9]\.jpg [0-9]\.png"') do (
    set "str1=%%i"
    set "str2=%%~ni"
    for %%j in (a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do set "str2=!str2:%%j= !"
    for %%k in (!str2!) do set "NewFolder=!str1:%%k%%~xi=!"
    if not exist "!NewFolder!" md "!NewFolder!"
    move "%%i" "!NewFolder!\"
)
pause
复制代码