@ECHO OFF&setlocal enabledelayedexpansion
for /l %%i in (0,1,9) do set /a _%%i=%%i+1
for /l %%i in (1,1,4) do (
    for /l %%j in (!_%%i!,1,5) do (
        set /an+=1
        set "$!n!=%%i %%j"
    )
)
for /l %%i in (0,1,9) do (
    for /l %%j in (0,1,9) do (
        set /a "$%%i_%%j=(%%i+%%j)%%10"
    )
)

for /l %%i in (1001,1,1252) do (
    set n=%%i
    md "c:/数据/数据1/!n:~1!" 2>nul
)
set n=1000
for /l %%a in (1,1,9) do (
    for /l %%b in (!_%%a!,1,10) do (
        for /l %%c in (!_%%b!,1,10) do (
            for /l %%d in (!_%%c!,1,10) do (
            for /l %%e in (!_%%d!,1,10) do (    
                set /an+=1
                for /l %%f in (100000,1,199999) do (
                    set s=%%f
                    for /f "tokens=1-10" %%0 in ("!$%%a! !$%%b! !$%%c! !$%%d! !$%%e!") do (
                        for /f "tokens=1-5" %%i in ("!s:~%%0,1!_!s:~%%1,1! !s:~%%2,1!_!s:~%%3,1! !s:~%%4,1!_!s:~%%5,1! !s:~%%6,1!_!s:~%%7,1! !s:~%%8,1!_!s:~%%9,1!") do (
                            set /a t=1!$%%i!!$%%j!!$%%k!!$%%l!!$%%m!
                            >>"c:/数据/数据1/!n:~1!/!t:~1!.txt" set /p =!s:~1! <nul
                        )
                    )
                )
            )
        )
    )
))
pause
复制代码

T = {a, b, c, d, e};
P = Subsets[T, {2}]
Q = Map[(Mod[(#[[1]] + #[[2]]), 10]) &, P]
Q = Subsets[Q, {4}]

T1 = Table[{a, b, c, d}, {a, 0, 9}, {b, 0, 9}, {c, 0, 9}, {d, 0, 9}];
T1 = Flatten[T1, 3]
复制代码

        tokens=x,y,m-n  - 指每行的哪一个符号被传递到每个迭代
                          的 for 本身。这会导致额外变量名称的分配。m-n
                          格式为一个范围。通过 nth 符号指定 mth。如果
                          符号字符串中的最后一个字符星号，
                          那么额外的变量将在最后一个符号解析之后
                          分配并接受行的保留文本。
                          
                          
FOR /F "eol=; tokens=2,3* delims=, " %i in (myfile.txt) do @echo %i %j %k

...

    %i 在 for 语句中显式声明，%j 和 %k 是通过
    tokens= 选项隐式声明的。可以通过 tokens= 一行
    指定最多 26 个符号，只要不试图声明一个高于字母 "z" 或
    "Z" 的变量。请记住，FOR 变量是单一字母、分大小写和全局的变量；
    而且，不能同时使用超过 52 个。
复制代码

echo off & for /f "tokens=2-4" %i in ("头 胸 腹 臀 尾") do echo;[%h],[%i],[%j],[%k],[%l]
复制代码