1. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   
2. :: Batch2ubb.cmd -V0.30 -- 批处理转 UBB 代码
   
3. :: 无奈何@cn-dos.net - 更新于：2005-7-30 - CMD & GAWK
   
4. :: 用法：Batch2ubb
   
5. :: 支持文件: - gawk.exe winclip.exe Batch2ubb.awk batch.esy
   
6. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   
7. 
   
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
    
20. 
    
21. rem 测试剪贴板数据类型。
    
22. winclip -i |findstr /r ".*_.*TEXT" >nul
    
23. if ERRORLEVEL 1 set error=错误：剪贴板为空或内容为非文字数据！
    
24. 
    
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=
    
41. 
    
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
    
49. 
    
50. :SwitchI
    
51. set "input=%~2"
    
52. if not exist "%input%" set error=警告：文件 "%input%" 不存在。 & goto error
    
53. goto Next2Arg
    
54. 
    
55. :SwitchO
    
56. set "out=%~2"
    
57. if not defined out set error=警告：请指定输出文件。 & goto error
    
58. goto Next2Arg
    
59. 
    
60. :SwitchN
    
61. set line=0
    
62. goto NextArg
    
63. 
    
64. :Next2Arg
    
65. shift
    
66. :NextArg
    
67. shift
    
68. goto ParseLoop
    
69. 
    
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
    
88. 
    
89. :error
    
90. echo.%error%
    
91. echo.
    
92. :SwitchH
    
93. echo.批处理转 UBB 代码。
    
94. echo.Batch2ubb
    
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 -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 "
"

}

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 >.\001\VERSION.INF
   
8. echo %Version%%NO%>>.\001\VERSION.INF
   
9. echo UpdateDate%DATENO%>>.\001\VERSION.INF
   

DOS一跟葱 2006-07-06 13:46

1. @echo off
   
2. :start
   
3. 
   
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
    
20. 
    
21. 
    
22. :loop_b
    
23. 
    
24. setlocal ENABLEDELAYEDEXPANSION
    
25. 
    
26. echo %random% >nul
    
27. set /a s=!random:~-1!
    
28. 
    
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_!
    
34. 
    
35. echo ^|>>tmp1.txt
    
36. if "!_VAR_!"=="00" (echo 16>>tmp1.txt) else (echo !_VAR_!>>tmp1.txt)
    
37. 
    
38. endlocal
    
39. 
    
40. 
    
41. 
    
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.
    
57. 
    
58. 
    
59. 
    
60. :save
    
61. set /p x=保留号码至num.txt
    
62. if /i %x%]== (echo !m!>>num.txt && endlocal && goto :start) else (endlocal && goto :start)
    

IceCrack发表于： 2006-07-14 08:13

1. 好创意啊！服了~~~~完全代替软件了
   

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

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

1. 4、建立快捷方式并设定热键调用。
   

无奈何发表于： 2007-08-16 17:34