中国DOS联盟

@ECHO %DBG% OFF
SETLOCAL ENABLEDELAYEDEXPANSION

SET /A THE=171780
FOR /F %%n IN (TEST.TXT) DO (
                          SET /A i+=1
                          SET gn!i!=%%n
                          )
FOR /L %%j IN (1,1,%i%) DO CALL :REC %%j
GOTO :EOF

:REC
SETLOCAL

CALL SET tmp=%%gn%1%%
SET /A sum+=%tmp%
IF %sum% GTR %THE% GOTO :EOF
SET /A lvl+=1
IF %lvl% GTR 1 (
                SET exp=%exp%+%tmp%
                SET /A idx+=1
                CLS & ECHO 第 !idx! 次计算
                IF !sum! EQU %THE% (
                                    ECHO !exp!=%sum%
                                    ECHO 继续计算请按任意键&PAUSE>NUL
                                    )
                ) ELSE (
                        SET exp=%tmp%
                        )

SET /A nxt=%1+1
FOR /L %%j IN (%nxt%,1,%i%) DO CALL :REC %%j

ENDLOCAL & SET idx=%idx%
GOTO :EOF

4816+4776+4498+4616+4948+4684+4710+5266+4760+5168+4770+5134+5076+4784+5174+4732+4782+4746+4730+5224+5164+4742+4724+4730+4762+4162+4188+4830+4942+4072+4270+4520+4808+5130+4238+5104=171780

@echo off
setlocal enabledelayedexpansion
set num=0
for /f %%n in (test.txt) do (
    set /a i+=1
    set gn!i!=%%n
)
for /l %%i in (1,1,36) do call :rec %%i
pause
goto :eof

:rec
setlocal
set tmp=!gn%1!
set/a flag+=1
if %flag% EQU 1  (set str=%tmp%) else set str=%str%+%tmp%
set/a sum=%sum%+%tmp%
set /a nxt1=%1+1,nxt2=%1+36
if %nxt2% gtr 72 set/a nxt2=72
set /a lvl+=1
if %lvl% lss 36 (
   for /l %%j in (%nxt1%,1,%nxt2%) do call :rec %%j
) else (
      set/a idx+=1
      title 正在检测第 %idx% 组数 已检测出 %num% 组数
      if %sum% EQU 171780  echo %str%=171780 在第 %idx% 组数 & set/a num+=1
)
endlocal & set idx=%idx% & set num=%num%