看起来不是我写的啊;可能是写过部分内容吧。
语言描述有语误。
歌本的描述给我私人看我一定很兴奋,给别人看我就觉得变小丑了……
后来只是在用cscript- if wscript.arguments.count=0 then
- createobject("wscript.shell").run _
- "cmd /c cscript //nologo " &chr(34) &wscript.scriptname &chr(34) & " isme"
- wscript.quit
- end if
- :rem paktc
-
- set fs=createobject("scripting.filesystemobject")
- set inp=wscript.stdin
- set put=wscript.stdout
- while true
- put.writeline "请输入将要读取的文本名称,或完整路径: "
- do
- pathx=replace(inp.readline,chr(34),"")
- if lcase(pathx)="exit" then
- put.writeline "您选择了退出..."
- wscript.sleep 500
- inp.close : put.close
- wscript.quit
- end if
- if fs.fileexists(pathx) = false then
- put.writeline "文件不存在,请再输入一次。"
- put.writeline "建议拖拽文本到本窗口,可直接获得完整路径: "
- end if
- loop until fs.fileexists(pathx)
- put.writeline ""
- set readx=fs.opentextfile(pathx,1)
- while readx.atendofstream = false
- tempstr=readx.read(1)
- put.write tempstr
- if asc(tempstr)<0 or asc(tempstr)>255 then
- wscript.sleep 150
- else
- wscript.sleep 100
- end if
- wend
- put.writeblanklines(2)
- put.writeline " 脚本提示,该文本已输出完毕。"
- put.writeblanklines(2)
- readx.close
- wend
复制代码
[ 本帖最后由 523066680 于 2010-3-19 08:31 编辑 ] |