@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do set /a n+=1&set "_!n!=%%a"
for /l %%a in (1,1,%n%) do (
  (for /f "delims=" %%b in (z%%a.txt) do (
    set "str=%%b"
    for /l %%b in (0,2,40) do (
      set "a=!str:~%%b,1!"
      if "!a!" lss "0" set /a a=0
      set /a "a=(a+!_%%a:~%%b,1!) %% 10"
      set "var=!var! !a!"
    )
    echo,!var:~1!&set "var="
  ))>s%%a.txt
)
复制代码

@echo off
set n=0
for /f "delims=U" %%a in ('cmd /u /c echo 唉') do set "tab=%%a"
for /f "tokens=1* delims=:" %%a in ('findstr /n . a.txt') do (
    setlocal enabledelayedexpansion
    for %%i in (%%b) do set/a n+=1&set "$!n!=%%i"
        (for /f "delims=" %%i in (z%%a.txt) do (
             set Arr=&set str=%%i
             set m=0
             set "str=!str: =" "!"
             set "str=!str:%tab%=" "!"
             for %%j in ("!str!") do (
                 set /a m+=1
                 if %%j neq "" (
                    for %%k in (!m!) do set/a "i=($%%k+%%~j+0)%%10"
                    set Arr=!Arr!%tab%!i!
                 ) else set Arr=!Arr!%tab%
             )
             echo;!Arr:~1!
         )
         endlocal
    )>s%%a.txt
)
pause
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("a.txt")
Do Until file.AtEndofStream
    ar = Split(file.ReadLine,vbTab)
    ReDim Preserve a(20,i)
    For j = 0 to UBound(ar)
        a(j,i) = ar(j)  '第i行 第j列
    Next
    i = i + 1
Loop

For i = 1 to 300
    Set file = fso.OpenTextFile("z" & i & ".txt")
    Do Until file.AtEndofStream
        ar = Split(file.ReadLine,vbTab)
        For j = 0 to UBound(ar)
            If ar(j) <> "" Then ar(j) = Right((CInt(ar(j)) + a(j,i-1)),1)
        Next
        fso.OpenTextFile("s" & i & ".txt",8,true).WriteLine Join(ar,vbTab)
    Loop
    file.Close : Set file = Nothing
Next
复制代码