中国DOS联盟

@echo off&setlocal enabledelayedexpansion
set num=0&set jin=0
for /l %%a in (1 1 200) do set lin=0!lin!
for /f %%i in (a.txt) do echo %%i&call :lis %%i
echo.&echo 结果等于 %num%
pause>nul
exit
:lis
   set lis=
   set var=!lin!%~1
   set num=!lin!!num!
   for /l %%a in (1 1 200) do (
     set /a jie=!var:~-%%a,1!+!num:~-%%a,1!+jin
     set jie=0!jie!
     set jin=!jie:~-2,1!
     set lis=!jie:~-1!!lis!
   )
   set num=!lis!
   for /f "tokens=* delims=0" %%a in ("%num%") do set num=%%a
goto :eof