Board logo

标题: [原创js]ShowOneByOne [打印本页]

作者: s11ss     时间: 2007-12-14 16:26    标题: [原创js]ShowOneByOne


//ShowOneByOne
//s11ss 2007-12-14

var str,delay,i,one;

//Judge ScriptHost and argument numbers:
str=WScript.FullName;
str=str.substring(str.length-11,str.length).toLowerCase();
if(str=="wscript.exe"||WScript.Arguments.Count()!=2){
        WScript.Echo("Two Arguments:"+"\n"
                +"1.A string to show"+"\n"
                +"2.Delay between two characters(ms)"+"\n"
                +"e.g.:"+"\n"
                +"cscript //nologo \""+WScript.ScriptName+"\" www.cn-dos.net"+" 1000");
        WScript.Quit();
}

str=WScript.Arguments(0);
delay=WScript.Arguments(1);

if(parseFloat(delay)==delay){
        delay=Math.abs(delay);
        for(i=0;i<=str.length;i++)
        {
                one=str.substr(i,1);//Get one character
                WScript.Sleep(delay);//Delay
                WScript.StdOut.Write(one);//Print
        }
}else{
        WScript.Echo(delay+" is not a number!")
}