中国DOS联盟

'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