批处理，提取 指定规则的MIAL地址，大神在哪里？

1>1/* :
@echo off
dir /b "测试.txt"|cscript -nologo -e:jscript "%~0" >"结果.txt"
pause & exit/b
*/
//设定提取规则，格式为"数字,数字"，第一个数字为字母个数，第二个数字为数字个数
var rule = "4,4";
var r = rule.replace(/，/g,',').split(',');
while(!WScript.StdIn.AtEndOfStream) {
var file = WScript.StdIn.ReadLine();
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(file, 1)
while(!f.AtEndOfStream) {
    var str = f.ReadLine();
    var tstr = str.replace(/@[^@]*$/,'');
    var let = (tstr.match(/[a-z]/ig)||[]).length;
    var num = (tstr.match(/\d/g)||[]).length;
    if (let==r[0] && num==r[1])WSH.Echo(str);
}}

互助互利，及时采纳回答