@echo off&setlocal enableDelayedExpansion&set str=0123456789876543210&set "ml=是三类&goto:eof"&for /l %%i in (1000,1,9999) do call:main %%i
:main
set i=%1
set i1=%i:~0,1%
set i2=%i:~1,1%
set i3=%i:~2,1%
set i4=%i:~3,1%
if "%i%"=="8888" echo %1%ml:三=一%
if "%i:~1%"=="888" echo %1%ml:三=二%
if "%i:~2%"=="88" echo %1%ml%
if "%i:~3%"=="8" echo %1%ml:三=四%
if "%i:~2% %i2%"=="%i:~0,2% %i3%" echo %1%ml:三=二%
if "%i:~1,2%"=="%i:~3%%i:~3%" echo %1%ml%
if "%i:~3%"=="%i3%" echo %1%ml:三=四%
for /l %%j in (0,1,16) do (
if "%1"=="!str:~%%j,4!" echo %1%ml:三=二%
if "%i:~1%"=="!str:~%%j,3!" echo %1%ml%
if "%i:~0,3%"=="!str:~%%j,3!" echo %1%ml%)
if "%i1%%i2%"=="%i4%%i3%" if not "%i1%"=="%i2%" echo %1%ml:一=四%
if "%i1%%i3%"=="%i2%%i4%" if not "%i2%"=="%i4%" echo %1%ml%
if "%i:~0,2%"=="%i:~2%" if not "%i1%"=="%i2%" echo %1%ml%
echo %1是五类
复制代码

@echo off&SetLocal EnableDelayEdexpansion&cd /d "%~dp0"
if exist "第四类" goto :1

set "num1=0123456789"
set "num2=9876543210"
(for /l %%a in (0 1 9) do (
  if "%%a" leq "5" echo !num1:~%%a,4! & echo !num2:~%%a,4!
  if not "%%a"=="8" (
    echo %%a%%a%%a%%a
    echo %%a888
  )
))>第二类

(for /l %%a in (0 1 9) do (

  for /l %%b in (0 1 9) do (
    if not "%%b"=="8" (echo %%a%%b88)
    if not "%%b"=="%%a" (
      if not "%%b"=="8"  echo %%a%%b%%b%%b
      set /a "n=%%a-1"
      call set "n1=%%num1:~!n!,1%%"
      call set "n2=%%num2:~!n!,1%%"
      if %%a leq 6 if not "%%b"=="!n1!" if not "%%b"=="!num1:~%%a,1!"  echo  %%

b!num1:~%%a,3! 
      if %%a leq 6 if not "%%b"=="!n2!" if not "%%b"=="!num2:~%%a,1!"  echo  %%

b!num2:~%%a,3! 
      echo %%a%%a%%b%%b
      echo %%a%%b%%a%%b
    )
  )
))>第三类

(for /l %%a in (0 1 9) do (
  for /l %%b in (0 1 9) do (
    if not "%%b"=="%%a"  echo %%a%%b%%b%%a
    for /l %%c in (0 1 9) do (
      if not "%%a"=="%%b" if not "%%b"=="%%c"  if not "%%c"=="8" (
         if not "%%b%%c"=="67"  echo  %%a%%b%%c8
         echo %%a%%b%%c%%c
      )
    )
  )
))>第四类


:1
set /p "number=input:"
if "!number!"=="8888" echo 第一类 & goto :1

findstr  /m  "!number!"   第三类 第二类 第四类 || echo 第五类
echo -------------------------------------------------
goto :1
复制代码

@echo off&setlocal enabledelayedexpansion
(for /l %%a in (10000,1,19999) do (
  set "str=%%a"&set "str=!str:~1!"&set "flag=五类"
  set /a a=!str:~,1!,b=!str:~1,1!,c=!str:~2,1!,d=!str:~-1!,b1=b+1,b2=b-1,c1=c+2,c2=c-2,d1=d+3,d2=d-3
  if "!d!" equ "8" set "flag=四类"
  if "!c!" equ "!d!" set "flag=四类"
  if "!a!!b!" equ "!d!!c!" set "flag=四类"
  if "!c!!d!" equ "88" set "flag=三类"
  for %%a in (!b!) do if "!str:%%a=!" equ "!a!" set "flag=三类"
  if "!a!!b!" equ "!c!!d!" set "flag=三类"
  if "!a!!c!" equ "!b!!d!" set "flag=三类"
  for %%a in (1 2) do if "!b%%a!!c%%a!!d%%a!" equ "!b%%a!!b%%a!!b%%a!" set "flag=三类"
  if "!b!!c!!d!" equ "888" set "flag=二类"
  for %%a in (!a!) do if "!str:%%a=!" equ "" set "flag=二类"
  for %%a in (1 2) do if "!a!!b%%a!!c%%a!!d%%a!" equ "!a!!a!!a!!a!" set "flag=二类"
  if "!str!" equ "8888" set "flag=一类"
  echo !flag!	!str!
))>list.txt
start list.txt
复制代码

@echo off & setlocal enabledelayedexpansion
> digit.txt (for /l %%i in (10000 1 19999) do (
    (set s=%%i)& set /a w=!s:~1,1!,x=!s:~2,1!,y=!s:~3,1!,z=!s:~4,1!,w-=z,x-=z,y-=z,t=5
    if !s:~-4!==8888 (set "t=1"
    ) else if !s:~-3!==888 (set "t=2"
    ) else for %%s in (000 -3-2-1 321) do if !w!!x!!y!==%%s set "t=2"
    if !t!==5 if !s:~-2!==88 (set t=3) else for %%s in (00 21 -2-1) do if !x!!y!==%%s set "t=3"
    if !t!==5 for %%s in (110 -1-10 101 -10-1) do if !w!!x!!y!==%%s set "t=3"
    if !t!==5 if !s:~-1!==8 (set t=4) else if !y!==0 (set t=4) else (
      for %%s in (011 0-1-1) do if !w!!x!!y!==%%s set t=4)
    echo !t!	!s:~-4!
) )
start "" digit.txt
复制代码

@echo off & setlocal enabledelayedexpansion
> digit.txt (for /l %%i in (10000 1 19999) do (
    (set s=%%i)& set /a "w=!s:~1,1!,x=!s:~2,1!,y=!s:~3,1!,z=!s:~4,1!,w-=z,x-=z,y-=z,t=5"
    if %%i==18888 (set t=1) else if !x!!y!!z!==008 (set "t=2"
    ) else for %%s in (000 -3-2-1 321) do if !w!!x!!y!==%%s set "t=2"
    if !t!==5 if !y!!z!==08 (set t=3) else for %%s in (00 21 -2-1) do if !x!!y!==%%s set "t=3"
    if !t!==5 (set /a "ab3=^!(w-x|y)|^!(w-y|x)") & if !ab3!==1 (set "t=3"
    ) else if !z!==8 (set t=4) else if !y!==0 (set t=4) else (set /a "ab4=w|x-y") & if !ab4!==0 set "t=4"
    echo !t!	!s:~-4!
) )
start digit.txt
复制代码

@echo off
setlocal EnableDelayedExpansion
(for /l %%i in (10000,1,19999) do set v=%%i&echo !v:~1!)>arr.tmp

set class1=8888
(echo %class1%)>class1.txt
findstr /v "%class1%" < arr.tmp > arr2.tmp

set class2=.888
set class2=%class2% 0123 1234 2345 3456 4567 5678 6789
set class2=%class2% 9876 8765 7654 6543 5432 4321 3210
set class2=%class2% 0000 1111 2222 3333 4444 5555 6666 7777 9999
findstr "%class2%" < arr2.tmp > class2.txt
findstr /v "%class2%" < arr2.tmp > arr3.tmp

set class3-1=..88
set class3-1=%class3-1% .000 .111 .222 .333 .444 .555 .666 .777 .999
set class3-1=%class3-1% .012 .123 .234 .345 .456 .567 .678 .789
set class3-1=%class3-1% .210 .321 .432 .543 .654 .765 .876 .987
findstr "%class3-1%" < arr3.tmp > class3-1.tmp
set class3-2a=00.. 11.. 22.. 33.. 44.. 55.. 66.. 77.. 88.. 99..
set class3-2b=..00 ..11 ..22 ..33 ..44 ..55 ..66 ..77 ..99
findstr "%class3-2a%" < arr3.tmp | findstr "%class3-2b%" > class3-2.tmp
set class3-3a=0.0. 1.1. 2.2. 3.3. 4.4. 5.5. 6.6. 7.7. 8.8. 9.9.
set class3-3b=.0.0 .1.1 .2.2 .3.3 .4.4 .5.5 .6.6 .7.7 .8.8 .9.9
findstr "%class3-3a%" < arr3.tmp | findstr "%class3-3b%" > class3-3.tmp
copy /b class3-?.tmp class3.txt >nul
findstr /v /g:class3.txt < arr3.tmp > arr4.tmp

set class4-1=...8
set class4-1=%class4-1% ..00 ..11 ..22 ..33 ..44 ..55 ..66 ..77 ..99
findstr "%class4-1%" < arr4.tmp > class4-1.tmp
set class4-2a=.00. .11. .22. .33. .44. .55. .66. .77. .88. .99.
set class4-2b=0..0 1..1 2..2 3..3 4..4 5..5 6..6 7..7 9..9
findstr "%class4-2a%" < arr4.tmp | findstr "%class4-2b%" > class4-2.tmp
copy /b class4-?.tmp class4.txt >nul
findstr /v /g:class4.txt < arr4.tmp > class5.txt

del *.tmp
复制代码

@echo off&setlocal enableDelayedExpansion
(
for /l %%i in (0 1 9) do (
    for /l %%j in (0 1 9) do (
        for /l %%k in (0 1 9) do (
            for /l %%l in (0 1 9) do (
                if %%i%%j neq %%k%%l (
                   if %%k neq %%l (
                      if %%j%%i neq %%k%%l (
                         set /a "Ni=%%j^~-%%k|%%k^~-%%l,N=%%i^~-%%j|Ni"
                         if !N! equ 0 (set str=二)else (
                            if !Ni! equ 0  (set str=三)else (
                                set /a "Ni=~-%%j^%%k|~-%%k^%%l,N=~-%%i^%%j|Ni"
                                if !N! equ 0 (set str=二)else (
                                   if !Ni! equ 0 (set str=三)else (
                                      if %%l neq 8 (set str=五)else set str=四
                                   )
                                )
                            )
                         )
                      ) else set str=四
                   ) else if %%j neq %%k (
                          if %%k%%l neq 88 (
                             if %%i equ %%j (set str=三)else set str=四
                          ) else set str=三
                          ) else if %%l neq 8 (set str=三)else set str=二
                )else if %%j neq %%k (set str=三)else if %%k neq 8 (set str=二)else set str=一
                echo !STR! %%i%%j%%k%%l
))))
)>~TEM.tX
start notepad "~TEM.tX"
复制代码

@echo off 
setlocal enabledelayedexpansion
::一类　8888
::二类　x888 aaaa abcd	补充:888x
::三类　xx88 xaaa xabc aabb abab 补充:88xx, aaax
::四类　xxx8 xxaa abba  补充: 8xxx, aaxx
::五类　其余的号码

:: 思路.
:: 好吧这思路很乱.自己也写乱了.
::整体的思路是利用set /a 用数除0  然后判断各类的特点分类.

set a_b=123456789
set c_b=987654
set b_a=543210
::连续的思路是利用set /a,替换字符将其他字符乘以0, 如%%i=123 ,  set /a "1/(!a_b:%%i=1*0*1!)"
::思路是可以用的..不过没有时间处理了..有时间的朋友帮我补充完整吧.
for /l %%i in (9999, -1, 1) do (
	set /a "1 / ( %%i - 8888 )"  2>nul && (
		set /a "1/(%%i%%1000-888), 1/(%%i/10-888), 1/(%%i%%1111)" 2>nul && (
			set /a "a=%%i/1000, b=%%i%%1000/100, c=%%i%%100/10, d=%%i%%10"
			set /a "1/(%%i%%100-88), 1/(%%i/100-88),1/((%%i%%1000)%%111), 1/(%%i/100-%%i%%100), 1/((a-b)|(c-d))" 2>nul && (
				set /a "1/(%%i%%10-8), 1/(%%i/1000-8), 1/((%%i%%100)%%11), 1/(a*10+b-(d*10+c))" 2>nul&&(
					set /a ClassFive+=1!第五类!
				)|| (set /a ClassFour+=1!第四类! )
			) || (set /a ClassThree+=1 & set _ClassThree=%%i !_ClassThree!!第三类!)
		) || (if %%i gtr 1000 set /a ClassTwo+=1 & set _ClassTwo=%%i !_ClassTwo!!第二类!)
	) || (set /a ClassOne+=1 & set _ClassOne=%%i !_ClassOne!!第一类!)
)
echo ClassOne=%ClassOne%, ClassTwo=%ClassTwo%, ClassThree=%ClassThree%, ClassFour=%ClassFour%, ClassFive=%ClassFive%
pause>nul
goto :eof
复制代码