批处理代码发帖着色脚本 Batch2ubb（CMD & GAWK） - 中国DOS联盟论坛

批处理代码发帖着色脚本 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

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

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

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

:: 用法：Batch2ubb

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

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

@echo off

setlocal

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

set error=

rem 文件完整性检查。

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

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

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

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

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

)

if defined error goto error

rem 测试剪贴板数据类型。

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

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

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

if "%~1" == "" (

if defined error goto error

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

goto end

)

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

if "%~2" == "" (

if exist "%~1" (

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

goto end

)

)

set line=1

set input=

set out=

:ParseLoop

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

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

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

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

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

goto error

:SwitchI

set "input=%~2"

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

goto Next2Arg

:SwitchO

set "out=%~2"

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

goto Next2Arg

:SwitchN

set line=0

goto NextArg

:Next2Arg

shift

:NextArg

shift

goto ParseLoop

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

:Start

if defined input (

if defined out (

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

) else (

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

)

) else (

if defined out (

if defined error goto error

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

) else (

if defined error goto error

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

)

)

goto end

:error

echo.%error%

echo.

:SwitchH

echo.批处理转 UBB 代码。

echo.Batch2ubb

echo.

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

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

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

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

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

echo.

: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!~/^*;/ && $0!~/^$/) {
			if ($0~/^*#LINECOMMENT=/){
				LineComment=substr($0,index($0,"=")+1)
			} else if ($0~/^*#VARIABLE=/){
				Variable=substr($0,index($0,"=")+1)
			} else if ($0~/^*#PARAMETER=/){
				Parameter=substr($0,index($0,"=")+1)
			} else if ($0~/^*#LABEL=/){
				Label=substr($0,index($0,"=")+1)
			} else if ($0~/^*#KEYWORD/){
				color=substr($0,index($0,"=")+1)
			} else {
					keyword=color
			}
		}
	}
	print ""
	if (line) print ""
}
#主程序开始
{
	before=""
	after=""
	#处理注释行及标签行
	if (($0~/^*::/) || ($0~/^*REM\>/)){
		gsub(/=.*]/,"=" LineComment "]",before)
		$0=before $0 after
	}else if ($0~/^*:+/){
		gsub(/=.*]/,"=" Label "]",before)
		$0=before $0 after
	} else {
		temp=$0
		#分割出关键字
		gsub(/+/,"□",temp)
		gsub(/(^□|□$)/,"",temp)
		len=split(temp,word,"□+")
		for (i=1;i<=len;i++){
			# COLOR 关键字与 UBB 颜色字符重叠，单独处理
			if (word~/COLOR/){
				if(!fcolor){
					gsub(/=.*]/,"=" keyword "]",before)
					gsub("\\<" word "\\>",before "&" after,$0)
					delete word
					fcolor=1
				} else
					delete word
			}
			#删除重复关键字
			for (j=i+1;j<=len;j++){
				if (word==word)
					delete word
			}
		}

		for (i=1;i<=len;i++){
			for (aa in keyword){
				if (aa==toupper(word)){
					gsub(/=.*]/,"=" keyword "]",before)
					gsub("\\<" word "\\>",before "&" after,$0)
				}
			}
		}
		#处理变量及命令参数等细节部分
		gsub(/=.*]/,"=" Variable "]",before)
		gsub (/%+*%?/,before "&" after,$0)
		gsub (/!+*!*/,before "&" after,$0)
		gsub(/=.*]/,"=" Parameter "]",before)
		gsub (/ \/+/,before "&" after,$0)
		gsub (/(\(|\))/,"&",$0)
		gsub (/(\")/,"&",$0)
	}
	if (line) print "" $0
	else print $0
}
END {
	if (line) printf ""
	#添加时间戳自行修改作者名
	print "" strftime("\t无奈何发表于：  %Y-%m-%d  %H:%M") ""
	print ""
}

所有文件打包下载见附件：

[ Last edited by 无奈何 on 2006-7-30 at 23:53 ]

第1楼　无奈何	发表于 2006-07-03 20:16
荣誉版主　发帖 356　积分 1,338
[原创]批处理代码发帖着色脚本 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 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: :: Batch2ubb.cmd -V0.30 -- 批处理转 UBB 代码 :: 无奈何@cn-dos.net - 更新于：2005-7-30 - CMD & GAWK :: 用法：Batch2ubb :: 支持文件: - gawk.exe winclip.exe Batch2ubb.awk batch.esy ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: @echo off setlocal set path=%path%;%cd%;%~dp0 set error= rem 文件完整性检查。 for %%i in (gawk.exe winclip.exe batch.esy batch2ubb.awk) do ( @if "%%~$PATH:i" == "" ( echo 错误：程序所依赖文件 "%%i" 缺失。 set error=错误：程序文件不完整。 ) else ( set %%~ni="%%~$PATH:i" ) ) if defined error goto error rem 测试剪贴板数据类型。 winclip -i \|findstr /r "._.TEXT" >nul if ERRORLEVEL 1 set error=错误：剪贴板为空或内容为非文字数据！ rem 空参数调用获得剪贴板数据，将转换结果复制到剪贴板。 if "%~1" == "" ( if defined error goto error winclip -p \|gawk -v line=1 -f %Batch2ubb% \|winclip -c goto end ) rem 只有一个参数时尝试作为输入文件处理，当其不存在时作参数处理。 if "%~2" == "" ( if exist "%~1" ( gawk -v line=1 -f %Batch2ubb% "%~1" \|winclip -c goto end ) ) set line=1 set input= set out= :ParseLoop if "%~1" == "" goto Start if "%~1" == "/?" goto SwitchH rem 参数处理并转到相应标签。 for %%s in (i I n N o O h H) do if "%~1"=="/%%s" goto Switch%%s set error=错误: 参数格式不正确 - "%1"! goto error :SwitchI set "input=%~2" if not exist "%input%" set error=警告：文件 "%input%" 不存在。 & goto error goto Next2Arg :SwitchO set "out=%~2" if not defined out set error=警告：请指定输出文件。 & goto error goto Next2Arg :SwitchN set line=0 goto NextArg :Next2Arg shift :NextArg shift goto ParseLoop rem 不同参数分类判断处理。 :Start if defined input ( if defined out ( gawk -v line=%line% -f %Batch2ubb% "%input%" >"%out%" ) else ( gawk -v line=%line% -f %Batch2ubb% "%input%" \|winclip -c ) ) else ( if defined out ( if defined error goto error winclip -p \|gawk -v line=%line% -f %Batch2ubb% >"%out%" ) else ( if defined error goto error winclip -p \|gawk -v line=0 -f %Batch2ubb% \|winclip -c ) ) goto end :error echo.%error% echo. :SwitchH echo.批处理转 UBB 代码。 echo.Batch2ubb echo. echo. /i 指定转换的文件，可包含路径，缺省从剪贴板获得。 echo. /o 指定输出的文件，可包含路径，缺省输出到剪贴板。 echo. /n 生成无行号的 UBB 代码，缺省带行号。 echo. /h 显示本简短帮助，等价命令 /?。 echo. 本程序执行依赖以下文件 gawk.exe winclip.exe Batch2ubb.awk batch.esy。 echo. :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!~/^;/ && $0!~/^$/) { if ($0~/^#LINECOMMENT=/){ LineComment=substr($0,index($0,"=")+1) } else if ($0~/^#VARIABLE=/){ Variable=substr($0,index($0,"=")+1) } else if ($0~/^#PARAMETER=/){ Parameter=substr($0,index($0,"=")+1) } else if ($0~/^#LABEL=/){ Label=substr($0,index($0,"=")+1) } else if ($0~/^#KEYWORD/){ color=substr($0,index($0,"=")+1) } else { keyword=color } } } print "" if (line) print "" } #主程序开始 { before="" after="" #处理注释行及标签行 if (($0~/^::/) \|\| ($0~/^REM\>/)){ gsub(/=.]/,"=" LineComment "]",before) $0=before $0 after }else if ($0~/^:+/){ gsub(/=.]/,"=" Label "]",before) $0=before $0 after } else { temp=$0 #分割出关键字 gsub(/+/,"□",temp) gsub(/(^□\|□$)/,"",temp) len=split(temp,word,"□+") for (i=1;i<=len;i++){ # COLOR 关键字与 UBB 颜色字符重叠，单独处理 if (word~/COLOR/){ if(!fcolor){ gsub(/=.]/,"=" keyword "]",before) gsub("\\<" word "\\>",before "&" after,$0) delete word fcolor=1 } else delete word } #删除重复关键字 for (j=i+1;j<=len;j++){ if (word==word) delete word } } for (i=1;i<=len;i++){ for (aa in keyword){ if (aa==toupper(word)){ gsub(/=.]/,"=" keyword "]",before) gsub("\\<" word "\\>",before "&" after,$0) } } } #处理变量及命令参数等细节部分 gsub(/=.]/,"=" Variable "]",before) gsub (/%+%?/,before "&" after,$0) gsub (/!+!/,before "&" after,$0) gsub(/=.]/,"=" Parameter "]",before) gsub (/ \/+/,before "&" after,$0) gsub (/(\(\|\))/,"&",$0) gsub (/(\")/,"&",$0) } if (line) print "" $0 else print $0 } END { if (line) printf "" #添加时间戳自行修改作者名 print "" strftime("\t无奈何发表于： %Y-%m-%d %H:%M") "" print "" } 所有文件打包下载见附件： [ Last edited by 无奈何 on 2006-7-30 at 23:53 ] 附件 Batch2ubb.zip (145.3 KiB) Batch2ubb_V0.3.zip (145.46 KiB)

第2楼　220110	发表于 2006-07-04 09:47
荣誉版主　发帖 313　积分 718
re 无奈何 Batch2ubb.cmd 是否漏了 endlocal ? 怪不得这两天见你的贴子充满着色彩,我心想无奈何你不会无奈何到这样玩吧,哈哈,原来还有这必杀技,有创意!顶.. [ Last edited by 220110 on 2006-7-4 at 09:49 ]

第3楼　无奈何	发表于 2006-07-04 21:22
荣誉版主　发帖 356　积分 1,338
Re 220110 哈哈，无奈中多一点色彩。^_^ endlocal 并非漏掉，因为在批处理结束处暗含一个 endlocal 命令，所以 endlocal 可以省略。如果含有多段 setlocal 的话加上结束环境更改是必要的。

第4楼　fastslz	发表于 2006-07-06 13:59
铂金会员　发帖 2,315　积分 5,493　来自上海
@echo off set Version=VIRDEFVER find /i virusdb.cfg "%Version%" if not errorlevel 1 set Version=VersionNo for /F "tokens=1 delims=VIRDEFVER " %%A in ('find /i .\Rav\virusdb.cfg "VIRDEFVER"') do set No=%%A for /F "tokens=1 delims=VIRDEFUPDATEDATE " %%B in ('find /i .\Rav\virusdb.cfg "VIRDEFUPDATEDATE"') do set DATENO=%%B echo >.\001\VERSION.INF echo %Version%%NO%>>.\001\VERSION.INF echo UpdateDate%DATENO%>>.\001\VERSION.INF DOS一跟葱 2006-07-06 13:46 老大怎么签名字体是白的？

第5楼　zhaxi	发表于 2006-07-06 19:10
初级用户　发帖 40　积分 112
不明白如何使用。

第6楼　doscc	发表于 2006-07-06 21:10
中级用户　发帖 93　积分 256　来自广东
强人一个.好好学习

第7楼　无奈何	发表于 2006-07-08 16:48
荣誉版主　发帖 356　积分 1,338
Re fastslz 我添加时间戳记的目的有两个 1、利用戳记中的部分字句作为全文搜索的关键词，来查找自己发过的含有代码的帖子。 2、简单的添加时间标记。关于 1 象1楼中单纯使用用户名作标记并不是很明智的做法，因为会搜到很多其他的帖子，所以个性一点的词句效果会好一些。关于为什么选择白色的，只是希望更含蓄一些，当然可以根据自己的喜好更改为更顺心的颜色。 Re zhaxi 如果觉得设置快捷方式比较复杂，可以直接从命令行中调用。更简单的方法是将要发帖的批处理代码拷贝到剪贴板，双击运行 Batch2ubb.cmd ，然后就可以粘贴转换后的代码了。我更新了一下，并且多添加了一些说明。 [ Last edited by 无奈何 on 2006-7-8 at 23:33 ]

第8楼　IceCrack	发表于 2006-07-14 08:21
中级用户　发帖 168　积分 332　来自天涯
@echo off :start setlocal ENABLEDELAYEDEXPANSION :loop_a del tmp.txt 2>nul for /l %%i in (1,1,6) do ( echo %random% >nul set /a s%%i=!random:~-1! echo %random% >nul set /a g%%i=!random:~-1! if "!s%%i!"=="0" (set /a _VAR_=!g%%i! / 3) else (set /a _VAR_=!s%%i!!g%%i! / 3) if "!_VAR_:~1,1!"=="" set _VAR_=0!_VAR_! findstr /m "!_VAR_!" tmp.txt 2>nul >nul && goto :loop_a if "!_VAR_!"=="00" (echo 33>>tmp.txt) else (echo !_VAR_!>>tmp.txt) ) sort tmp.txt>tmp1.txt endlocal :loop_b setlocal ENABLEDELAYEDEXPANSION echo %random% >nul set /a s=!random:~-1! echo %random% >nul set /a g=!random:~-1! if "!s!"=="0" (set /a _VAR_=!g! / 6) else (set /a _VAR_=!s!!g! / 6) if "!_VAR_:~1,1!"=="" set _VAR_=0!_VAR_! echo ^\|>>tmp1.txt if "!_VAR_!"=="00" (echo 16>>tmp1.txt) else (echo !_VAR_!>>tmp1.txt) endlocal :echo setlocal ENABLEDELAYEDEXPANSION for /f %%i in (tmp1.txt) do ( set n=%%i set m=!m! !n! ) del tmp.txt cls echo. echo.￥1000000000000000000000000000000000000000000.00 echo. echo. Hitme,双色球必中,号码是 !m! echo. echo.￥1000000000000000000000000000000000000000000.00 echo. :save set /p x=保留号码至num.txt if /i [%x%]== (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 ]

第9楼　无奈何	发表于 2006-07-30 23:50
荣誉版主　发帖 356　积分 1,338
谢谢 IceCrack 兄的建议。更新了一下 Batch2ubb.cmd 到 V0.3 版。有兴趣的朋友可以对比一下老版。

第10楼　NaturalJ0	发表于 2006-11-02 02:50
银牌会员　发帖 533　积分 1,181
这程序太赞了，非常实用，不但好看，理解别人写的代码时条理也清楚多了。

第11楼　yangzhiyi	发表于 2006-11-02 06:47
中级用户　发帖 123　积分 261
好强，以后发贴都用一下 CODE: [Copy to clipboard] 这个怎么做呢？

第12楼　redtek	发表于 2006-11-03 00:34
金牌会员　发帖 1,147　积分 2,902
下载以后一使用发现简直太方便了！！！这个自动给批处理行号的功能非常有意思，要是讨论个某行某段的语句一说行号就行了～：）

第13楼　lxmxn	发表于 2006-11-27 10:17
版主　发帖 4,938　积分 11,386
呵呵。厉害啊~~无奈何兄一发帖就是好帖~顶~

第14楼　vlq5299	发表于 2006-12-05 03:17
初级用户　发帖 59　积分 136
不是十分明白

第15楼　scriptor	发表于 2006-12-24 02:52
银牌会员　发帖 555　积分 1,187
好厉害！又解决了我的一个心病啊赞一个