77七

@echo off
cd /d "%~dp0"
set az=qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
	set f=%%i
	call :1 "%%~ni"
)
pause
exit

	:1
	set "str=/%~1\"
	for /f "tokens=1* delims=%az%" %%a in ("%str%") do (
		set str_s=%%a
		set str_e=%%b
	)
	call set "str_m=%%str:%str_s%=%%"
	if "%str_e%" neq "" (
		call set "str_m=%%str_m:%str_e%=%%"
	)
	if "%str_m%" neq "" (
		if "%str_m:~1%" equ "" (
			if "%str_e%" neq "" (
				call :1 "%str_e%"
			)
		) else (
			md "%str_m%" 2>nul
			echo move "%f%" "%str_m%\"
			move "%f%" "%str_m%\"
		)
	)
	exit /b
复制代码

77七

回复 2# 77七


   去除多余判断，优化下逻辑...

@echo off
cd /d "%~dp0"
set az=qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
	set f=%%i
	call :1 "%%~ni"
)
pause
exit

	:1
	set "str=/%~1\"
	for /f "tokens=1* delims=%az%" %%a in ("%str%") do (
		if "%%b" neq "" (
			call set "str=%%str:%%a=%%"
			call set "str=%%str:%%b=%%"
			setlocal enabledelayedexpansion
			if "!str:~1!" equ "" (
				endlocal
				call :1 "%%b"
			) else (
				md "!str!" 2>nul
				echo move "!f!" "!str!\"
				move "!f!" "!str!\"
				endlocal
			)
		)
	)
	exit /b
复制代码