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

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
46楼 跳转到 »
发表于 2024-4-23 10:44 | 只看该作者
回复 44# wh123wh123


你用哪种方式复制的代码？
1、直接点击右上角的COPY按钮
2、先用鼠标选中代码然后再Ctrl+C
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

wh123wh123

Rank: 4

帖子
183 
积分
384 
技术
0  
捐助
0  
注册时间
2008-12-19 
47楼
发表于 2024-4-23 11:16 | 只看该作者
回复 46# Batcher


    感谢领导注意到这个问题，我用这2种方法粘贴到记事本里都是一行显示了，不知道是不是和电脑有关，以前用其他电脑可以自动按原格式行正常的显示，更换了一个华硕小块主板就有各种小问题。

TOP

77七

Rank: 6Rank: 6

帖子
1699 
积分
2787 
技术
342  
捐助
50  
注册时间
2022-9-18 
48楼
发表于 2024-4-23 11:35 | 只看该作者
回复 42# wh123wh123


   
把 50% 改为 50%%
bat小白，请多指教！谢谢！

TOP

ygqiang

Rank: 5Rank: 5

帖子
1282 
积分
723 
技术
13  
捐助
50  
注册时间
2010-4-18 
49楼
发表于 2024-4-23 11:35 | 只看该作者
本帖最后由 ygqiang 于 2024-4-23 11:36 编辑

41楼，执行正常

TOP

wh123wh123

Rank: 4

帖子
183 
积分
384 
技术
0  
捐助
0  
注册时间
2008-12-19 
50楼
发表于 2024-4-23 11:44 | 只看该作者
回复 48# 77七

修改后可以处理了，但是文字内容变得不清晰啦

TOP

77七

Rank: 6Rank: 6

帖子
1699 
积分
2787 
技术
342  
捐助
50  
注册时间
2022-9-18 
51楼
发表于 2024-4-23 11:52 | 只看该作者
回复 50# wh123wh123


   50可自行调整下，我不会写magick命令，做不到powershell能达到的效果。
bat小白，请多指教！谢谢！

TOP

wh123wh123

Rank: 4

帖子
183 
积分
384 
技术
0  
捐助
0  
注册时间
2008-12-19 
52楼
发表于 2024-4-23 12:02 | 只看该作者
回复 41# aloha20200628


    这个代码复制到bat里，运行bat后没反应，如何正确执行？

TOP

wh123wh123

Rank: 4

帖子
183 
积分
384 
技术
0  
捐助
0  
注册时间
2008-12-19 
53楼
发表于 2024-4-23 12:07 | 只看该作者
回复 51# 77七

哦，非常感谢老师的帮助，点赞。

TOP

wh123wh123

Rank: 4

帖子
183 
积分
384 
技术
0  
捐助
0  
注册时间
2008-12-19 
54楼
发表于 2024-4-23 12:12 | 只看该作者
回复 9# terse

感谢老师指点，我对这种代码非常头疼，一点也看不懂，最关键的是放到bat里运行没效果，呵呵，不知道如何用bat正确使用这段代码？

TOP

aloha20200628

Rank: 5Rank: 5

帖子
874 
积分
1456 
技术
189  
捐助
0  
注册时间
2021-10-13 
55楼
发表于 2024-4-23 13:47 | 只看该作者
本帖最后由 aloha20200628 于 2024-4-23 16:15 编辑


用以下bat+jscript代码成功删除了5楼右键存成的问题图片中的exif属性，即可直接用windows图片查看器打开浏览，其后用41楼代码剪裁就一气呵成了...
以下代码存为test.bat用法》
   test.bat "问题图片.jpg"
生成新文件名为 "问题图片.new.jpg"
  1. @set @v=1 //&(if "%~1" neq "" cscript /e:jscript "%~f0" "%~1") &exit/b

  2. ////

  3. v=WSH.arguments;

  4. np=v(0).lastIndexOf('.'); outF=v(0).slice(0,np)+'.new'+v(0).slice(np);

  5. img=WSH.CreateObject('WIA.ImageFile');

  6. ip=WSH.CreateObject('WIA.ImageProcess');

  7. img.loadfile(v(0));

  8. ip.filters.add(ip.filterinfos('Exif').filterid);

  9. ip.filters(1).properties('ID')=34675;

  10. ip.filters(1).properties('Remove')=true;

  11. img=ip.apply(img); img.savefile(outF);

  12. WSH.quit();
复制代码

TOP

terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
0  
注册时间
2008-2-25 
56楼
发表于 2024-4-23 14:24 | 只看该作者
回复 54# wh123wh123
你系统带有POWERSHELL吗？不会是精简系统吧，在cmd你执行 powershell set-executionpolicy Unrestricted 试一下

TOP

aloha20200628

Rank: 5Rank: 5

帖子
874 
积分
1456 
技术
189  
捐助
0  
注册时间
2021-10-13 
57楼
发表于 2024-4-23 15:03 | 只看该作者
本帖最后由 aloha20200628 于 2024-4-23 16:22 编辑

回复 52# wh123wh123

55楼代码（已订正第1行）用于删除单个问题图片中的Exif属性使其“复活” 》
   复制为test.bat文件后放到被处理的图片（问题图片.jpg）目录中，运行  test.bat "问题图片.jpg"  之后应可看到对应的 "问题图片.new.jpg" 新文件被生成；
41楼代码用于批量剪裁图片顶边和底边 》
   复制为test.bat文件后放到被处理的图片（*.jpg）目录中，运行  test.bat  之后应可看到对应的 *.new.jpg 新文件被生成。

TOP

wh123wh123

Rank: 4

帖子
183 
积分
384 
技术
0  
捐助
0  
注册时间
2008-12-19 
58楼
发表于 2024-4-23 18:16 | 只看该作者
回复 56# terse

运行后没啥提示

TOP

wh123wh123

Rank: 4

帖子
183 
积分
384 
技术
0  
捐助
0  
注册时间
2008-12-19 
59楼
发表于 2024-4-23 18:17 | 只看该作者
回复 55# aloha20200628


    可以无损删除中间那个红色大字广告吗？

TOP

wh123wh123

Rank: 4

帖子
183 
积分
384 
技术
0  
捐助
0  
注册时间
2008-12-19 
60楼
发表于 2024-4-23 18:21 | 只看该作者
回复 41# aloha20200628

运行了这个代码后，发现打开Word后显示区域变很小了，是不是和这个代码有关系呢？如何修改回原始默认那种？

TOP

1234
返回列表