将文件名称中一个指定字符前面具有相同字符串前缀内容的多个文件剪切、移动到以该字符串前缀内容命名的文件夹里

@echo off
rem 将文件名称中一个指定字符前面具有相同字符串前缀内容的多个文件剪切/移动到以该字符串前缀内容命名的文件夹里
mode con lines=3000
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%@% %z%
cd /d "%~dp0"
for /f "delims=" %%a in ('dir /a-d/b "*-*.*"') do (
if /i "%%~nxa" neq "%~nx0" (
for /f "delims=-" %%b in ("%%~na") do (
if not exist "%%b" md "%%b"
echo;"%%a" --^> "%%b\"
move "%%a" "%%b\"
)
)
)
echo;%#% +%$%%$%/%@% %z%
pause
exit