标题: [原创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!")
}