[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
corr

Rank: 1

帖子
3 
积分
15 
技术
0  
捐助
0  
注册时间
2023-7-7 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2023-7-7 08:15 | 只看该作者

[特效代码] 求助：bat如何实现从粘贴板读取内容并执行7zip参数命令

复制文件夹路径，然后bat命令可以自动读取该路径，并运行如下压缩命令对该路径下的文件进行压缩：
  1. %ProgramFiles%\7-Zip\7z a -mx=9 -myx=9 -mmt=6 -ms=on -mtm=off -mtc=off -mta=off -mtr=off -m0=LZMA2:d=384m:fb=273:lc=3 -mmc=1000000000 路径.7z 路径\*
复制代码
其中的“路径”即是复制到粘贴板的内容。
请各位大侠赐教！
收藏 分享

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14781 
积分
45955 
技术
847  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2023-7-7 09:13 | 只看该作者
回复 1# corr 
  1. @echo off

  2. cd /d "%~dp0"

  3. for /f "delims=" %%i in ('mshta "JavaScript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(clipboardData.getData('text'));close()"') do (

  4.     set "StrClip=%%i"

  5. )

  6. "%ProgramFiles%\7-Zip\7z" a -mx=9 -myx=9 -mmt=6 -ms=on -mtm=off -mtc=off -mta=off -mtr=off -m0=LZMA2:d=384m:fb=273:lc=3 -mmc=1000000000 路径.7z "%StrClip%\*"
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

corr

Rank: 1

帖子
3 
积分
15 
技术
0  
捐助
0  
注册时间
2023-7-7 
3楼
发表于 2023-7-7 10:18 | 只看该作者
大侠威武！
@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('mshta "JavaScript:new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(clipboardData.getData('text'));close()"') do (set "StrClip=%%i")
"%ProgramFiles%\7-Zip\7z" a -mx=9 -myx=9 -mmt=6 -ms=on -mtm=off -mtc=off -mta=off -mtr=off -m0=LZMA2:d=384m:fb=273:lc=3 -mmc=1000000000 "%StrClip%.7z" "%StrClip%\*"

完美！

TOP

返回列表