@echo off
rem 将多个文件剪切/移动到以该文件名称开头前几位字符命名的文件夹里
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
set len=4
for /f "delims=" %%a in ('dir /a-d/b') do (
    if /i "%%~nxa" neq "%~nx0" (
        set "base=%%~na"&set "file=%%a"
        setlocal enabledelayedexpansion
        if not exist "!base:~0,%len%!\" (md "!base:~0,%len%!\")
        echo;"!file!" --^> "!base:~0,%len%!\"
        move "!file!" "!base:~0,%len%!\"
        endlocal
    )
)
:end
echo;%#% +%$%%$%/%@% %z%
pause
exit
复制代码

@Echo off&SetLocal EnableDelayedExpansion
for /f "delims=" %%i in ('dir /b/s *.txt ^|find /V "-"')do set "n=%%~nxi"&ren "%%i" "!n:~0,-7!-!n:~-7!"
for /f "tokens=1,2 delims=-" %%i in ('dir /b/s *-*.txt')do (if not exist "%%~ni" md "%%~ni"
move "%%i-%%j" "%%~ni")
pause
复制代码

^([^\x00-\xff]|[A-Z])+(?=-)?
复制代码

@echo off
setlocal enabledelayedexpansion
for /r %%i in ("*.txt")do (
  set "Name=%%~nxi"
  if "!Name:~-8,1!" == "-" (
    if not exist "!Name:~0,-8!" md "!Name:~0,-8!"
    move /-y "%%i" "!Name:~0,-8!"
  ) else (
    if not exist "!Name:~0,-7!" md "!Name:~0,-7!"
    move /-y "%%i" "!Name:~0,-7!"
  )
)
pause
复制代码

@echo off
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    for /f "delims=" %%j in ('echo %%i^|sed -r "s/^([^\x00-\xff]+).*/\1/; s/^([A-Z]+).*/\1/"') do (
        if not exist "%%j" (
            md "%%j"
        )
        move /y "%%i" "%%j"
    )
)
复制代码