[文件操作] 批处理如何在近万张图片中找到分辨率最大的一张图片？

tcasdsss

      @echo off
        set %mW%=0
        set %mH%=0
        for /f "delims=" %%a in ('dir /b /s /a-d *.jpg *.png *.bmp') do (
        for /f "tokens=1,3" %%i in ('nconvert.exe -info "%%a" ^| findstr "Width Height"') do (        
        set  %W%=Width
        set  %H%=Height
        if %W% gtr %mW%
        set  %mW%=Width
        if %H% gtr %mH% 
        set  %mH%=Height       
        )
        ）
        pause
复制代码

我写的是这样的 可是无法运行……

tcasdsss

    @echo off
    setlocal enabledelayedexpansion
        for /f "delims=" %%a in ('dir /b /s /a-d *.jpg *.png *.bmp') do (
        for /f "tokens=1,3" %%i in ('nconvert.exe -info "%%a" ^| findstr "Width Height"') do ( 
 set "%%i=%%j"       
）
        set  %W%=Width
        set  %H%=Height
        if %W% gtr %mW%
        set  %mW%=Width
        if %H% gtr %mH% 
        set  %mH%=Height       
        )        
        pause
复制代码

这样子也不行……

neorobin

回复 2# tcasdsss

%var% 不是 BAT 里变量必须采用的命名方式, 当然这样的变量名也是合法的. 实际上变量名比较自由

绝大多数字符都可以用于命名变量, 诸如此类: @#$%  甚至汉字, 甚至可以用数字作为起始字符(当然不好了)

%var% 是变量扩展, 要取变量 var 的值时可以用 %var% 为其赋值时这样: set var=something

分辨率最大如何理解? 应该算面积吧. 即  WIDTH * HEIGHT 这个乘积最大的吧

在找到最大分辨率时, 应该把该文件的路径给存下来吧, 所以可以设一个变量 set theFile=%%a

另外 WINDOWS 系统详细查看方式中, 可以选出 尺寸 列, 点击一下列标头, 即可排序, 可以试试.

tcasdsss

回复 3# neorobin


    我说错了…… 我要找的是 宽和高的最大值
现在最悲剧的是无法运行……

tcasdsss

回复 3# neorobin

        set  W=Width
        set  H=Height
if  %W% gtr %mW%  
set mW=Width
if  %H% gtr %mH%  
set mH=Height
复制代码

这样子赋值是不行的……

neorobin

回复 5# tcasdsss

nconvert.exe -info imagefile.jpg 输出信息格式是怎样的?

tcasdsss

回复 6# neorobin

for /f "tokens=1,3" %%i in ('nconvert.exe -info "%%a" ^| findstr "Width Height"') do ( 
复制代码

这句我是借鉴别人的……
他的方法输出的 宽和高是正确的

CrLf

@set @n=0/*&echo off
for /f "delims=" %%a in ('dir /b *.jpg ^| cscript -nologo -e:jscript "%~0"') do (
	echo 在这里对 %%a 做你想做的操作...
)
pause &exit /b */

var Img = new ActiveXObject("WIA.ImageFile")
var px
var list = {max:0,files:[]}

while(!WScript.StdIn.AtEndOfStream){
    var file = WScript.StdIn.ReadLine()
	Img.LoadFile(file)
	
	px = Img.Width * Img.Height
	
	if(px > list.max){
		list.max = px
		list.files = [file]
	} else {
		list.files.push(file)
	}
}

for(var i in list.files){
	WScript.Echo(list.files[i])
}
复制代码

tcasdsss

回复 8# CrLf


    不懂……
好像一部分不是批处理
这个怎么才能获得最大宽度 和高度的数据呢？

tcasdsss

回复 8# CrLf


    我现在想法是利用一个bat先找到这些图片中最大宽度和高度的数据 再call 另一个bat文件将变量传过去 通过nconvert来将图片分变率用canvas调整到最大值

neorobin

回复 7# tcasdsss

你的代码中有一个全角括号

@echo off & setlocal enabledelayedexpansion
set /a Width=0, Height=0
for /f "delims=" %%a in ('dir /b /s /a-d *.jpg *.png *.bmp') do (
	for /f "tokens=1,3" %%i in ('nconvert.exe -info "%%a" ^| findstr "Width Height"') do (
		if %%j gtr !%%i! set "%%i=%%j"
	)
)

set Width
set Height
pause
复制代码

CrLf

虽然赶脚不需要我了，但还是改着玩玩...

@set @n=0/*&echo off
dir /b *.jpg | cscript -nologo -e:jscript "%~0" "格式化输出：高度[$height] 宽度[$width] 像素[$px] 文件[\'$file\']"
rem 按指定格式输出取得的信息
pause

for /f "delims=" %%a in ('dir /b *.jpg ^| cscript -nologo -e:jscript "%~0"') do (
	echo 在这里对 %%a 做你想做的操作...
)
rem 处理示例
pause &exit /b */

var format = '$file'
if(WScript.Arguments.length){
	format = WScript.Arguments.Item(0).replace(/\$\$/g,'{$$$$}')
	format = format.replace(/\\r/g,'\r')
	format = format.replace(/\\n/g,'\n')
	format = format.replace(/\\t/g,'\t')
	format = format.replace(/\\'/g,'"')
}

var Img = new ActiveXObject("WIA.ImageFile")
var px
var list = {px:0,files:[]}

while(!WScript.StdIn.AtEndOfStream){
    var file = WScript.StdIn.ReadLine()
	Img.LoadFile(file)
	
	px = Img.Width * Img.Height
	
	if(px > list.px){
		list = {px:px,width:Img.Width,height:Img.Height,files:[file]}
	} else {
		list.files.push(file)
	}
}

var output = format.replace(/\$px/gi,list.px)
	output = output.replace(/\$height/gi,list.height)
	output = output.replace(/\$width/gi,list.width)
	
for(var i in list.files){
	output = output.replace(/\$file/gi,list.files[i])
	WScript.Echo(output.replace(/\{\$\$\}/gi,'$$$$'))
}
复制代码

支持简单的格式化输出

CrLf

话说楼主你把 height 和 width 分开判断，怎么能保证是同一张图片的高和宽呢？

tcasdsss

回复 13# CrLf


    我现在目的是要把一批图片压缩成hevc流文件 以提高压缩率 为了保证视频可以符合hevc流的要求 又不损失数据 我们就要把 图片中的最长最高的值得到 从而方便hevc压缩

tcasdsss

回复 11# neorobin


    吊…… 比我的简洁好多……