给PROE的清理加上后缀归1的功能

yenanjsjincen

--------------------------------------------
自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版本。
===================
现在要检查一下，精诚网总是被偶的广告过滤优化掉。不能通过滑动验证。

walkingon*

感谢大神楼主的无私分享！

代号飞龙

膜拜懂编程的大神

czz5717565

谢谢分享！

found_zhang

真是玩的高！最后一箱功能才是最需要。复制下研究研究。

key20100

感谢大神楼主的无私分享！

creo20170601

大赞楼主！

ren_35

感谢大神楼主的无私分享！

pengjiahuang

学习学习，感觉好牛逼的！！！

103241765

还可以吗