@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1-5" %%a in ('type "1.txt"') do (
    set flag=0
    set /a sum1=%%a+1
    set /a sum2=%%b+1
    set /a sum3=%%c+1
    set /a sum4=%%d+1
    if %%b equ !sum1! (
        set /a flag+=1
    )
    if %%c equ !sum2! (
        set /a flag+=1
    )
    if %%d equ !sum3! (
        set /a flag+=1
    )
    if %%e equ !sum4! (
        set /a flag+=1
    )
    if !flag! neq 4 (
        echo %%a %%b %%c %%d %%e
    )
))>"2.txt"
复制代码

powershell
复制代码

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1-5" %%a in ('type "1.txt"') do (
    set flag=0
    set /a sum1=1%%a+1
    set /a sum2=1%%b+1
    set /a sum3=1%%c+1
    set /a sum4=1%%d+1
    if 1%%b equ !sum1! (
        set /a flag+=1
    )
    if 1%%c equ !sum2! (
        set /a flag+=1
    )
    if 1%%d equ !sum3! (
        set /a flag+=1
    )
    if 1%%e equ !sum4! (
        set /a flag+=1
    )
    if !flag! neq 4 (
        echo %%a %%b %%c %%d %%e
    )
))>"2.txt"
复制代码

@Powershell "& {[ScriptBlock]::Create("'#' + (gc '%~f0' -raw)").Invoke()}" & pause & goto :eof 
gc 1.txt | %{[int[]]$arr=$_ -split ' ';
# 过滤递增1
if(!(($arr[0] + 1 -eq $arr[1]) -and ($arr[1] + 1 -eq $arr[2])-and ($arr[2] + 1 -eq $arr[3])-and ($arr[3] + 1 -eq $arr[4]))) {
    # 过滤递增2
    if(!(($arr[0] + 2 -eq $arr[1]) -and ($arr[1] + 2 -eq $arr[2])-and ($arr[2] + 2 -eq $arr[3])-and ($arr[3] + 2 -eq $arr[4]))) {
        # 过滤整除5
        if(!(($arr[0] % 5  -eq 0) -and ($arr[1] % 5  -eq 0)-and ($arr[2] % 5  -eq 0)-and ($arr[3] % 5  -eq 0)-and ($arr[4] % 5  -eq 0))) {
            # 过滤整除3
            if(!(($arr[0] % 3  -eq 0) -and ($arr[1] % 3  -eq 0)-and ($arr[2] % 3  -eq 0)-and ($arr[3] % 3  -eq 0)-and ($arr[4] % 3  -eq 0))) {
                write $_
            }
        }   
    }
}
}
复制代码

@echo off

(for /f "tokens=*" %%a in (1.txt)do (
  set/a js=os=fs=0
  for %%i in (%%a)do (
     2>nul set/a1/(1%%i"&"1^)&&set/a js+=1||set/a os+=1
     rem 添1防当成八进制
     rem 数是奇数则js+1，偶数同理。最后js=0则说明全偶，os=0则说明全奇。
     2>nul set/a1/(3%%i%%3^)&&set/a fs+=1
     rem 最后fs[非三]=0则说明全是3的倍数。
     )
  2>nul set/a1/(js*os*fs^)&&echo %%a
     rem 只要有1个为0就不会回显
))>"2.txt"
复制代码

01 02 03 04 05
01 02 03 04 06
01 02 03 04 07
01 02 03 04 08
01 02 03 04 09
01 02 03 04 10
01 02 03 04 11
复制代码

5 b=a+1 c=b+1 d=c+1 e=d+1
5 b=a+1 c=b+1 d=c+1 e=d+2
复制代码

@if (0)==(0) echo off
setlocal enabledelayedexpansion
REM 读取文件内容
for /f "tokens=*" %%i in ('type 1.txt') do (
	set "strLine=%%i"
	echo,Line data : !strLine!
	echo,
	set "bFit=1"
	call :_analysis
	if "!bFit!" EQU "0" (
		echo,不符算式规则...
	) else (
		echo,符合算式规则...
	)
	pause
)

pause
exit /b


:_analysis
(
	for /f "tokens=*" %%i in ('type rule.txt') do (
		echo,Rule data : %%i
		cscript -nologo -e:jscript %~s0 CheckAlgorithm "!strLine!" "%%i"
		for /f "tokens=*" %%a in ('cscript -nologo -e:jscript %~s0 CheckAlgorithm "!strLine!" "%%i"') do (
			REM echo,---analysis : %%a
			set "bFit=%%a"
		)
		REM echo,Analysis result : !bFit!
		REM 符合规则
		if "!bFit!" EQU "1" goto :EOF
	)
	goto :EOF
)


@end 

var func = WScript.Arguments(0);

switch (func) {
	case "CheckAlgorithm":
		var strSrc = WScript.Arguments(1);
		var strAlg = WScript.Arguments(2);
		CheckAlgorithm(strSrc, strAlg);
		break;

	default:;
}

function GetColData(str, nCol) {
	//WScript.Echo("str is : " + str);
	//WScript.Echo("nCol : " + nCol);
	var nLen = str.split(" ").length;
	return nCol <= nLen ? 1 : 0;
}

function CheckAlgorithm(str1, str2) {
	/// 检测数据个数是否符合
	var strAlgs = str2.split(" ");
	WScript.Echo("strAlgs : " + strAlgs);
	var nCol = strAlgs[0];
	var nRet = GetColData(str1, nCol);
	if (!nRet) {
		WScript.Echo("0");
		return;
	}
	var nNums = str1.split(" ");
	WScript.Echo("nNums : " + nNums);
	/// 逐行对比算式是否符合
	for (var i=1; i<strAlgs.length; i++) {
		strAlgTmp = strAlgs[i];
		WScript.Echo("Check algorithm : " + strAlgTmp);
		var n1 = strAlgTmp.replace(/(\w)=.*/i, "$1");
		var n2 = strAlgTmp.replace(/.=(\w).*/i, "$1");
		var nP = strAlgTmp.replace(/.=.(.).*/i, "$1");
		var n3 = strAlgTmp.replace(/.=..(.*)/i, "$1");
		var strCodec = "";
		strCodec += parseInt(nNums[n1.toUpperCase().charCodeAt(0)-65]) + "==" + parseInt(nNums[n2.toUpperCase().charCodeAt(0)-65]) + nP + n3;
		WScript.Echo(strCodec);
		nRet = eval(strCodec);
		if (!nRet) {
			WScript.Echo("0");
			return;
		}
	}

	WScript.Echo(nRet ? 1 : 0);
}
复制代码

@echo off&setlocal enabledelayedexpansion
del testinbathome.txt 2>nul>nul
for /f "tokens=1,2,3,4,5 delims= " %%a in (1.txt) do (
     set ORG=%%a %%b %%c %%d %%e
     for  %%f in (!ORG!) do (
          set /a looptime+=1
::去除字串左前的所有0
          set /a var!looptime!=-11%%f+10%%f+1%%f
     )
     call :step !var1! !var2! !var3! !var4! !var5!
     set looptime=
)>>testinbathome.txt
start testinbathome.txt
<
:step
::判斷是否順數 , 非順數才繼續嘗試整除
set str=set/a nub=%5-%4+%4-%3+%3-%2+%2-%1
for /f  %%i in ('!str!') do (
     set /p=!ORG!  <nul
     if "%%i" EQU "4" (
          echo 連續的字串
     ) else (
          ::非連續的字串
          call :step2 !var1! !var2! !var3! !var4! !var5!
     )
     goto :eof
)
:step2
::判斷數字能否全為2-9之倍數 , 和判斷奇偶數
set str=%10 %20 %30 %40 %50
::for語句[2,3,5,9] 可切換成 [2,3,4,5,6,7,8,9] , 則變成判繼2至9的所有倍數
     for %%Z in (2,3,5,9) do (
     call :step3 %%Z
     if "!about%%Z!" EQU "00000" (
          set /p=整除於[%%Z]<nul
          if "%%Z"=="2" (set /p=, 偶數字串 , <nul) 
          )else if "!about%%Z!%%Z" == "555552"  (set /p=奇數字串<nul))
     )
echo.
goto :eof
)
:step3
::數字2-9通用的整除計算語句
     for /f "tokens=1,2,3,4,5 delims= " %%i in ('echo !str!') do set/a A=%%i/%1 ,B=%%j/%1,C=%%k/%1,D=%%m/%1,E=%%l/%1&&set about%1=!A:~-1,1!!B:~-1,1!!C:~-1,1!!D:~-1,1!!E:~-1,1!
复制代码

@echo off&setlocal enabledelayedexpansion
del testinbathome.txt 2>nul>nul
for /f "tokens=1,2,3,4,5 delims= " %%a in (1.txt) do (
     set ORG=%%a %%b %%c %%d %%e
     for  %%f in (!ORG!) do set /a looptime+=1&&set /a var!looptime!=-11%%f+10%%f+1%%f
     set/a str=!var5!-!var4!+!var4!-!var3!+!var3!-!var2!+!var2!-!var1!
     set /p=!ORG!  <nul
     if "!str!" EQU "4" set /p=連續的字串<nul
     for %%Z in [color=Red](2,3,4,5,6,7,8,9)[/color] do (
          set/a A=!var1!0/%%Z ,B=!var2!0/%%Z,C=!var3!0/%%Z,D=!var5!0/%%Z,E=!var5!0/%%Z
          set about%%Z=!A:~-1,1!!B:~-1,1!!C:~-1,1!!D:~-1,1!!E:~-1,1!
          if "!about%%Z!%%Z" == "555552" set mark=1&&set /p=奇數字串<nul
          if "!about%%Z!" EQU "00000" (
               if "%%Z"=="2" (
                    set mark=2&set /p=偶數字串 , [%%Z]<nul
               ) else (
                    if !mark!==1 set /p=, <nul
                    set mark=2&set /p=[%%Z]<nul
               )
          )
          if !mark!9==2%%Z set /p=之倍數<nul
     )
echo.
set looptime=&set mark=0
)>>testinbathome.txt
start testinbathome.txt
复制代码

01 02 03 04 05
01 02 03 04 06
01 02 03 04 07
01 02 03 04 08
01 02 03 04 09
01 02 03 04 10
01 02 03 04 11
02 03 04 05 06
02 04 06 08 10
03 06 09 12 15
01 03 05 07 09
05 10 15 20 25
06 09 15 27 33
01 04 07 10 13 
01 05 09 13 17
01 06 11 16 21
01 07 13 19 25
01 08 15 22 29
01 09 18 26 34
03 11 15 21 23
06 10 18 22 28
04 06 08 10 12
06 07 08 09 10
23 24 25 26 27
06 10 20 22 28
28 29 30 31 32
09 18 27 36 99
099 0117 0234 0594 07992
0090 0099 0909 0594 07992
02889 2898 02997 03789 04293
0029 030 00031 32 033
29 00030 031 00000032 0033
2 0000004 006 00008 10
550 00660 000770 880 0990
33 39 63 69 99
44 88 124 164 204
40 80 120 160 200
06 12 18 24 30
07 14 21 28 35
08 16 24 32 40
01 03 06 07 09
09 18 27 36 99
复制代码

@echo off&setlocal enabledelayedexpansion

echo 默认目标文档为“分析器”目录下的2.txt
set/p rule=请拖入规则文档：
rem 先读取规则，分行读取，G系列存规则，变量Gn用于标记这是第几行规则(在下一部分即总共有几行规则)。（G：Gui则）（n：number）
for /f "tokens=*" %%a in (%rule%)do (
  set/a Gn+=1
  for /f "tokens=1*" %%b in ("!Gn! %%a")do set G%%b=%%c
)

set/p shu=请拖入待处理文档：
cls
rem n系列：存每一行的数总数。 S系列(Shu)：存每一行的每一个数。 F系列：存是否符合对应规则行，符合为1否则为0.  
rem 按行读取待检测的数，先赋好一行，然后再执行规则，最后判断执行结果。完成后读取下一行数。
(for /f "tokens=*" %%a in (%shu%)do (
  setlocal
  for %%b in (%%a)do set/a n+=1&set S!n!=%%b
  for /l %%b in (1 1 %Gn%)do (
    for %%c in (!G%%b!)do (
rem 把一行规则分解为几节逐一分析检验
      for /f tokens^=1*^ delims^=^" %%d in ("%%~c")do (
        if "%%e"=="" (set forl=&set t=%%d
        )else set t=%%e&for /f "tokens=1-3 delims=,; " %%f in ("%%d")do (
                set/a Z1=%%f,Z2=%%g,Z3=%%h
                set "forl=for /l %%i in (!Z1! !Z2! !Z3!^)do"
              )
rem 若此节规则的中间没有引号，说明没有类似"1 1 n"的结构；否则要准备开for /l了。将去除"for /l"结构后的“整节规则”赋给t。
        set "t=!t:""=" "!"
rem 准备开始分割小节规则。
        call :forl %%b
      )
rem 此节规则结束。
    )
rem 此行规则结束。
    set/a f+=f%%b
  )
rem 对此行数，所有规则结束。
  if !f!==0 echo %%a
rem 只要有一行规则完全符合，就不输出
  endlocal
))>2.txt
exit

rem %t%存整节规则，!t!存小节规则。
:forl
(%forl% (
  for %%j in ("%t%")do (
    set Le=&set Ri=
    set t=%%~j&set t=!t:%%%%i=%%i!
rem 因为前面在整节规则中造出了空格，因此可用for截取小节规则。
    for %%k in ("!t!")do (
      set u=!t:%%~k!
      set center==
      if "!u:~,1!"=="=" set center===
      if "!u:~,1!"=="t" set center=
    )
rem 以上利用字符串替换对"="的检测规律，来分析t，也就是小节规则，是0个/1个/2个等于号中的哪一种。
    for /f "tokens=1-3 delims== " %%k in ("!t!")do (
      set Le.ft=%%k
      if "!center!"=="" (set center=%%l&set Ri.ght=%%m)else set Ri.ght=%%l
    )
rem 分割小节规则
    for %%k in (Le.ft Ri.ght)do (
      set %%k=!%%k:[= !&set %%k=!%%k:]= !
      set QAQ=0
      for %%l in (!%%k!)do (
        2>nul set/a AQA=%%l
        2>nul set/a QAQ+=1,1/(QAQ"&"1^)&&set %%~nk=!%%~nk!%%l||set %%~nk=!%%~nk!!AQA!
      )
    )
rem 处理[]
    if "!center!"=="=" (set/a !Le!=!Ri!)else set/a Le=!Le!,Ri=!Ri!&call :zl %1
rem 若是赋值规则就直接打包set/a；若是比较规则，左右计算后进行比较。
  )
)
)&exit/b

:zl
rem if语句做不到耐心地把感叹号扩充开再判断语句是否合理，所以——
if %Le% %center% %Ri% (if not defined F%1 set F%1=1)else set F%1=0
rem F%1是用来存这行数对应这行规则的判定结果。有一节规则不满足就不算满足此行规则。符合为1，不符合为0.
exit/b
复制代码