中国DOS联盟

1. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   
2. 
   
3. :: Batch2ubb.cmd -V0.30 -- 批处理转 UBB 代码
   
4. 
   
5. :: 无奈何@cn-dos.net - 更新于：2005-7-30 - CMD & GAWK
   
6. 
   
7. :: 用法：Batch2ubb
   
8. 
   
9. :: 支持文件: - gawk.exe winclip.exe Batch2ubb.awk batch.esy
   
10. 
    
11. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
    
12. 
    
13. 
    
14. 
    
15. @echo off
    
16. 
    
17. setlocal
    
18. 
    
19. set path=%path%;%cd%;%~dp0
    
20. 
    
21. set error=
    
22. 
    
23. rem 文件完整性检查。
    
24. 
    
25. for %%i in (gawk.exe winclip.exe batch.esy batch2ubb.awk) do (
    
26. 
    
27. @if "%%~$PATH:i" == "" (
    
28. 
    
29. echo 错误：程序所依赖文件 "%%i" 缺失。
    
30. 
    
31. set error=错误：程序文件不完整。
    
32. 
    
33. ) else ( set %%~ni="%%~$PATH:i" )
    
34. 
    
35. )
    
36. 
    
37. if defined error goto error
    
38. 
    
39. 
    
40. 
    
41. rem 测试剪贴板数据类型。
    
42. 
    
43. winclip -i |findstr /r ".*_.*TEXT" >nul
    
44. 
    
45. if ERRORLEVEL 1 set error=错误：剪贴板为空或内容为非文字数据！
    
46. 
    
47. 
    
48. 
    
49. rem 空参数调用获得剪贴板数据，将转换结果复制到剪贴板。
    
50. 
    
51. if "%~1" == "" (
    
52. 
    
53. if defined error goto error
    
54. 
    
55. winclip -p |gawk -v line=1 -f %Batch2ubb% |winclip -c
    
56. 
    
57. goto end
    
58. 
    
59. )
    
60. 
    
61. rem 只有一个参数时尝试作为输入文件处理，当其不存在时作参数处理。
    
62. 
    
63. if "%~2" == "" (
    
64. 
    
65. if exist "%~1" (
    
66. 
    
67. gawk -v line=1 -f %Batch2ubb% "%~1" |winclip -c
    
68. 
    
69. goto end
    
70. 
    
71. )
    
72. 
    
73. )
    
74. 
    
75. set line=1
    
76. 
    
77. set input=
    
78. 
    
79. set out=
    
80. 
    
81. 
    
82. 
    
83. :ParseLoop
    
84. 
    
85. if "%~1" == "" goto Start
    
86. 
    
87. if "%~1" == "/?" goto SwitchH
    
88. 
    
89. rem 参数处理并转到相应标签。
    
90. 
    
91. for %%s in (i I n N o O h H) do if "%~1"=="/%%s" goto Switch%%s
    
92. 
    
93. set error=错误: 参数格式不正确 - "%1"!
    
94. 
    
95. goto error
    
96. 
    
97. 
    
98. 
    
99. :SwitchI
    
100. 
     
101. set "input=%~2"
     
102. 
     
103. if not exist "%input%" set error=警告：文件 "%input%" 不存在。 & goto error
     
104. 
     
105. goto Next2Arg
     
106. 
     
107. 
     
108. 
     
109. :SwitchO
     
110. 
     
111. set "out=%~2"
     
112. 
     
113. if not defined out set error=警告：请指定输出文件。 & goto error
     
114. 
     
115. goto Next2Arg
     
116. 
     
117. 
     
118. 
     
119. :SwitchN
     
120. 
     
121. set line=0
     
122. 
     
123. goto NextArg
     
124. 
     
125. 
     
126. 
     
127. :Next2Arg
     
128. 
     
129. shift
     
130. 
     
131. :NextArg
     
132. 
     
133. shift
     
134. 
     
135. goto ParseLoop
     
136. 
     
137. 
     
138. 
     
139. rem 不同参数分类判断处理。
     
140. 
     
141. :Start
     
142. 
     
143. if defined input (
     
144. 
     
145. if defined out (
     
146. 
     
147. gawk -v line=%line% -f %Batch2ubb% "%input%" >"%out%"
     
148. 
     
149. ) else (
     
150. 
     
151. gawk -v line=%line% -f %Batch2ubb% "%input%" |winclip -c
     
152. 
     
153. )
     
154. 
     
155. ) else (
     
156. 
     
157. if defined out (
     
158. 
     
159. if defined error goto error
     
160. 
     
161. winclip -p |gawk -v line=%line% -f %Batch2ubb% >"%out%"
     
162. 
     
163. ) else (
     
164. 
     
165. if defined error goto error
     
166. 
     
167. winclip -p |gawk -v line=0 -f %Batch2ubb% |winclip -c
     
168. 
     
169. )
     
170. 
     
171. )
     
172. 
     
173. goto end
     
174. 
     
175. 
     
176. 
     
177. :error
     
178. 
     
179. echo.%error%
     
180. 
     
181. echo.
     
182. 
     
183. :SwitchH
     
184. 
     
185. echo.批处理转 UBB 代码。
     
186. 
     
187. echo.Batch2ubb
     
188. 
     
189. echo.
     
190. 
     
191. echo. /i 指定转换的文件，可包含路径，缺省从剪贴板获得。
     
192. 
     
193. echo. /o 指定输出的文件，可包含路径，缺省输出到剪贴板。
     
194. 
     
195. echo. /n 生成无行号的 UBB 代码，缺省带行号。
     
196. 
     
197. echo. /h 显示本简短帮助，等价命令 /?。
     
198. 
     
199. echo. 本程序执行依赖以下文件 gawk.exe winclip.exe Batch2ubb.awk batch.esy。
     
200. 
     
201. echo.
     
202. 
     
203. :end
     
204. 
     

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

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

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





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