[文本处理] 【已解决】批处理：如何在代码中添加循环

思想之翼

@set @n=0;//&cscript -nologo -e:jscript "%~0"<a.txt>b.txt & pause & exit
while (!WScript.StdIn.AtEndOfStream) {
        str = WScript.StdIn.ReadLine();
        if (!/^\s*$/.test(str)) WScript.Echo(getNum(str))
}
function getNum(s) {
        ar = [];
        for (i=10; i<=19; i++) {
                s1 = (i + "").substr(1);
                ar.push(s.split(s1).length + "=" + s1);
        }
        ar.sort(function(x,y){return y.split("=")[0]-x.split("=")[0]});
        return ar.join(" ").replace(/\d+=/g, "");
}
复制代码

如何在上述第一行代码添加循环？
for %%a in ("D:/数据/*.txt") do (
        cscript -nologo -e:jscript "%~0"<"%%a" >"D:/数据/新文本/%%~nxa"
)

WHY

这个代码的作用是什么？你需要实现什么样的功能？

思想之翼

回复 2# WHY

感谢关注。
是关于这个帖子的扩展运用http://www.bathome.net/viewthread.php?tid=32677&highlight=

回家路上

论坛搜索 / JS模块顶层。

我很好奇，你仿照这会写不。求满足好奇心。O(∩_∩)O！
http://www.bathome.net/thread-31329-1-1.html

pcl_test

为何你提供的路径总是用正斜杠

WHY

@set @n=0;/* & echo off
set "fd=D:\数据\新文本\"
md "%fd%" 2>nul
pushd D:\数据\
dir /b *.txt | cscript -nologo -e:jscript "%~0" "%fd%"
pause & exit
*/

var fd = WScript.Arguments(0);
var fso = new ActiveXObject('Scripting.FileSystemObject');

while (!WScript.StdIn.AtEndOfStream) {
        var f = WScript.StdIn.ReadLine();
        var arr = readTextFile(f).split('\r\n');
        var str = '';
        for(var i=0; i<arr.length; i++){
                if (!/^\s*$/.test(arr[i])) str += getNum(arr[i]) + '\r\n';
        }
        fso.OpenTextFile(fd + f, 2, true).Write(str)
}

function readTextFile(strFile) {
        var objFile = fso.OpenTextFile(strFile, 1);
        var s = objFile.ReadAll();
        objFile.Close(); objFile = null;
        return s
}

function getNum(s) {
        var ar = [];
        for (var i=0; i<=9; i++) {
                ar.push(s.split(i).length + "=" + i);
        }
        ar.sort(function(x,y){return y.split("=")[0]-x.split("=")[0]});
        return ar.join(" ").replace(/\d+=/g, "");
}
复制代码