@ECHO OFF&setlocal enabledelayedexpansion
md "D:/数据/002/" 2>nul
for /l %%i in (0,1,8) do set /a _%%i=%%i+1
for /l %%s in (100000,1,199999) do (
    set $n=&set $m=&set str=%%s
    for /l %%i in (1,1,4) do (
        for /l %%j in (!_%%i!,1,5) do (
            set /a "n=(!str:~%%i,1!+!str:~%%j,1!)%%10"
            set /a "m=(!str:~%%i,1!-!str:~%%j,1!)%%10"
            set $n=!$n!!n!
            set $m=!$m!!m:-=!
        )
    )
    for /l %%a in (0,1,6) do (
        for /l %%b in (!_%%a!,1,9) do (
            for /l %%c in (!_%%b!,1,9) do (
                for /l %%d in (!_%%c!,1,9) do (
                    for %%n in (n m) do (
                        set /a %%n=10!$%%n:~%%a,1!!$%%n:~%%b,1!!$%%n:~%%c,1!!$%%n:~%%d,1!+1
                        if not defined !str!#!%%n! (
                           set !str!#!%%n!=0
                           >> "D:/数据/002/!%%n:~-5!.txt" echo;!str:~1!
                        )
                    )
                )
            )
        )
    )
)
PAUSE
复制代码

'我举个例子，比如五位数12345
'取两两和的个位数，共十个。
'        第1位 + 第2位=3
'        第1位 + 第3位=4
'        第1位 + 第4位=5
'        第1位 + 第5位=6
'        第2位 + 第3位=5
'        第2位 + 第4位=6
'        第2位 + 第5位=7
'        第3位 + 第4位=7
'        第3位 + 第5位=8
'        第4位 + 第5位=9

'十个数中取每4个为一组，210种组合。
'        第一组保存001/*.txt
'        第二组保存002/*.txt
'        依次……

'        从你的例子中看出
'        第一组为：十个数中1234位，保存到3457.txt
'        第1位 + 第2位=3
'        第1位 + 第3位=4
'        第1位 + 第4位=5
'        第1位 + 第5位=6
'        存入0001/03456.txt
'        第二组为：十个数中1235位，保存到3456.txt
'        第1位 + 第2位=3
'        第1位 + 第3位=4
'        第1位 + 第4位=5
'        第2位 + 第3位=5
'        存入0002/3455.txt
'        第三组为：十个数中1236位，保存到3457.txt
'        第1位 + 第2位=3
'        第1位 + 第3位=4
'        第1位 + 第4位=5
'        第2位 + 第4位=6
'        存入0003/3456.txt
'        依次……

'以上是单独一个五位数的处理方式。
'循环一次带入一个数，分别处理。
'组文件夹与txt文件保存到当前文件夹，非D:\数据\
'最后一句wsh.echo o测试用，可删。
'你所说的，每个五位数，分别对应一组数据下的10000个txt，我表示不懂。


Dim Num,M(),k,Num1,Num2,sl,fso,ws
Set fso = CreateObject("scripting.filesystemobject")
sl="0000"
For i=0 To 99999
        If Len(CStr(i))<5 Then Num= Mid(sl,1,5-Len(CStr(i))) &CStr(i)
        Call tex(Num)
Next
'Call tex("29999")
Sub tex(strNum)
        Dim i,j,k,l,o,str_,p
        For i=1 To Len(strNum)
                For j=i+1 To Len(strNum)
                        k=k+1:ReDim Preserve M(k)
                        M(k) = CStr((CInt(Mid(strnum,i,1)) + CInt(Mid(strnum,j,1))) mod 10)
                Next
        Next
        For i=1 To ubound(m)
                For j=i+1 To ubound(m)
                        For k=j+1 To ubound(m)
                                For l=k+1 To ubound(m)
                                        If i<>j And i<>k And i<>l And j<>k And j<>l And k<>l then
                                                o=o+1:If Len(CStr(o))<3 Then p = Mid(sl,1,3-Len(CStr(o))) &CStr(o)
'                                                str_ = str_ & "五位数：" & strNum &Chr(13)&chr(10)
'                                                str_ = str_ & "尾数和的个位：" & Join(M) &Chr(13)&chr(10)
'                                                str_ = str_ & "第" & p & "组取：" & i & j & k & l &"位" &Chr(13)&chr(10)
'                                                str_ = str_ & "保存到：" & "D:\数据\" & p & "\0" & CStr(CInt(M(i) & m(j) & m(k) & m(l))+1) &".txt" &Chr(13)&chr(10)
'                                                wsh.echo str_:str_=""
                                                If fso.FolderExists(p)=False Then fso.CreateFolder(p)
                                                Set f=fso.OpenTextFile(p & "\0" & CStr(CInt(M(i) & m(j) & m(k) & m(l))+1) &".txt",8,True)
                                                f.WriteLine strNum
                                                f.Close
                                        End if
                                Next
                        Next
                Next
        Next
        wsh.echo o
End Sub
复制代码

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

for /l %%i in (1001,1,1210) do (
    set n=%%i
     for /l %%j in (100001,1,110000) do (
         set s=%%j
         >>"D:/数据/!n:~1!/!s:~1!.txt" echo;
     )
)
复制代码

 set /a "n=%%i-%%j,$%%i_%%j=(n>>31|1)*n"
复制代码

# & cls & setlocal enabledelayedexpansion
# & cls & echo !time! & echo; | gawk -f %0 >con & echo !time! & pause & exit

END{
     #将100000个“五位数”的共21000000个四位组合装入数组
     s="0123456789"
	 for(i=1;i<=length(s);i++){arr_num[i]=substr(s,i,1)}
	 for(a=0;a<=9;a++){
	     for(b=0;b<=9;b++){
		     for(c=0;c<=9;c++){
			     for(d=0;d<=9;d++){
				     for(e=0;e<=9;e++){
					     str_5=a""b""c""d""e
						 for(x=1;x<=5;x++){arr_str_5[x]=substr(str_5,x,1)}
						 str_10=""
						 for(f=1;f<=5;f++){
						     for(g=f+1;g<=5;g++){
							     remainder=(arr_str_5[f]+arr_str_5[g]) % 10
							     str_10=str_10""remainder
							 }
						 }
						 count_210=0;str_4=""
						 for(x=1;x<=10;x++){arr_str_10[x]=substr(str_10,x,1)}
						 for(m=1;m<=10;m++){
						     for(n=m+1;n<=10;n++){
							     for(o=n+1;o<=10;o++){
								     for(p=o+1;p<=10;p++){
									     count_210+=1
									     str_4=arr_str_10[m]""arr_str_10[n]""arr_str_10[o]""arr_str_10[p]
									     arr_rem_com[str_5][count_210]=str_4
									 }
								 }
							 }
						 }
					 }
				 }
			 }
		 }
	 }
	#测试查看19999的210个组合情况
	for(i=1;i<=210;i++){
	     print arr_rem_com[19999][i]
	}
}
复制代码

if exist "D:/数据/!n:~1!/!s:~1!.txt" (>>"D:/数据/!n:~1!/!s:~1!.txt" echo;) else >"D:/数据/!n:~1!/!s:~1!.txt" echo; 
复制代码