[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
看起来不是我写的啊;可能是写过部分内容吧。
语言描述有语误。
歌本的描述给我私人看我一定很兴奋,给别人看我就觉得变小丑了……

后来只是在用cscript
  1. if wscript.arguments.count=0 then
  2.    createobject("wscript.shell").run _
  3.    "cmd /c cscript //nologo " &chr(34) &wscript.scriptname &chr(34) & " isme"
  4.    wscript.quit
  5. end if
  6. :rem paktc
  7. set fs=createobject("scripting.filesystemobject")
  8. set inp=wscript.stdin
  9. set put=wscript.stdout
  10. while true
  11.   put.writeline "请输入将要读取的文本名称,或完整路径: "
  12.   do
  13.     pathx=replace(inp.readline,chr(34),"")
  14.     if lcase(pathx)="exit" then
  15.       put.writeline "您选择了退出..."
  16.       wscript.sleep 500
  17.       inp.close : put.close
  18.       wscript.quit
  19.     end if
  20.     if fs.fileexists(pathx) = false then
  21.       put.writeline "文件不存在,请再输入一次。"
  22.       put.writeline "建议拖拽文本到本窗口,可直接获得完整路径: "
  23.     end if
  24.   loop until fs.fileexists(pathx)
  25.   put.writeline ""
  26.   set readx=fs.opentextfile(pathx,1)
  27.   while readx.atendofstream = false
  28.     tempstr=readx.read(1)
  29.     put.write tempstr
  30.     if asc(tempstr)<0 or asc(tempstr)>255 then
  31.       wscript.sleep 150
  32.     else
  33.       wscript.sleep 100
  34.     end if
  35.   wend
  36.   put.writeblanklines(2)
  37.   put.writeline "    脚本提示,该文本已输出完毕。"
  38.   put.writeblanklines(2)
  39.   readx.close
  40. wend
复制代码

[ 本帖最后由 523066680 于 2010-3-19 08:31 编辑 ]

TOP

返回列表