[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 wc726842270 于 2011-10-6 10:50 编辑
  1. @echo off 2>nul 3>nul
  2. rem str中的变量用非英文编写,全角标,半角标没有试。试验的时候最好在单独的文件夹中,如果出错,不明白的尽量“X”掉
  3. setlocal enabledelayedexpansion
  4. set "col=123456789abcdef"
  5. set /a n2=-1,over=15
  6. set "str=枫中残雪:无心,无思,无情,无乡,无缘。没有失去,对我来说也没有珍惜。希望从何来,算了,还是不要明白好了。"
  7. :start
  8. set /a n=%random%%%14+1,n2+=1
  9. if %over% equ %n% goto :start
  10. if "!str:~%n2%,1!" neq "" (
  11. >"!str:~%n2%,1!" set /p "= "<nul
  12. findstr /a:0!col:~%n%,1! .* "!str:~%n2%,1!*"
  13. ping /n 2 127.1>nul
  14. del !str:~%n2%,1!
  15. set "over=%n%"
  16. )&&goto :start
复制代码
1

评分人数

枫中残雪:风停了,我的心却在动,让我心中的寒意走向远方

TOP

返回列表