UG爱好者

标题: 给PROE的清理加上后缀归1的功能 [打印本页]

作者: yenanjsjincen 时间: 2017-10-24 13:29
标题: 给PROE的清理加上后缀归1的功能
本帖最后由 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:

作者: walkingon* 时间: 2017-10-24 14:15
感谢大神楼主的无私分享！

作者: 代号飞龙 时间: 2017-10-24 16:44
膜拜懂编程的大神

作者: czz5717565 时间: 2017-10-25 09:30
谢谢分享！

作者: found_zhang 时间: 2017-10-25 11:30
真是玩的高！最后一箱功能才是最需要。复制下研究研究。

作者: key20100 时间: 2017-11-5 18:53
感谢大神楼主的无私分享！

作者: creo20170601 时间: 2017-11-21 13:49
大赞楼主！

作者: ren_35 时间: 2017-12-13 07:32

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

作者: pengjiahuang 时间: 2019-6-21 13:04
学习学习，感觉好牛逼的！！！

作者: 103241765 时间: 2022-5-24 17:57
还可以吗

作者: 冷露无声 时间: 2022-5-25 17:06
大神，超经典的，顶顶顶

作者: wo5068056 时间: 2024-2-19 16:49
感谢大佬的分享！

欢迎光临 UG爱好者 (https://www.ugsnx.com/)