[数值计算] [已解决]批处理如何查找出多个含指定字符的数字串中的最小值

ohar

文本内容为

 a535 a22 u133 b135351 w566 d133 a551 d1313 a-12.12 a-0.45 d5252 a122 ...  a12452  a25 a14 d522 d52 a0.12 a-15 ...
复制代码

要求得以a开头的字符串中数字的最小值.字符串的格式是a+数字，数字包括负数、小数。更新：文本大小是1.8M，其中要搜索的a+数字大约有0.5M，在这样的情况下楼下的js代码是可以算出，但要搜索的a+数字很多时，就内存不足。我有两个思路：1先算出搜索到的第一个结果与第二个结果的最小值，再拿它与第三个结果比较得出最小值…这样函数总是比较两个数，就不会内存不足了；2先读取0.5M(或多少字符或多少行)求出最小值，再读取下一0.5M(同上)，最后求出最小值

pcl_test

第三方

gawk "{for(i=1;i<=NF;i++){if($i~/^a-?[0-9]*\.?[0-9]+$/){j++;sub(/a/,\"\",$i);if(j==1){min=$i*1}else{if($i*1<min)min=$i*1}}}}END{print min}" "文本.txt"
复制代码

Lumiere

用其他语言简单多了，批处理也有不尽如人意的地方

zqz0012005

没有逐个比较的效率高（当然15楼的方法主要作用是排序）

//&@cls&start wscript.exe -e:jscript "%~f0"&exit/b
f = "C:\\Documents and Settings\\user\\桌面\\a.txt";
fso = new ActiveXObject('Scripting.FileSystemObject');
nums = fso.OpenTextfile(f).ReadAll().match(/\ba[-.\d]+\b/gi);
nums = nums.join(',').replace(/a/gi,'').split(',');
min = parseFloat(nums[0]);
for (i=0;i<nums.length;i++) {
    num = parseFloat(nums[i]);
    if(num<min) min=num;
}
WScript.Echo( min );
复制代码

ohar

测试了，10M的，bat得 -.999，js得-4.097，时间上就相差很大，正确最小值是后者。zqz0012005能告知js的计算过程吗

zqz0012005

看来min方法的内部实现可能也不咋地。。。

用排序的方法，未测试和逐个比较时的效率。
内存与CPU占用率很高。

//&@cls&start wscript.exe -e:jscript "%~f0"&exit/b
f = "C:\\Documents and Settings\\user\\桌面\\a.txt";
fso = new ActiveXObject('Scripting.FileSystemObject');
nums = fso.OpenTextfile(f).ReadAll().match(/\ba[-.\d]+\b/gi);
nums = nums.join(',').replace(/a/gi,'').split(',');
nums = nums.sort(function (x,y) {return x-y});
WScript.Echo( nums[0] );
复制代码

terse

原帖由 ohar 于 2009-8-10 17:42 发表
是啊，一直只对两个值进行比较，内存肯定没问题，可我有问题了，我只想到这样的思路，不能写出代码啊

4楼就是只对两个值比较的哦 但为什么还是有错
另你单行字符是否超出限制呢？

ohar

是啊，一直只对两个值进行比较，内存肯定没问题，可我有问题了，我只想到这样的思路，不能写出代码啊

terse

原帖由 ohar 于 2009-8-10 15:32 发表
另外，如果文本中没有要搜索的字符，会出错，那么怎样让他继续执行别的代码呢

你意思是不是 没有A开头的呢  
改4楼代码这里 看可行不  if "%%i"=="end" set flog=&if !n! neq 2147483647 echo !n!&set n=2147483647
另：内存问题  你说数据1M 都没  应该没问题的啊
大小的判断是先设置一个变量  然后拿当前值的和变量比较 如当前值小 设置变量为当前值 这样一直就一变量N  内存应该不是问题吧
对了   FOR对单行字符应该有限制的吧

[ 本帖最后由 terse 于 2009-8-10 17:19 编辑 ]

ohar

另外，如果文本中没有要搜索的字符，会出错，那么怎样让他继续执行别的代码呢

ohar

看来还是要请zqz0012005

Lumiere

批处理比较小数大小相当麻烦，特别是又负数的情况下

ohar

文件较大时，内存不足，问题出在MIN函数。以更新至顶楼

[ 本帖最后由 ohar 于 2009-8-10 11:51 编辑 ]

ohar

5楼的js代码该怎样改成vbs的，或者该怎样用vbs传递一个path变量给js，再调用他，再返回一个结果变量给vbs

ohar

原来BAT有个小瓶颈，怪不得少人回答。4，5楼的代码我都下了，但经手机一压缩，我都不知道从哪里换行了。先看了5楼的，又来了个JS，像VBS我也是最近几天了解，心想，坏了，还好JS有个分号.嘿嘿，没错，一双击，蹦出个12452，这么大，再看下原来是MAX.4楼的明天再测试吧。我想你一定花了不少时间，明天，明天我用WORD把那些()都换个颜色看看，够菜吧