[文本处理] 能做一个去掉不成立的等式的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

CrLf

回复 21# nono84223860


    亲，那是 perl 代码
    两个小时啊，用 10 楼代码应该至少减半吧

nono84223860

回复 20# CrLf

10楼的不会用。。。。。

9楼的代码我处理了好像是2个小时左右吧

CrLf

回复 18# nono84223860


    已修改。
    不过还是建议用 10 楼的 perl，3G 的文件呢，可不是开玩笑...

nono84223860

回复 17# Batcher


http://www.bathome.net/thread-30937-1-1.html

这位大神您能够帮我看一下这个吗

nono84223860

回复 9# CrLf


大神，出现了不成立的式子。。怎么解决 楼上有写

Batcher

回复 16# nono84223860


    这个你应该找9楼那个家伙帮你解决

nono84223860

回复 15# Batcher

可以了

不过出现了这个问题。。。

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

有这样的不成立的数字

Batcher

回复 14# nono84223860


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

nono84223860

回复 13# Batcher

回复 13# Batcher

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

Batcher

回复 12# nono84223860


    你复制的几楼的代码？

nono84223860

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

terse

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

CrLf

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

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);}
}
复制代码

CrLf

js 的 eval 有点危险吧

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

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
复制代码

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

再来个 perl 版的，快多了：

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

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