[文本处理] [已解决]将目录下txt文件移动到以txt文件第一个连续字母命名的文件夹中

PowerShell "dir *.txt -file | ?{$_.BaseName -match '[a-z]{2,}'} | forEach {$fd=$matches[0]; md $fd -ea SilentlyContinue; mv $_.FullName -Dest $fd}"COPY

@if(0)==(0) echo off
for /f "tokens=1*" %%i in ('dir /b /a-d *.txt ^| cscript -nologo -e:jscript "%~f0"') do (
    md %%i\ 2>nul
    move "%%j" %%i\
)
pause & exit/b
@end
 
while (!WSH.StdIn.AtEndOfStream) {
    var f = WSH.StdIn.ReadLine();
    var m = f.slice(0,-3).match(/[a-z]{2,}/i);
    if(m) WSH.Echo(m[0] + ' ' + f);
}COPY

@set @x=1 /* &@echo off
for /f "delims=" %%a in ('dir /b/a-d *.txt') do for /f "delims=" %%d in (
	' cscript /nologo /e:jscript "%~f0" "%%a" ') do (md "%%d" 2>nul & move /y "%%a" "%%d\")
pause&exit/b */
v = WSH.arguments; WSH.echo(v(0).match(/[a-z]{2,}/i)[0]); WSH.quit();COPY

$sour = "D:\work"
Push-Location -Paht $sour
Get-ChildItem -Filter "*.txt" | ForEach-Object {
	$str = $_.BaseName -replace ".*?([a-zA-Z]{2,}).*",'$1'
	if ( -Not ( Test-Path $str ) ) {
		New-Item -Type Directory -Path $str
	}
	Move-Item -Path $_ -Destination $str
}
Pop-Location COPY

 echo "a123bcd4sd" | grep -Eo "[a-zA-Z]{2,}"COPY

@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 /bCOPY

@echo off
for /f "delims=" %%a in ('dir /b/a-d *.txt') do (
	set "s=%%a"&set "$a=%%a" &setlocal enabledelayedexpansion
	set "_s="&set "_k=" & (call :getstr)
	md "!_s!" 2>nul & move /y "!$a!" "!_s!\" & endlocal
)
pause&exit/b
:getstr
	set "c=!s:~,1!" &if "!c!" geq "a" if "!c!" leq "Z" (
		set "s=!s:~1!"&set "_s=!_s!!c!"&set/a "_k+=1" & goto :getstr)
	if !_k! geq 2 (exit/b) else (set "s=!s:~1!"&set "_s="&set "_k=" & goto :getstr)
	exit/bCOPY

@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 /bCOPY