[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

以前在cn-dos写的:

  1. @echo off&color 9f&mode con lines=15
  2. title txt/bat文件阅读器
  3. cls
  4. echo.&echo.&echo.&echo.&echo.
  5. echo                            txt\bat文件阅读器
  6. ping /n 2 127.1 >nul
  7. cls
  8. color 90
  9. echo.&echo.&echo.&echo.&echo.
  10. echo                 THE CODE IS FOR NAMEJM AND MADE BY ZW19750516
  11. ping /n 4 127.1 >nul&color 9f
  12. :begin
  13. cls
  14. echo.&echo.&echo.&echo.&echo.
  15. set a=1
  16. set /p a=请将要阅读的txt或bat文件拖放到这里:
  17. cls
  18. echo.&echo.&echo.&echo.&echo.
  19. if "%a%"=="1" echo            没有发现要阅读的文件,请返回正确操作。&ping /n 3 127.1 >nul&goto begin
  20. cls
  21. for /f "delims=" %%i in ('findstr /n .* "%a%"') do (
  22.     set "str=%%i"
  23.     setlocal enabledelayedexpansion
  24.     set str=!str:*:=!
  25.     call :pickup
  26.     endlocal
  27. )
  28. cls
  29. echo.&echo.&echo.&echo.&echo.
  30. echo                      阅读完毕,请按任意键退出。                              
  31. pause >nul
  32. goto :eof
  33. :pickup
  34. ping -n 1 127.1>nul
  35. if defined str (
  36.     set /p= !str:~0,1!<nul
  37.     set str=!str:~1!
  38.     goto pickup
  39. )
  40. echo.
复制代码
1

评分人数

    • zhouyongjun: 比我的强多了,能完全原样输出,要仔细研究 ...PB + 8 技术 + 1
***共同提高***

TOP

set /p= !str:~0,1!<nul是为了处理"="字符,汗,自己都忘记了,幸亏jm提醒。
***共同提高***

TOP

返回列表