中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-06 20:28
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创js]ShowOneByOne 查看 750 回复 0
楼 主 [原创js]ShowOneByOne 发表于 2007-12-14 16:26 ·  中国 北京 鹏博士BGP
银牌会员
★★★
积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别 男
状态 离线
//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!")
}
论坛跳转: