zaqmlp

/*&cls
@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
cd /d "%~dp0"
set "入=1.txt"
set "出=2.txt"
type "%入%"|cscript -nologo -e:jscript "%~f0">"%出%"
type "%出%"
pause&exit
*/
var r=null;
while(!WSH.StdIn.AtEndOfStream){
    var line=WSH.StdIn.ReadLine().replace(/^\s*|\s*$/g,'');
    if(line != ''){
        var arr=line.split(/\s+/);
        if(r==null)r=arr[1];
        var s=(arr[1]/r*100-100).toString();
        s=s.indexOf('.')>-1?s+'000':s+'.000';
        WSH.echo(arr[0]+'\t'+arr[1]+'\t'+s.replace(/^(.*?\....).*$/,'$1')+'\t'+arr[2]);
    }
}
复制代码