Batcher

回复 44# wh123wh123


你用哪种方式复制的代码？
1、直接点击右上角的COPY按钮
2、先用鼠标选中代码然后再Ctrl+C

wh123wh123

回复 46# Batcher


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

77七

回复 42# wh123wh123


   
把 50% 改为 50%%

ygqiang

41楼，执行正常

wh123wh123

回复 48# 77七

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

77七

回复 50# wh123wh123


   50可自行调整下，我不会写magick命令，做不到powershell能达到的效果。

wh123wh123

回复 41# aloha20200628


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

wh123wh123

回复 51# 77七

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

wh123wh123

回复 9# terse

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

aloha20200628

用以下bat+jscript代码成功删除了5楼右键存成的问题图片中的exif属性，即可直接用windows图片查看器打开浏览，其后用41楼代码剪裁就一气呵成了...
以下代码存为test.bat用法》
   test.bat "问题图片.jpg"
生成新文件名为 "问题图片.new.jpg"

@set @v=1 //&(if "%~1" neq "" cscript /e:jscript "%~f0" "%~1") &exit/b
////
v=WSH.arguments;
np=v(0).lastIndexOf('.'); outF=v(0).slice(0,np)+'.new'+v(0).slice(np);
img=WSH.CreateObject('WIA.ImageFile');
ip=WSH.CreateObject('WIA.ImageProcess');
img.loadfile(v(0));
ip.filters.add(ip.filterinfos('Exif').filterid);
ip.filters(1).properties('ID')=34675;
ip.filters(1).properties('Remove')=true;
img=ip.apply(img); img.savefile(outF);
WSH.quit();
复制代码

terse

回复 54# wh123wh123
你系统带有POWERSHELL吗？不会是精简系统吧，在cmd你执行 powershell set-executionpolicy Unrestricted 试一下

aloha20200628

回复 52# wh123wh123

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

wh123wh123

回复 56# terse

运行后没啥提示

wh123wh123

回复 55# aloha20200628


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

wh123wh123

回复 41# aloha20200628

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