中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-11 15:50 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » [讨论]批处理行号是如何加上去的？
可打印版本 　1,722 / 6
第1楼　dosz 发表于 2009-04-11 10:20
中级用户　发帖 188　积分 396　来自 上海
[讨论]批处理行号是如何加上去的？
批处理行号是如何加上去的？
http://www.cn-dos.net/forum/viewthread.php?tid=21664


  1. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

  3. :: Batch2ubb.cmd -V0.30 -- 批处理转 UBB 代码

  5. :: 无奈何@cn-dos.net - 更新于：2005-7-30 - CMD & GAWK

  7. :: 用法：Batch2ubb

  9. :: 支持文件: - gawk.exe winclip.exe Batch2ubb.awk batch.esy

  11. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::



  15. @echo off

  17. setlocal

  19. set path=%path%;%cd%;%~dp0

  21. set error=

  23. rem 文件完整性检查。

  25. for %%i in (gawk.exe winclip.exe batch.esy batch2ubb.awk) do (

  27. @if "%%~$PATH:i" == "" (

  29. echo 错误：程序所依赖文件 "%%i" 缺失。

  31. set error=错误：程序文件不完整。

  33. ) else ( set %%~ni="%%~$PATH:i" )

  35. )

  37. if defined error goto error



  41. rem 测试剪贴板数据类型。

  43. winclip -i |findstr /r ".*_.*TEXT" >nul

  45. if ERRORLEVEL 1 set error=错误：剪贴板为空或内容为非文字数据！



  49. rem 空参数调用获得剪贴板数据，将转换结果复制到剪贴板。

  51. if "%~1" == "" (

  53. if defined error goto error

  55. winclip -p |gawk -v line=1 -f %Batch2ubb% |winclip -c

  57. goto end

  59. )

  61. rem 只有一个参数时尝试作为输入文件处理，当其不存在时作参数处理。

  63. if "%~2" == "" (

  65. if exist "%~1" (

  67. gawk -v line=1 -f %Batch2ubb% "%~1" |winclip -c

  69. goto end

  71. )

  73. )

  75. set line=1

  77. set input=

  79. set out=



  83. :ParseLoop

  85. if "%~1" == "" goto Start

  87. if "%~1" == "/?" goto SwitchH

  89. rem 参数处理并转到相应标签。

  91. for %%s in (i I n N o O h H) do if "%~1"=="/%%s" goto Switch%%s

  93. set error=错误: 参数格式不正确 - "%1"!

  95. goto error



  99. :SwitchI

  101. set "input=%~2"

  103. if not exist "%input%" set error=警告：文件 "%input%" 不存在。 & goto error

  105. goto Next2Arg



  109. :SwitchO

  111. set "out=%~2"

  113. if not defined out set error=警告：请指定输出文件。 & goto error

  115. goto Next2Arg



  119. :SwitchN

  121. set line=0

  123. goto NextArg



  127. :Next2Arg

  129. shift

  131. :NextArg

  133. shift

  135. goto ParseLoop



  139. rem 不同参数分类判断处理。

  141. :Start

  143. if defined input (

  145. if defined out (

  147. gawk -v line=%line% -f %Batch2ubb% "%input%" >"%out%"

  149. ) else (

  151. gawk -v line=%line% -f %Batch2ubb% "%input%" |winclip -c

  153. )

  155. ) else (

  157. if defined out (

  159. if defined error goto error

  161. winclip -p |gawk -v line=%line% -f %Batch2ubb% >"%out%"

  163. ) else (

  165. if defined error goto error

  167. winclip -p |gawk -v line=0 -f %Batch2ubb% |winclip -c

  169. )

  171. )

  173. goto end



  177. :error

  179. echo.%error%

  181. echo.

  183. :SwitchH

  185. echo.批处理转 UBB 代码。

  187. echo.Batch2ubb

  189. echo.

  191. echo. /i 指定转换的文件，可包含路径，缺省从剪贴板获得。

  193. echo. /o 指定输出的文件，可包含路径，缺省输出到剪贴板。

  195. echo. /n 生成无行号的 UBB 代码，缺省带行号。

  197. echo. /h 显示本简短帮助，等价命令 /?。

  199. echo. 本程序执行依赖以下文件 gawk.exe winclip.exe Batch2ubb.awk batch.esy。

  201. echo.

  203. :end

dosz发表于： 2009-04-11 21:14


[ Last edited by dosz on 2009-4-11 at 10:26 ]
第2楼　dosz 发表于 2009-04-11 10:24
中级用户　发帖 188　积分 396　来自 上海
请输入要查找的文件名


  1. @echo off
  2. cls
  3. :loop
  4. set filename=
  5. set/p filename=请输入要查找的文件名（支持通配符，如"*.mp3 mp3.*"）:
  6. if not defined filename (cls & if errorlevel 1 cls&msg * dosz 提示：输入了错误的命令,这是为什么呢~，是否想忽悠？&goto loop)
  7. echo.
  8. set/p sheet=请输入要写入例表的文件名：┗┛可选项（不要扩占名）
  9. set num=
  10. ECHO ☆☆☆ %DATE% %time% ☆☆☆>%temp%\%sheet%.txt
  11. set drv= C D E F G H I J K L M N O P Q R S T U V W X Y Z
  12. for %%a in (%drv%) do (
  13. if exist %%a:\nul (
  14. cls&echo 正在搜索 %%a: 盘下的 %filename% ...
  15. dir>nul 2>nul /s/b/a/o "%%a:\%filename%" >>%temp%\%sheet%.txt&&set num=1
  16. )
  17. )
  18. if "%num%" == "1" (
  19. @mode con cols=120
  20. cls&echo.&echo.
  21. color 1f
  22. echo =========== 为你找到下列文件: "%filename%" 并保存到“%temp%\%sheet%.txt”文件中 ================
  23. title 快速打开文件
  24. echo.
  25. for /f "delims=" %%i in (%temp%\%sheet%.txt) do echo %%i
  26. ) else (cls&echo.&echo.&echo ***** 没有找到文件: "%filename%" *****&pause>nul&GOTO :EOF)
  27. start %temp%\%sheet%.txt
  28. pause
dosz发表于： 2009-04-11 21:18


[ Last edited by dosz on 2009-4-11 at 10:27 ]
第3楼　dosz 发表于 2009-04-11 10:35
中级用户　发帖 188　积分 396　来自 上海
我要说的是在深度论坛无法显示行号问题应该如何解决？
http://os.deepin.org/read.php?tid=1052540&page=1&toread=1
第4楼　yishanju 发表于 2009-04-11 10:40
银牌会员　发帖 1,357　积分 1,488
深度用的是PHPWIND论坛吧，可能 不支持UBB
第5楼　HAT 发表于 2009-04-11 12:07
版主　发帖 5,017　积分 9,023
行号需要使用的标签是list
你可以到深度问问他们的管理员为什么不支持list
第6楼　netbenton 发表于 2009-04-11 13:50
银牌会员　发帖 752　积分 1,916　来自 广西


    我学也会了，谢谢各位
    原来是这样的



    1. 我学也会了，谢谢各位
    2. 原来是这样的


gg

[ Last edited by netbenton on 2009-4-11 at 18:41 ]
第7楼　yishanju 发表于 2009-04-11 14:36
银牌会员　发帖 1,357　积分 1,488
BS楼上灌纯净
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023