个人软件收集整理工具 - 中国DOS联盟论坛

　　献丑了，自制的“个人软件收集整理工具”。
　　平时我有收集软件的习惯，网上有新版本的绿色软件更新了我都会去下载来收藏，以备不时之需。而每次下载软件来对里面的一些垃圾广告文件深恶痛绝，每次都要将他们删之干净，然后再重新打包起来收藏。
　　一个压缩包还好，每天对这些包包做同样的重复劳动那可真太累人了。于是我动脑筋做出了这个批处理东东。发上来方便给那些同样有此爱好的网友们。

@echo off
title 个人软件收集整理工具
color 7c
mode con cols=72 lines=4 
::此部分说明或许含有真正说明内容，将询问如何对其操作
if not exist Readme.TXT goto 1N
:1select
cls
echo.
SET Choice=
SET /P Choice=　对"Readme.TXT"文件如何操作。查看内容请按T，删除请按D，跳过请按N :
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='T' GOTO 1T
IF /I '%Choice%'=='D' GOTO 1D
IF /I '%Choice%'=='N' GOTO 1N
IF /I '%Choice%'=='' GOTO 1select
:1T
Readme.txt
:1D
del Readme.txt
:1N

if not exist 使用说明.TXT goto 2N
:2select
cls
echo.
SET Choice=
SET /P Choice=　对"使用说明.TXT"文件如何操作。查看内容请按T，删除请按D，跳过请按N :
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='T' GOTO 2T
IF /I '%Choice%'=='D' GOTO 2D
IF /I '%Choice%'=='N' GOTO 2N
IF /I '%Choice%'=='' GOTO 2select
:2T
使用说明.txt
:2D
del 使用说明.txt
:2N

::此部分文件作为广告文件处理，直接删除掉。
del 绿盟.url 2>nul
del help.htm 2>nul
del 1001下载乐园 2>nul
del Readme.htm 2>nul
del 会员服务.txt 2>nul
del 3800HK.jpg 2>nul
del 3800hk.com.url 2>nul
del ##请注意##.txt 2>nul
del 77169.org软件说明.htm 2>nul
del 77169.org使用帮助说明.txt 2>nul
del 华夏黑客同盟.url 2>nul
del 07年VIP火爆培训课.txt 2>nul
del 网络攻防年会员(超实惠价).txt 2>nul
del 07年最新VIP教学课程.url 2>nul
del 新世纪网安培训基地.url 2>nul


::询问是否自己建一个"说明.TXT"文件，用来存放说明内容。
:select
cls
echo.
SET Choice=
SET /P Choice=　是否建"说明.TXT"文件？新建请按M，跳过请按N :
IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1%
IF /I '%Choice%'=='M' GOTO sM
IF /I '%Choice%'=='N' GOTO sN
IF /I '%Choice%'=='' GOTO select

:sM
call >>说明.txt
说明.txt
del %0


:sN
del 说明.txt
del %0

第1楼　heicai	发表于 2007-03-16 02:27
中级用户　发帖 156　积分 385
个人软件收集整理工具　　献丑了，自制的“个人软件收集整理工具”。　　平时我有收集软件的习惯，网上有新版本的绿色软件更新了我都会去下载来收藏，以备不时之需。而每次下载软件来对里面的一些垃圾广告文件深恶痛绝，每次都要将他们删之干净，然后再重新打包起来收藏。　　一个压缩包还好，每天对这些包包做同样的重复劳动那可真太累人了。于是我动脑筋做出了这个批处理东东。发上来方便给那些同样有此爱好的网友们。 @echo off title 个人软件收集整理工具 color 7c mode con cols=72 lines=4 ::此部分说明或许含有真正说明内容，将询问如何对其操作 if not exist Readme.TXT goto 1N :1select cls echo. SET Choice= SET /P Choice=　对"Readme.TXT"文件如何操作。查看内容请按T，删除请按D，跳过请按N : IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1% IF /I '%Choice%'=='T' GOTO 1T IF /I '%Choice%'=='D' GOTO 1D IF /I '%Choice%'=='N' GOTO 1N IF /I '%Choice%'=='' GOTO 1select :1T Readme.txt :1D del Readme.txt :1N if not exist 使用说明.TXT goto 2N :2select cls echo. SET Choice= SET /P Choice=　对"使用说明.TXT"文件如何操作。查看内容请按T，删除请按D，跳过请按N : IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1% IF /I '%Choice%'=='T' GOTO 2T IF /I '%Choice%'=='D' GOTO 2D IF /I '%Choice%'=='N' GOTO 2N IF /I '%Choice%'=='' GOTO 2select :2T 使用说明.txt :2D del 使用说明.txt :2N ::此部分文件作为广告文件处理，直接删除掉。 del 绿盟.url 2>nul del help.htm 2>nul del 1001下载乐园 2>nul del Readme.htm 2>nul del 会员服务.txt 2>nul del 3800HK.jpg 2>nul del 3800hk.com.url 2>nul del ##请注意##.txt 2>nul del 77169.org软件说明.htm 2>nul del 77169.org使用帮助说明.txt 2>nul del 华夏黑客同盟.url 2>nul del 07年VIP火爆培训课.txt 2>nul del 网络攻防年会员(超实惠价).txt 2>nul del 07年最新VIP教学课程.url 2>nul del 新世纪网安培训基地.url 2>nul ::询问是否自己建一个"说明.TXT"文件，用来存放说明内容。 :select cls echo. SET Choice= SET /P Choice=　是否建"说明.TXT"文件？新建请按M，跳过请按N : IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1% IF /I '%Choice%'=='M' GOTO sM IF /I '%Choice%'=='N' GOTO sN IF /I '%Choice%'=='' GOTO select :sM call >>说明.txt 说明.txt del %0 :sN del 说明.txt del %0 附件建说明.rar (831 bytes)

第2楼　lxmxn	发表于 2007-03-16 02:45
版主　发帖 4,938　积分 11,386
*不错，但有很多地方值得改进一下的，以简化代码，比如可以"del .url 2>nul"来代替多行del命令，del %0加上引号比较好，del "%0"。**

第3楼　HUNRYBECKY	发表于 2007-03-16 04:56
银牌会员　发帖 442　积分 1,179
因为都是压缩包,建议直接对压缩包进行操作,使用 RAR D命令比较简单,不用写那么长的批处理.如果对RAR命令不熟悉,参考的"RAR笔记": http://www.cn-dos.net/forum/viewthread.php?tid=27657&fpage=1&highlight=rar%2B%E7%AC%94%E8%AE%B0

第4楼　jasonwang	发表于 2007-03-16 05:12
初级用户　发帖 54　积分 122
要是禁止修改的rar呢?用这个不管用吧.

第5楼　heicai	发表于 2007-03-16 05:24
中级用户　发帖 156　积分 385
Originally posted by HUNRYBECKY at 2007-3-15 03:56 PM: 因为都是压缩包,建议直接对压缩包进行操作,使用 RAR D命令比较简单,不用写那么长的批处理.如果对RAR命令不熟悉,参考的"RAR笔记": http://w ... 十分感谢你的建议。期待更好的建议

第6楼　HUNRYBECKY	发表于 2007-03-16 05:34
银牌会员　发帖 442　积分 1,179
RAR只提供了K命令或参数来锁定压缩包，但没有相应的反解缩的命令，所以比较麻烦一点，可以使用RAR X命令解压缩，完成删除后使用RAR A重新打包压缩。