@echo off&(setlocal enabledelayedexpansion)>nul 2>nul
for /f "delims=" %%i in ('dir/a-d/b/l/on ".\*.txt"')do (set "#new=%%~nxi"
 for /l %%j in (1,1,100)do (
  for /l %%n in (0,1,9)do (
   set "#new=!#new:%%n%%~xi=%%~xi!"
   set "#new=!#new: %%~xi=%%~xi!"
  )
 )
 if exist ".\!#new!\" echo, !#new! 文件夹存在可能无法创建文件,整理后继续&pause
 for /f "delims=" %%j in ('type ".\%%~nxi"')do (
  if not exist ".\!#new!\" if exist ".\!#new!" (
   (echo,%%j)>>".\!#new!"
  )else (
   (echo,%%j)>".\!#new!"
  )
 )
)
pause
复制代码

/*&cls
@echo off
md "合并\"
for /f "delims=" %%a in (
    'dir /a-d /b *.txt^|findstr /i "[0-9]*[0-9]\.txt$"^|cscript -nologo -e:jscript "%~f0"'
) do copy /b "%%a*.txt" "合并\%%a.txt"
pause&exit
*/
var map ={}, s='';
while(!WScript.StdIn.AtEndOfStream){
    var fn = WScript.StdIn.ReadLine().replace(/\s*\d+\.[^\.]+$/, '');
    if(!map[fn]){map[fn] = true;s+=fn+'\r\n';}
}
WSH.echo(s);
复制代码

@echo off
md 合并 2>nul
for /f "tokens=1 delims=0123456789" %%a in ('dir /a-d /b *.txt') do set #%%a=%%a
for /f "tokens=2 delims==" %%a in ('set #') do copy /b %%a*.txt 合并\%%a.txt >nul
echo.合并完成！
pause
复制代码