Board logo

标题: [原创]批处理代码发帖着色脚本 Batch2ubb（CMD & GAWK） [打印本页]
作者: 无奈何     时间: 2006-7-3 20:16    标题: [原创]批处理代码发帖着色脚本 Batch2ubb（CMD & GAWK）

[原创]批处理代码发帖着色脚本 Batch2ubb（CMD & GAWK） 7.30 日更新
        这是我当初学习 AWK 时作出的东西，一直存在一些问题没有解决，所以也就没有贴出来。最近一段时间不能上网就重写了一下，并加入了可支持参数的调用批处理，多参数调用构架是 Willsort 兄的大作，我直接拷贝过来，详见：[原创]批处理参数问题一点谈 http://www.cn-dos.net/forum/viewthread.php?tid=17785。
        其中主要功能是由 GAWK 脚本完成的，剪贴板操作依赖于 winclip.exe ，语法文件是由我自己使用的 EmEditor 的批处理语法文件简化而来。所需执行文件下载链接：
        winclip        http://www.dmst.aueb.gr/dds/sw/outwit/outwit-bin-1.26.zip
        gawk        http://www.klabaster.com/progs/gawk32.zip

        关于此批处理的使用，有几种调用方式交待一下：
        1、直接双击运行。
        2、命令行调用，Batch2ubb /h 查看具体参数用法。
        3、在 sendto 建立快捷方式调用。
        4、建立快捷方式并设定热键调用。

        关于第 1 种运行方式，会将剪贴板中的代码转为 UBB 代码，重新写到剪贴板。
        关于第 3 种运行方式，使用方法是开始、运行 输入 sendto ，在 sendto 目录建立指向 Batch2ubb.cmd 的快捷方式，然后右键选定欲转换的批处理文件执行发送到建立的快捷方式，转换的代码存于剪贴板。此种方法适用于已经存在的批处理的转换。
        关于第 4 种运行方式，使用方法是在桌面或开始菜单中建立指向 Batch2ubb.cmd 的快捷方式并设定热键（后一位置重启后生效或在桌面按住F5键十秒种生效）或由 hoekey 等软件代劳，然后拷贝欲贴代码，按下热键，就可以在发帖窗口中粘贴了。并切可以在快捷方式中的目标位置选择是否启用 /n 参数。
        另请自行修改 Batch2ubb.awk 中时间戳语句中的名字为自己的名字。有问题或建议欢迎跟帖讨论，我会尽量完善的。

Batch2ubb.cmd

  Quote:

  1. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2. :: Batch2ubb.cmd -V0.30 -- 批处理转 UBB 代码
  3. :: 无奈何@cn-dos.net - 更新于：2005-7-30 - CMD & GAWK
  4. :: 用法：Batch2ubb [/i 输入文件] [/o 输出文件] [/n 输出无行号] [/h 显示帮助]
  5. :: 支持文件: - gawk.exe  winclip.exe  Batch2ubb.awk  batch.esy
  6. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

  8. @echo off
  9. setlocal
  10. set path=%path%;%cd%;%~dp0
  11. set error=
  12. rem 文件完整性检查。
  13. for %%i in (gawk.exe winclip.exe batch.esy batch2ubb.awk) do (
  14.         @if "%%~$PATH:i" == "" (
  15.                 echo 错误：程序所依赖文件 "%%i" 缺失。
  16.                 set error=错误：程序文件不完整。
  17.         ) else ( set %%~ni="%%~$PATH:i" )
  18. )
  19. if defined error goto error

  21. rem 测试剪贴板数据类型。
  22. winclip -i |findstr /r ".*_.*TEXT" >nul
  23. if ERRORLEVEL 1 set error=错误：剪贴板为空或内容为非文字数据！

  25. rem 空参数调用获得剪贴板数据，将转换结果复制到剪贴板。
  26. if "%~1" == "" (
  27.         if defined error goto error
  28.         winclip -p |gawk -v line=1 -f %Batch2ubb% |winclip -c
  29.         goto end
  30. )
  31. rem 只有一个参数时尝试作为输入文件处理，当其不存在时作参数处理。
  32. if "%~2" == "" (
  33.         if exist "%~1" (
  34.                 gawk -v line=1 -f %Batch2ubb% "%~1" |winclip -c
  35.                 goto end
  36.         )
  37. )
  38. set line=1
  39. set input=
  40. set out=

  42. :ParseLoop
  43. if "%~1" == "" goto Start
  44. if "%~1" == "/?" goto SwitchH
  45. rem 参数处理并转到相应标签。
  46. for %%s in (i I n N o O h H) do if "%~1"=="/%%s" goto Switch%%s
  47. set error=错误: 参数格式不正确 - "%1"!
  48. goto error

  50. :SwitchI
  51. set "input=%~2"
  52. if not exist "%input%" set error=警告：文件 "%input%" 不存在。 & goto error
  53. goto Next2Arg

  55. :SwitchO
  56. set "out=%~2"
  57. if not defined out set error=警告：请指定输出文件。 & goto error
  58. goto Next2Arg

  60. :SwitchN
  61. set line=0
  62. goto NextArg

  64. :Next2Arg
  65. shift
  66. :NextArg
  67. shift
  68. goto ParseLoop

  70. rem 不同参数分类判断处理。
  71. :Start
  72. if defined input (
  73.         if defined out (
  74.                 gawk -v line=%line% -f %Batch2ubb% "%input%" >"%out%"
  75.         ) else (
  76.                         gawk -v line=%line% -f %Batch2ubb% "%input%" |winclip -c
  77.                 )
  78. ) else (
  79.         if defined out (
  80.                         if defined error goto error
  81.                         winclip -p |gawk -v line=%line% -f %Batch2ubb% >"%out%"
  82.         ) else (
  83.                         if defined error goto error
  84.                         winclip -p |gawk -v line=0 -f %Batch2ubb% |winclip -c
  85.                 )
  86. )
  87. goto end

  89. :error
  90. echo.%error%
  91. echo.
  92. :SwitchH
  93. echo.批处理转 UBB 代码。
  94. echo.Batch2ubb [/i 输入文件] [/o 输出文件] [/n 输出无行号] [/h 显示帮助]
  95. echo.
  96. echo. /i        指定转换的文件，可包含路径，缺省从剪贴板获得。
  97. echo. /o        指定输出的文件，可包含路径，缺省输出到剪贴板。
  98. echo. /n        生成无行号的 UBB 代码，缺省带行号。
  99. echo. /h        显示本简短帮助，等价命令 /?。
  100. echo.  本程序执行依赖以下文件 gawk.exe winclip.exe Batch2ubb.awk batch.esy。
  101. echo.
  102. :end
        无奈何发表于：  2006-07-30  23:44

Batch2ubb.awk
###########################################################
# Batch2ubb.awk -V0.2 -- 批处理转 UBB 代码脚本
# 无奈何 - 2005-7-2 --  GAWK 脚本
###########################################################
#读取配置文件，获取关键字
BEGIN {
        IGNORECASE=1
        while ((getline<"batch.esy") >0){
                if ($0!~/^[ \t]*;/ && $0!~/^$/) {
                        if ($0~/^[ \t]*#LINECOMMENT=/){
                                LineComment=substr($0,index($0,"=")+1)
                        } else if ($0~/^[ \t]*#VARIABLE=/){
                                Variable=substr($0,index($0,"=")+1)
                        } else if ($0~/^[ \t]*#PARAMETER=/){
                                Parameter=substr($0,index($0,"=")+1)
                        } else if ($0~/^[ \t]*#LABEL=/){
                                Label=substr($0,index($0,"=")+1)
                        } else if ($0~/^[ \t]*#KEYWORD/){
                                color[++i]=substr($0,index($0,"=")+1)
                        } else {
                                        keyword[$0]=color[i]
                        }
                }
        }
        print "[quote]"
        if (line) print "[list=1]"
}
#主程序开始
{
        before="[color=]"
        after="[/color]"
        #处理注释行及标签行
        if (($0~/^[ \t]*::/) || ($0~/^[ \t]*REM\>/)){
                gsub(/=.*]/,"=" LineComment "]",before)
                $0=before $0 after
        }else if ($0~/^[ \t]*:[^:]+/){
                gsub(/=.*]/,"=" Label "]",before)
                $0=before $0 after
        } else {
                temp=$0
                #分割出关键字
                gsub(/[][ \t,;'`~:+"=()<>{}^&|@\.]+/,"□",temp)
                gsub(/(^□|□$)/,"",temp)
                len=split(temp,word,"□+")
                for (i=1;i<=len;i++){
                        # COLOR 关键字与 UBB 颜色字符重叠，单独处理
                        if (word[i]~/COLOR/){
                                if(!fcolor){
                                        gsub(/=.*]/,"=" keyword["COLOR"] "]",before)
                                        gsub("\\<" word[i] "\\>",before "&" after,$0)
                                        delete word[i]
                                        fcolor=1
                                } else
                                        delete word[i]
                        }
                        #删除重复关键字
                        for (j=i+1;j<=len;j++){
                                if (word[i]==word[j])
                                        delete word[j]
                        }
                }

                for (i=1;i<=len;i++){
                        for (aa in keyword){
                                if (aa==toupper(word[i])){
                                        gsub(/=.*]/,"=" keyword[aa] "]",before)
                                        gsub("\\<" word[i] "\\>",before "&" after,$0)
                                }
                        }
                }
                #处理变量及命令参数等细节部分
                gsub(/=.*]/,"=" Variable "]",before)
                gsub (/%+[A-Za-z0-9:~]*%?/,before "&" after,$0)
                gsub (/!+[A-Za-z0-9:~]*!*/,before "&" after,$0)
                gsub(/=.*]/,"=" Parameter "]",before)
                gsub (/ \/[A-Za-z?\-]+/,before "&" after,$0)
                gsub (/(\(|\))/,"[b]&[/b]",$0)
                gsub (/(\")/,"[b]&[/b]",$0)
        }
        if (line) print "[*]" $0
        else print $0
}
END {
        if (line) printf "[/list]"
        #添加时间戳自行修改作者名
        print "[color=White]" strftime("\t无奈何发表于：  %Y-%m-%d  %H:%M") "[/color]"
        print "[/quote]"
}
所有文件打包下载见附件：

[ Last edited by 无奈何 on 2006-7-30 at 23:53 ]
附件 1: Batch2ubb.zip (2006-7-8 23:30, 145.3 K, 下载附件所需积分 1点 ,下载次数： 385)
附件 2: Batch2ubb_V0.3.zip (2006-7-30 23:52, 145.46 K, 下载附件所需积分 1点 ,下载次数： 490)
作者: 220110     时间: 2006-7-4 09:47
re 无奈何

Batch2ubb.cmd 是否漏了 endlocal ?
怪不得这两天见你的贴子充满着色彩,我心想无奈何你不会无奈何到这样玩吧,哈哈,原来还有这必杀技,有创意!顶..

[ Last edited by 220110 on 2006-7-4 at 09:49 ]
作者: 无奈何     时间: 2006-7-4 21:22
Re 220110
哈哈，无奈中多一点色彩。^_^
endlocal 并非漏掉，因为在批处理结束处暗含一个 endlocal 命令，所以  endlocal 可以省略。如果含有多段  setlocal 的话加上结束环境更改是必要的。
作者: fastslz     时间: 2006-7-6 13:59


  Quote:

  1. @echo off
  2. set Version=VIRDEFVER
  3. find /i virusdb.cfg "%Version%"
  4. if not errorlevel 1 set Version=VersionNo
  5. for /F "tokens=1 delims=VIRDEFVER " %%A in ('find /i .\Rav\virusdb.cfg "VIRDEFVER"') do set No=%%A
  6. for /F "tokens=1 delims=VIRDEFUPDATEDATE " %%B in ('find /i .\Rav\virusdb.cfg "VIRDEFUPDATEDATE"') do set DATENO=%%B
  7. echo [Version]>.\001\VERSION.INF
  8. echo %Version%%NO%>>.\001\VERSION.INF
  9. echo UpdateDate%DATENO%>>.\001\VERSION.INF
        DOS一跟葱    2006-07-06  13:46

老大怎么签名字体是白的？
作者: zhaxi     时间: 2006-7-6 19:10
不明白如何使用。
作者: doscc     时间: 2006-7-6 21:10
强人一个.好好学习
作者: 无奈何     时间: 2006-7-8 16:48
Re fastslz
我添加时间戳记的目的有两个
1、利用戳记中的部分字句作为全文搜索的关键词，来查找自己发过的含有代码的帖子。
2、简单的添加时间标记。

关于 1 象1楼中单纯使用用户名作标记并不是很明智的做法，因为会搜到很多其他的帖子，所以个性一点的词句效果会好一些。关于为什么选择白色的，只是希望更含蓄一些，当然可以根据自己的喜好更改为更顺心的颜色。

Re  zhaxi
如果觉得设置快捷方式比较复杂，可以直接从命令行中调用。
更简单的方法是将要发帖的批处理代码拷贝到剪贴板，双击运行 Batch2ubb.cmd  ，然后就可以粘贴转换后的代码了。
我更新了一下，并且多添加了一些说明。

[ Last edited by 无奈何 on 2006-7-8 at 23:33 ]
作者: IceCrack     时间: 2006-7-14 08:21


  Quote:

  1. @echo off
  2. :start

  4. setlocal ENABLEDELAYEDEXPANSION
  5. :loop_a
  6. del tmp*.txt 2>nul
  7. for /l %%i in (1,1,6) do (
  8.                 echo %random% >nul
  9.                 set /a s%%i=!random:~-1!
  10.                 echo %random% >nul
  11.                 set /a g%%i=!random:~-1!
  12.                 if "!s%%i!"=="0" (set /a _VAR_=!g%%i! / 3) else (set /a _VAR_=!s%%i!!g%%i! / 3)
  13.                 if "!_VAR_:~1,1!"=="" set _VAR_=0!_VAR_!
  14.                
  15.                 findstr /m "!_VAR_!" tmp.txt 2>nul >nul && goto :loop_a
  16.                 if "!_VAR_!"=="00" (echo 33>>tmp.txt) else (echo !_VAR_!>>tmp.txt)
  17. )
  18. sort tmp.txt>tmp1.txt
  19. endlocal


  22. :loop_b

  24. setlocal ENABLEDELAYEDEXPANSION

  26. echo %random% >nul
  27. set /a s=!random:~-1!

  29. echo %random% >nul
  30. set /a g=!random:~-1!
  31.                
  32. if "!s!"=="0" (set /a _VAR_=!g! / 6) else (set /a _VAR_=!s!!g! / 6)
  33. if "!_VAR_:~1,1!"=="" set _VAR_=0!_VAR_!

  35. echo ^|>>tmp1.txt
  36. if "!_VAR_!"=="00" (echo 16>>tmp1.txt) else (echo !_VAR_!>>tmp1.txt)

  38. endlocal



  42. :echo
  43. setlocal ENABLEDELAYEDEXPANSION
  44. for /f %%i in (tmp1.txt) do (
  45.                 set n=%%i
  46.                 set m=!m! !n!
  47. )
  48. del tmp*.txt
  49. cls
  50. echo.
  51. echo.￥1000000000000000000000000000000000000000000.00
  52. echo.
  53. echo. Hitme,双色球必中,号码是 !m!
  54. echo.
  55. echo.￥1000000000000000000000000000000000000000000.00
  56. echo.



  60. :save
  61. set /p x=保留号码至num.txt[y/n]
  62. if /i [%x%]==[y] (echo !m!>>num.txt && endlocal && goto :start) else (endlocal && goto :start)
        IceCrack发表于：  2006-07-14  08:13

呵呵  效果还不错啊  又仔细的玩了一下， 觉得应该是这样的当剪切板上没有数据。且没有参数的情况下，跳转到帮助文件。而且在dos窗口下应该支持 /h /? 以及无参数都跳转到帮助文件。我是这样认为的。

[ Last edited by IceCrack on 2006-7-14 at 08:32 ]
作者: 无奈何     时间: 2006-7-30 23:50
谢谢 IceCrack 兄的建议。更新了一下 Batch2ubb.cmd 到 V0.3 版。有兴趣的朋友可以对比一下老版。
作者: NaturalJ0     时间: 2006-11-2 02:50
这程序太赞了，非常实用，不但好看，理解别人写的代码时条理也清楚多了。
作者: yangzhiyi     时间: 2006-11-2 06:47
好强，以后发贴都用一下
CODE:  [Copy to clipboard] 这个怎么做呢？
作者: redtek     时间: 2006-11-3 00:34
下载以后一使用发现简直太方便了！！！
这个自动给批处理行号的功能非常有意思，要是讨论个某行某段的语句一说行号就行了～：）
作者: lxmxn     时间: 2006-11-27 10:17

　　呵呵。厉害啊~~无奈何兄一发帖就是好帖~顶~
作者: vlq5299     时间: 2006-12-5 03:17
不是十分明白
作者: scriptor     时间: 2006-12-24 02:52    标题: 好厉害！

又解决了我的一个心病啊

赞一个
作者: gl315     时间: 2007-2-2 01:19
先收藏了，再慢慢消化。
作者: heicai     时间: 2007-2-2 13:33

  1. 好创意啊！服了~~~~完全代替软件了
作者: gbaspps     时间: 2007-2-3 08:54
赞一个
作者: ADM     时间: 2007-2-3 09:45
很漂亮啊,谢谢啦:)

从中也能学到不少东西
作者: redtek     时间: 2007-2-6 22:42


  Quote:
Originally posted by IceCrack at 2006-7-13 19:21:

呵呵  效果还不错啊  又仔细的玩了一下， 觉得应该是这样的当剪切板上没有数据。且没有参数的情况下，跳转到帮助文件。而且在dos窗口下应该支持 ...

８楼福彩双色球自动选号代码有意思～：）

那天在看这个帖子，随便试运行了一下这个双色球自动选号代码，……买了，结果2007015期它自动选的号蓝球对上了，中了５块钱，哈哈……
作者: ccwan     时间: 2007-2-6 22:53
真的还是假的？我都跃跃欲试了。
作者: redtek     时间: 2007-2-6 23:09
买了４注（用８楼选号代码自动选的），第３注中了，哈哈……
中了就中了，不中就当捐国家～：）
作者: ccwan     时间: 2007-2-6 23:12
晕！原来还亏了3元呢！本来还想也试试，看能不能中大奖呢！
作者: cqjia633     时间: 2007-2-25 13:37
辛苦，谢谢共享！
作者: gne3     时间: 2007-2-25 22:56
好啊，顶啊
作者: gne3     时间: 2007-2-25 23:05
谢谢，谢谢
作者: htysm     时间: 2007-2-25 23:20
能理解就不错了.
作者: csx163     时间: 2007-2-26 05:31
嗯。。。加上行号的理由是什么呢？
作者: vkill     时间: 2007-3-9 05:44
test

[ Last edited by vkill on 2007-3-9 at 05:48 AM ]
作者: wulalahulala     时间: 2007-8-16 17:31
怎么样才能有几分呢？
作者: wulalahulala     时间: 2007-8-16 17:31
发帖有分哦。。。呵呵，小小灌一下
作者: wulalahulala     时间: 2007-8-16 17:39


  Quote:

  1. 4、建立快捷方式并设定热键调用。
        无奈何发表于：  2007-08-16  17:34

到底什么意思哦
作者: wulalahulala     时间: 2007-8-16 17:40
[quote]
[list=1]
[*]『第 7 楼』:  
[*]
[*]Re fastslz
[*]我添加时间戳记的目的有两个
[*]1、利用戳记中的部分字句作为全文搜索的关键词，来查找自己发过的含有代码的帖子。
[*]2、简单的添加时间标记。
[*]
[*]关于 1 象1楼中单纯使用用户名作标记并不是很明智的做法，因为会搜到很多其他的帖子，所以个性一点的词句效果
作者: xyhs     时间: 2007-9-3 20:20
在网络上看到了楼主的作品，来这里注册了。
今再观之，醍醐灌顶
作者: wel958     时间: 2007-10-24 20:36
正在学习中，。。。。。好东西，呵呵
作者: zxm800515     时间: 2007-10-25 12:23
强~~~~~~~~~~~~~~
作者: luowei14     时间: 2007-10-25 19:14
.....,,强悍,,,顶一个!!
作者: cooray     时间: 2007-11-24 09:50
强啊,顶上去,仰望+学习中~
作者: myssol     时间: 2007-11-24 23:35
学习受教了！~
作者: zhbdbb     时间: 2007-12-11 15:52
Batch2ubb_V0.3.zip

是不是更新的啊
作者: ghostry     时间: 2008-1-7 09:16
不错不错。。好东西。。
作者: yuehong     时间: 2008-3-5 23:18
强人一个.学习下
作者: yxt     时间: 2008-11-19 10:31
现在看到的批处理很少用行号了，其实有了行号在交流时要方便得多，呼吁大家的作品均写上行号