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

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(同上)，最后求出最小值

ohar

问题已经简化，赶快抢沙发吧！

batman

有小数就不适合用批来解决了，这是批的一个瓶颈。

terse

我是这样写的 没测试特殊情况

@echo off&setlocal enabledelayedexpansion
set n=2147483647
for /f "delims=" %%a in (a.txt) do (
    for %%i in (%%a) do (
        if "%%i"=="end" set flog=&echo !n!&set n=2147483647
        if defined flog (
        set "str=%%i"
        if "!str:~,1!"=="a" (
        set "m=!str:~1!"
        set str=!str:.=!
        for /l %%j in (0 1 9) do set str=!str:%%j=!
           if "!str!"=="a" (
           set n1=&set "n2="
           if "!n:~,1!" neq "-" (
           for  %%b in (n m) do for /f "tokens=1* delims=." %%m in ("!%%b!") do set %%b1=%%m&set "%%b2=%%n"
           if !n1! equ !m1! (
           if not "!n2!"=="" if "!n2!" gtr "!m2!" set n=!m!
         ) else if !n1! gtr !m1! set n=!m!
         )
        )
           if "!str!"=="a-" (
           if "!n:~,1!" equ "-" (
           for  %%b in (n m) do for /f "tokens=1* delims=." %%m in ("!%%b!") do set %%b1=%%m&set "%%b2=%%n"
           if !n1! equ !m1! (
           if not "!m2!"=="" if "!n2!" lss "!m2!" set n=!m!
         ) else if !n1! gtr !m1! set n=!m!
         ) else set n=!m!
     )))
           if "%%i"=="home" set "flog=x"
))
pause
复制代码

zqz0012005

JavaScript

//&@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);
s = "Math.max(" + nums.join(',').replace(/a/gi,'') + ")";
WScript.Echo( eval(s) );
复制代码

ohar

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

ohar

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

ohar

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

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

Lumiere

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

ohar

看来还是要请zqz0012005

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

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

terse

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

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

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