找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 21433|回复: 2

[文本处理] [已解决]批处理压缩当前文件夹的所有PNG档并以文件夹中指定后缀名之前缀名加字来命名

[复制链接]
发表于 2015-2-1 02:12:06 | 显示全部楼层 |阅读模式
本帖最后由 bluck2008 于 2015-2-2 06:01 编辑

右键单击可执行的BAT档
麻烦大师们帮名解决工作上的小困扰!万分感谢~
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
压缩当前文件夹的所有PNG档
且在当前文件夹选择唯一一个PDF档前缀名_PNG.RAR(超过两个PDF则不进行压缩)
例如:
当前文件夹中有
001.PNG
002.PNG
003.PNG
004.PNG
005.PNG
006.PNG
007.PNG
008.PNG
009.PNG
010.PNG
.
.
.
.
.
.

20150201-2.PDF
20150201-5.DOC
20150201-7.XLS
20150201-9.TXT
----------------------------------
右键执行BAT档后
会在当前文件夹中建立一个
20150201-2_PNG.RAR
文件包含该文件夹中所有的PNG
先跟BAT高手们说声谢谢!
有了批处理之家!解决生活麻烦事之家!

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2015-2-1 12:17:26 | 显示全部楼层
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. REM 请根据自己的实际情况修改WinRAR的路径
  4. set "rar=C:\Program Files\WinRAR\rar.exe"
  5. for /f %%i in ('dir /b *.pdf') do (
  6.     set /a pdfNum+=1
  7.     set pdfName=%%~ni
  8. )
  9. if !pdfNum! equ 1 (
  10.     "%rar%" a "!pdfName!_PNG.RAR" *.png
  11. )
复制代码

评分

参与人数 1技术 +1 收起 理由
bluck2008 + 1 实在是太谢谢DAIC少将的热情帮忙,有您的协 ...

查看全部评分

 楼主| 发表于 2015-2-2 05:58:44 | 显示全部楼层
回复 2# DAIC
您的批处理协助一小步,可是解决十年工作上困扰的一大步!特此隆重感激不尽~
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-19 19:02 , Processed in 0.018801 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表