[原创vbs]ShowOneByOne - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

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

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

'ShowOneByOne
's11ss 2007-11-21
Option Explicit
Dim str,delay,i,one

'Judge ScriptHost and argument numbers:
If Lcase(Right(WScript.FullName,11))="wscript.exe" or WScript.Arguments.Count<>2 Then 
	WScript.Echo("Two Arguments:"&vbCrLf _
		&"1.A string to show"&vbCrLf _
		&"2.Delay between two characters(ms)"&vbCrLf _
		&"e.g.:"&vbCrLf _
		&"cscript //nologo "&WScript.ScriptName&" www.cn-dos.net"&" 1000")
	WScript.Quit
End If

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

If IsNumeric(delay) Then
	delay=Abs(delay)
	For i=1 To Len(str)
		one=Mid(str,i,1)'Get one character
		WScript.Sleep(delay)'Delay
		WScript.StdOut.Write(one)'Print
	Next
Else
	WScript.Echo(delay&" is not a number!")
End if