[文本处理] 批处理自动建立文件夹和归集的问题

@echo off
set "newfolder=单曲合辑"
if "%~1" equ "" (goto :end)
if not exist "%~dp1" (echo;Path Error&goto :end) else (cd /d "%~dp1")
for /f "delims=" %%a in ("%~dp1.") do set "current=%%~nxa"
echo;"%current%"
if /i "%current%" equ "%newfolder%" (goto :end)
set count=0&for /f %%a in ('powershell -NoProfile -ExecutionPolicy bypass "write-host ([regex]::matches(\""%current%\"",'[\u4E00-\u9FA5]')).Count;"') do set "count=%%a"
echo;%count%
if %count% geq 5 (goto :end)
for %%a in (.wav .flac .dts .dff .mp3 .dsf .ape) do (
    if exist *%%a (
        md "%newfolder%" 2>nul
        move /y *%%a "%newfolder%\" 2>nul
    )
)
:end
pause
exit
复制代码

set count=0&for /f %%a in ('powershell -NoProfile -ExecutionPolicy bypass "$s=$env:current;$a=([regex]::matches($s,'[\x00-\xFF]')).Count;$b=([regex]::matches($s,'[^\x00-\xFF]')).Count;write-host ($a+2*$b)"') do set "count=%%a"
复制代码

@echo off
set "newfolder=《单曲合辑》"
if "%~1" equ "" (goto :end)
if not exist "%~dp1" (echo;Path Error&goto :end) else (cd /d "%~dp1")
for /f "delims=" %%a in ("%~dp1.") do set "current=%%~nxa"
echo;"%current%"
if /i "%current%" equ "%newfolder%" (goto :end)
set flag=&for /f %%a in ('powershell -NoProfile -ExecutionPolicy bypass "$s=$env:current;if($s -match '^[\u4E00-\u9FA5]{1,4}$'){write-host 'true';}else{write-host 'false';}"') do set "flag=%%a"
echo;%flag%
if /i "%flag%" equ "flase" (goto :end)
for %%a in (.wav .flac .dts .dff .mp3 .dsf .ape) do (
    if exist *%%a (
        md "%newfolder%" 2>nul
        move /y *%%a "%newfolder%\" 2>nul
    )
)
:end
pause
exit
复制代码