[文本处理] 求BAT脚本批量处理多个文件，分拣成多个文件夹

@echo off
set m=500
set Folder=0001-0500
md "%Folder%"
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d *.mp3') do (
    set /a n+=1
    if !n! lss !m! (
        move "%%i" "!Folder!\"
    ) else (
        move "%%i" "!Folder!\"
        set /a m+=500
        set /a n1=n+1
        set /a n2=n+500
        set n1=000!n1!
        set n2=000!n2!
        set Folder=!n1:~-4!-!n2:~-4!
        md "!Folder!
    )
)
pause
复制代码

set /a group=500
setlocal enabledelayedexpansion
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /a-d *.mp3') do (
      set /a n+=1
      if !n! equ 1 (set "b=%%~ni")
      xcopy "%%i" "!b!\"
      if !n! equ %group% (
            ren "!b!" "!b!-%%~ni"
            set /a n=0
            )
set "last=%%~ni"
)
ren "!b!" "!b!-%last%"
复制代码

@echo off&setlocal enabledelayedexpansion
set md=500
for /f "delims=" %%i in ('dir /b /a-d *.mp3') do (
     set /a "i=100%%~ni%%10000/md,n=10000+i*500+^!i,m=n+499-^!i"
     set "fd=!n:~1!-!m:~1!\"
     md !fd! 2>nul
     move %%i  !fd!
)
pause
复制代码

setlocal enabledelayedexpansion
cd /d "%~dp0"
set /a group=500
for /f "delims=" %%i in ('dir /b /a-d *.mp3') do (
      for /f "tokens=* delims=0" %%a in ("%%~ni") do (
            set /a n=%%a%%%group%
            if !n! equ 1 (set "b=%%~ni")
            xcopy "%%i" "!b!\"
            if !n! equ 0 (ren "!b!" "!b!-%%~ni")
            )
       set "last=%%~ni"
)
ren "!b!" "!b!-%last%（完）"
复制代码

@echo off
REM 保存为ANSI编码的BAT
set n=0
set m=499
set Folder=0001-0499
md "%Folder%"
setlocal enabledelayedexpansion
for /f "tokens=1,* delims=:" %%a in ('dir /b /a-d /on^|findstr /n /e "\.mp3 \.m4v"') do set x=%%a
set xx=000%x%
for /f "delims=" %%i in ('dir /b /a-d /on^|findstr /e "\.mp3 \.m4v"') do (
    set /a n+=1
    if !n! lss !m! (
       move "%%i" "!Folder!\"
    ) else (
        move "%%i" "!Folder!\"
        set /a m+=500
        set /a n1=n+1
        set /a n2=n+500
        set n1=000!n1!
        set n2=000!n2!
        if !m! geq !x! (
	set Folder=!n1:~-4!-!xx:~-4!^(完^)
	) else (
	set Folder=!n1:~-4!-!n2:~-4!
	)
        md "!Folder!
    )
)
复制代码

@echo off
REM 移动子文件夹文件到批处理文件夹
for /f "delims=" %%a in ('dir /a:d /b') do (
pushd "%%a"
for /f "delims=" %%b in ('dir /b /a-d "*.*"') do (
move "%~dp0%%a\%%~nxb" "%~dp0%%~nxb"
)
popd
rd /s /q "%%a"
)
复制代码

dir /b /a-d /on^|findstr /n /e "\.mp3 \.m4v"
复制代码

@echo off
REM 保存为ANSI编码的BAT
set n=0
set m=499
set Folder=0001-0499
md "%Folder%"
setlocal enabledelayedexpansion
for /f "tokens=1,* delims=:" %%a in ('dir /b /a-d /on^|findstr /n /e "\.mp3 \.m4a"^|findstr /n .') do set x=%%a&set xx=000%%a
for /f "delims=" %%i in ('dir /b /a-d "*.mp3" "*.m4a"') do (
    set /a n+=1
    if !n! lss !m! (
        move "%%i" "!Folder!\"
    ) else (
        move "%%i" "!Folder!\"
        set /a m+=500
        set /a n1=n+1
        set /a n2=n+500
        set n1=000!n1!
        set n2=000!n2!
        if !m! geq !x! (
	set Folder=!n1:~-4!-!xx:~-4!^(完^)
	) else (
	set Folder=!n1:~-4!-!n2:~-4!
	)
        md "!Folder!
    )
)
复制代码