能做一个去掉不成立的等式的BAT吗，有加减乘除的

nono84223860

有大神能做一个这样的BAT吗

http://pan.baidu.com/s/1ntv7o97 3G大小的txt 压缩后只有4MB

我需要处理这个txt 由于过大2楼代码好像无法使用

用了9楼的方案后

出现了不成立的式子

5/0/5=5-8-4
5/0/5=5-8-5
5/0/5=5-8-6
5/0/5=5-8-7
5/0/5=5-8-8
5/0/5=5-8-9
5/0/5=5-9-0
5/0/5=5-9-1
5/0/5=5-9-2
5/0/5=5-9-3
5/0/5=5-9-4
5/0/5=5-9-5
5/0/5=5-9-6

apang

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

复制代码

nono84223860

回复 2# apang


    大神厉害，这么么快解决我的问题，以为很难

terse

发出来 已经有了 算了

nono84223860

回复 4# terse


还有个 比如 1+1+1+1=
BAT处理后悔填上结果的，这个难吗？

处理前：
1+1+1+1=
处理后
1+1+1+1=4

也是有加减乘除的。如果是除法，小数点保留到后3位就可以了

nono84223860

回复 2# apang

不过我刚刚处理了一个3G的TXT，秒退。。。。

nono84223860

回复 4# terse

上面大神的，处理大文件会秒退，然后生成了一个0字节的 b.txt 处理的是3g大的txt

terse

回复 7# nono84223860
试试这个呢？

1. @if(0)==(0) echo off
   
2. cscript //nologo //e:javascript "%~0"<a.txt >结果.txt
   
3. pause&goto :eof
   
4. @end
   
5. while (!WScript.StdIn.AtEndOfStream){
   
6.   var s = WScript.StdIn.ReadLine();
   
7.   var a = s.replace(/(.+)=.+/,'$1');
   
8.   var b = s.replace(/.+=(.+)/,'$1');
   
9.   var c = eval(a)-eval(b);
   
10.   if (c === 0) {WScript.Echo(s)}
    
11. }

复制代码

CrLf

js 的 eval 有点危险吧

第一感觉是用 vbs，先来个 vbs 版的：

1. On Error Resume Next
   
2. 
   
3. Dim fso,str,i,ar(65536)
   
4. 
   
5. i=0
   
6. 
   
7. Set fso = WScript.CreateObject("Scripting.Filesystemobject")
   
8. Set ts = fso.OpenTextFile("dd.txt")
   
9. Set ts2 = fso.CreateTextFile("dd_output.txt",true)
   
10. 
    
11. Do Until ts.AtEndOfStream
    
12.         str = ts.ReadLine
    
13.         If InStr("12","/0")=0 Then
    
14.                 If Eval(str) Then
    
15.                         ar(i)=str
    
16.                         i = i + 1
    
17.                         If i=65536 Then
    
18.                                 ts2.WriteLine Join(ar,vbCrLf)
    
19.                                 i = 0
    
20.                         End If
    
21.                 End If
    
22.         End If
    
23. Loop
    
24. 
    
25. If i>0 Then
    
26.         For j=0 To i
    
27.                 ts2.WriteLine ar(j)
    
28.         Next
    
29. End If

复制代码

虽然有为速度稍作优化，但速度还是慢得不可忍受...

再来个 perl 版的，快多了：

1. open(IN,"dd.txt");
   
2. open(OUT,">dd_output.txt");
   
3. 
   
4. while ($str=<IN>){
   
5.     next if $str =~ /\/0/;
   
6.    $str=~ s/=/==/;
   
7.    if(eval($str)){print OUT ($str);}
   
8. }

复制代码

CrLf

eval 的效率提不上去，换了一种实现，快多了，为了效率，函数也不用了...

1. open(IN,"dd.txt");
   
2. open(OUT,">dd_out2.txt");
   
3. 
   
4. while ($str=<IN>){
   
5.         next if $str =~ /\/0/;
   
6. 
   
7.         @ar=split(//,$str);
   
8.         $a=$b=0;
   
9.         for($i=1;$i<4;$i+=2){
   
10.                 if(@ar[$i]=='+'){$a+=@ar[$i+1];next;}
    
11.                 if(@ar[$i]=='-'){$a-=@ar[$i+1];next;}
    
12.                 if(@ar[$i]=='*'){$a*=@ar[$i+1];next;}
    
13.                 if(@ar[$i]=='/'){$a/=@ar[$i+1];next;}
    
14.         }
    
15.         for($i=7;$i<10;$i+=2){
    
16.                 if(@ar[$i]=='+'){$b+=@ar[$i+1];next;}
    
17.                 if(@ar[$i]=='-'){$b-=@ar[$i+1];next;}
    
18.                 if(@ar[$i]=='*'){$b*=@ar[$i+1];next;}
    
19.                 if(@ar[$i]=='/'){$b/=@ar[$i+1];next;}
    
20.         }
    
21.         if($a==$b){print OUT ($str);}
    
22. }

复制代码

terse

回复 10# CrLf
js eval的效率 确实提不上

nono84223860

,,,我复制去BAT，都无法使用。。。。
什么原因

Batcher

回复 12# nono84223860


    你复制的几楼的代码？

nono84223860

回复 13# Batcher

回复 13# Batcher

8 9 10楼都试过，秒退的。
是不是少了什么插件，还是操作有误
楼顶的是3G压缩包，
我想处理这个文件

Batcher

回复 14# nono84223860


    把9楼第一段代码保存成 test.vbs 试试