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

[文件操作] 【已解决】批处理使用ImageMagick拼图以及命名的问题,代码优化解决

[复制链接]
发表于 2022-9-24 11:16:45 | 显示全部楼层 |阅读模式
本帖最后由 qq629926132 于 2022-9-24 14:50 编辑

先说原因:
是这样的,因为文件夹有很多文件需要拼接成长图,网上找了一段命令
montage *.jpg -tile 1x2 -geometry +0+0 10.jpg 是可以把目录内的图片拼接且成功的,但是我需要合并的时候以“第一张图的名字”作为合并之后的文件名。
所以我想了一个笨方法
1、遍历当前目录内的图片,把前2个文件移动到A目录
2、再用命令获取A目录里面的第一个文件的名字,然后用命令拼接,拼接后的图片改名为第一个名字
3、把A文件夹处理好的文件移出去
4、循环,再把当前目录内的图片2个移动到A 如此反复

然后就出现了一个问题,移动到最后的时候,会一直提示找不到文件然后不能停止,所以如何在中间加一段判断呢,就是循环的时候如果移动文件发现找不到文件的时候就自动退出或者提示所有文件处理完毕
  1. @echo off
  2. Setlocal enabledelayedexpansion
  3. if not exist ok\nul md ok
  4. if not exist temp\nul md temp
  5. :loop
  6. pushd "%~dp0"&set n=0
  7. for /f "delims=" %%a in ('dir /a-d /b *.jpg') do (
  8.         set/a n+=1&move "%%a" temp\>nul      
  9. if "!n!"=="2" goto :img       
  10. )
  11. :img
  12. for /f "delims=" %%i in ('dir /a-d /b "temp\*.jpg"') do (
  13.         set "name=%%i"
  14.         goto :first)
  15. :first
  16. set "name=%name:~0,-4%"
  17. Magick montage "temp\*.jpg" -tile 1x2 -geometry +0+0 "ok\%name%.jpg"
  18. move temp\*.jpg 已处理\
  19. goto:loop
复制代码
当然了 代码都是抄的论坛前辈的然后我自己拼凑的,感谢各位的奉献,
本次发帖的目的主要是为了解决这个循环到最后Magick 找不到文件会一直提示错误,有没有好的办法可以终止
或者有其他方案也可以。
发表于 2022-9-24 13:21:32 | 显示全部楼层
回复 1# qq629926132
  1. @echo off
  2. cd /d "%~dp0"
  3. for %%i in (*.jpg) do (
  4.     set "NewName=%%i"
  5.     goto :MergePic
  6. )

  7. :MergePic
  8. montage *.jpg -tile 1x2 -geometry +0+0 "%NewName%.tmp"
  9. move /y "%NewName%.tmp" %NewName%
复制代码
 楼主| 发表于 2022-9-24 14:49:46 | 显示全部楼层
大概理解这段代码的意思了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-19 14:42 , Processed in 0.017178 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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