@echo off
(for /f "tokens=1,2 delims==" %%a in (a.txt) do (
    set /a "1/(%%a-(%%b))" || echo,%%a=%%b
))>b.txt 2>nul
pause
复制代码

@if(0)==(0) echo off
cscript //nologo //e:javascript "%~0"<a.txt >结果.txt
pause&goto :eof
@end
while (!WScript.StdIn.AtEndOfStream){
  var s = WScript.StdIn.ReadLine();
  var a = s.replace(/(.+)=.+/,'$1');
  var b = s.replace(/.+=(.+)/,'$1');
  var c = eval(a)-eval(b);
  if (c === 0) {WScript.Echo(s)}
}
复制代码

On Error Resume Next

Dim fso,str,i,ar(65536)

i=0

Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set ts = fso.OpenTextFile("dd.txt")
Set ts2 = fso.CreateTextFile("dd_output.txt",true)

Do Until ts.AtEndOfStream
	str = ts.ReadLine
        If InStr("12","/0")=0 Then
	        If Eval(str) Then
	        	ar(i)=str
	        	i = i + 1
	        	If i=65536 Then
	        		ts2.WriteLine Join(ar,vbCrLf)
	        		i = 0
	        	End If
                End If
	End If
Loop

If i>0 Then
	For j=0 To i
		ts2.WriteLine ar(j)
	Next
End If
复制代码

open(IN,"dd.txt");
open(OUT,">dd_output.txt");

while ($str=<IN>){
    next if $str =~ /\/0/;
   $str=~ s/=/==/;
   if(eval($str)){print OUT ($str);}
}
复制代码

open(IN,"dd.txt");
open(OUT,">dd_out2.txt");

while ($str=<IN>){
	next if $str =~ /\/0/;

	@ar=split(//,$str);
	$a=$b=0;
	for($i=1;$i<4;$i+=2){
		if(@ar[$i]=='+'){$a+=@ar[$i+1];next;}
		if(@ar[$i]=='-'){$a-=@ar[$i+1];next;}
		if(@ar[$i]=='*'){$a*=@ar[$i+1];next;}
		if(@ar[$i]=='/'){$a/=@ar[$i+1];next;}
	}
	for($i=7;$i<10;$i+=2){
		if(@ar[$i]=='+'){$b+=@ar[$i+1];next;}
		if(@ar[$i]=='-'){$b-=@ar[$i+1];next;}
		if(@ar[$i]=='*'){$b*=@ar[$i+1];next;}
		if(@ar[$i]=='/'){$b/=@ar[$i+1];next;}
	}
	if($a==$b){print OUT ($str);}
}
复制代码