中国DOS联盟

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 -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]"
}

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

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_!
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!
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