|
|
本帖最后由 yenanjsjincen 于 2017-10-24 19:10 编辑
--------------------------------------------
自N年前偶发了一个清理PROE旧版本的小程序到网上后，现已是百花齐放。后又发了一个右键清理。已是PROE2001时代的事了。
--------------------------------------------
功能一：给PROE 的窗口命令 的PURGE 加上 后缀归为1。
效果：按下清理后，PURGE自动清理垃圾文件，旧版文件，再把后面的序号改为1。集成到CONFIG.PRO中。代码如下：
mapkey $F12 @SYSTEMpurge & del /q *.out *.sec.* *.acc.* *.err *.inf.* \
mapkey(continued) *.crc.* *.log.* *.lst *.m_p *.pic *.pls *error.* *log.xml trail.txt* \
mapkey(continued) *.ers* current_session.pro* *.bak.* \
mapkey(continued) & call D:\\Proe\\Proe_Config\\SHARE\\Basic\\改后缀为1.bat;
把上面的代码复制到你的CONFIG.PRO中。在PROE窗口中按下F12就会对当前工作目录进行清理。
紫色部分改为你放置BAT的实际文件位置。紫色部分代码如下：
@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir/a-d/b "%1"') do (
set "Ext=%%~xa"
set "Ext=!Ext:.=!"
echo !Ext!|findstr "^[0-9]*$" >nul&&set "Number=true"
if /i "!Number!"=="true" (
if /i "!Ext!" neq "1" (
ren "%%a" "%%~na.1"))
set "Number="
)
把上面的代码复制到文本文件并改为【改后缀为1.BAT】文件。编码格式为 ANSI。不能用utf-8。注意路径\\符号。
功能二、把这些功能集成到鼠标右键上
这里只给代码，不发操作过程了，原理同上：
代码：
@echo off&setlocal enabledelayedexpansion
:: UAC
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (echo 请求管理员权限...
goto UACPrompt) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: 添加右键清理旧文件
reg add hkcr\Directory\shell\purge /ve /d "清除 CREO 旧版本文件" /f
reg add hkcr\Directory\shell\purge\command /ve /t REG_SZ /d "cmd /c cd \"%%1\" & \"%ProeDir%\bin\purge.bat\" * & del /s /q *.out & del /s /q *.sec.*& del /s /q *.acc.* & del /s /q *.err & del /q *.inf.* & del /s /q *.crc.* & del /s /q *.log.* & del /s /q *.lst & del /s /q *.m_p & del /s /q *.pic & del /s /q *.pls & del /s /q *error.txt& del /s /q *current_session.pro*& del /s /q trail.txt*& del /s /q *.ers &cmd /c call \"D:\Proe\Proe_Config\SHARE\Basic\改后缀为1.bat\""; /f
:: 为右键添加图标
reg add hkcr\Directory\shell\purge /v Icon /d "%ProeDir%\install\nt\creologo.ico,0" /f
pause
红色部分为purge的实际目录，紫色为bat的实际目录，黄色为要添加的图标的目录和文件名。因为偶的批处理是自动识别的，所以是%%. 上面的代码中删除了自动识别部分。需手工添加。
功能三、不用purge 命令，纯用windows命令 集成到PROE窗口和鼠标右键。
暂不公布 :) 效果 对文件夹内和该文件夹内的所有子目录一同清理并后缀归1 。
============================================
第一个右键清理应该是偶首发，不过那时偶对它稍为加了点壳。现在不加壳，不加密。欢迎大家对代码优化。
大家可以在代码中加入回显。就可以看到删了哪些文件，改了哪些文件。也可以加入扩展，如需按shift才能显示。避免误按。
欢迎拍砖。首次对以前的源代码更新。以前只有XP系统。现在已测试所有的系统和目前的所有PROE版本。
===================:D
现在要检查一下，精诚网总是被偶的广告过滤优化掉。不能通过滑动验证。
:time::time:
|
| 版权声明 |
|
|
本人声明此帖为本人原创帖，未经允许，不得转载！
|
|
发表于 2017-10-24 13:29:11
收藏
支持
反对
发表于 2017-10-24 14:15:57
