1234
返回列表 发帖
Batcher

Rank: 12Rank: 12Rank: 12

帖子
14979 
积分
46192 
技术
859  
捐助
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

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


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

TOP

77七

Rank: 6Rank: 6

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


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

TOP

ygqiang

Rank: 5Rank: 5

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

41楼，执行正常

TOP

wh123wh123

Rank: 4

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

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

TOP

77七

Rank: 6Rank: 6

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


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

TOP

wh123wh123

Rank: 4

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


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

TOP

wh123wh123

Rank: 4

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

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

TOP

wh123wh123

Rank: 4

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

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

TOP

aloha20200628

Rank: 6Rank: 6

帖子
1206 
积分
2068 
技术
281  
捐助
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"
@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();COPY

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: 6Rank: 6

帖子
1206 
积分
2068 
技术
281  
捐助
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

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

运行后没啥提示

TOP

wh123wh123

Rank: 4

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


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

TOP

wh123wh123

Rank: 4

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

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

TOP

1234
返回列表