[文本处理] [已解决]批处理获取图片分辨率的问题

灯塔彭于晏

在百度中寻求到的#获取图片分辨率信息#的批处理，不用额外其他软件，还挺好的。
但输出结果中，图片会按照名字，重新自动排列顺序，请问这一点该怎么改呢？

要求：我不想它重新排列，请保持桌面顺序，依次输出
谢谢您啦~

@echo off & title  
setlocal enabledelayedexpansion
 
set Pic=*.jp*g,*.png,*.bmp,*.gif
 
call :CreatVBS
(for %%a in (%Pic%) do (
    for /f "tokens=1-3 delims=x" %%b in ('cscript -nologo "%tmp%\GetImgInfo.vbs" "%%~sa"') do (
        echo %%~nxa %%~bx%%~c
    )
))>图片信息.txt
pause
exit
 
:CreatVBS
(echo '获取图片文件的宽、高、DPI
echo On Error Resume Next
echo Dim Img
echo Set Img = CreateObject^("WIA.ImageFile"^)
echo Img.LoadFile WScript.Arguments^(0^)
echo Wscript.Echo Img.Width ^& "x" ^& Img.Height ^& "x" ^& Img.HorizontalResolution)>"%tmp%\GetImgInfo.vbs"
goto :eof
复制代码

可以从图片中看到，文本中的排序按序重排了~ ~谢谢您了

Batcher

回复 1# 灯塔彭于晏


    你希望改成什么效果呢？

WHY

for %%a in (%ext%) do ... 应该是先按%ext%中的扩展名排序、扩展名相同再按文件名排序的，先jpg，然后bmp，再然后png，
把第7行改成：

(for /f "delims=" %%a in ('dir /b /on *.jpg,*.bmp,*.png,*.gif') do (
复制代码

试试行不行。

WHY

保存为 Test.js， 双击运行

var Img = new ActiveXObject('WIA.ImageFile');
var fso = new ActiveXObject('Scripting.FileSystemObject');
var arr = [];
var e = new Enumerator( fso.GetFolder('.').Files );
for(;!e.atEnd();e.moveNext()){
    var file = e.item().Name;
    if( !/\.(?:jpg|bmp|png|gif)$/i.test(file) ) continue;
    Img.LoadFile(file);
    arr.push(file + ' ' + Img.Width + 'x' + Img.Height + 'x' + Img.HorizontalResolution);
}
fso.OpenTextFile('图片信息.txt', 2, true).WriteLine( arr.join('\r\n') );
WSH.Echo('Done');
复制代码

灯塔彭于晏

回复 2# Batcher


    抱歉，我没描述清楚。 我是想按照桌面的图片的顺序来输出结果，但代码的结果是重新排序了。 可以看截图，明显顺序和桌面是不一样的。
希望可以和桌面一样。

ivor

用powershell 更方便

powershell "Add-Type -AssemblyName System.Drawing;dir *.jpg,*.bmp,*.png,*.gif |%{$_.Name,[System.Drawing.Image]::FromFile($_).size -join ' '}"
复制代码

微信图片_20201229083132.jpg {Width=1920, Height=887}
微信图片_20201229083143.jpg {Width=960, Height=1920}
微信图片_20201229083146.jpg {Width=887, Height=1920}
微信截图_20201229082837.png {Width=688, Height=527}

Batcher

回复 5# 灯塔彭于晏


    你先试试其他几个代码是否达到目标？

灯塔彭于晏

回复 3# WHY


    好像不太可以。还是重新按数字的顺序，依次排列了。

灯塔彭于晏

保存为 Test.js， 双击运行
WHY 发表于 2020-12-28 16:07

    的确有结果了，但还是按照文件名，重新排列了顺序。和桌面顺序不太一样。

灯塔彭于晏

回复 7# Batcher


    都没有保持原有的顺序， 都重新依次排列了~~

灯塔彭于晏

回复 6# ivor


    谢谢，辛苦了辛苦了，但我不会操作这个~

Batcher

回复 10# 灯塔彭于晏


首先你需要确认一下桌面上的图片文件是按照什么顺序排序的。
脚本处理文件的时候常见的处理顺序是：按照文件名顺序、按照修改日期顺序、等等。
如果你桌面上的图片排序没有任何规律，那么脚本处理后的顺序不一致是正常的、不可避免的。

灯塔彭于晏

回复 12# Batcher


    一张张存的话，应该是“创建时间” 。嘻嘻。

ivor

回复 13# 灯塔彭于晏

可以按创建时间排序

powershell "Add-Type -AssemblyName System.Drawing;dir *.jpg,*.bmp,*.png,*.gif | sort -Property CreationTime|%{$_.Name,[System.Drawing.Image]::FromFile($_).size -join ' '}"
复制代码

灯塔彭于晏

回复 14# ivor


    怎么输出到文本呀？ 我下了一个quicker，里面可以运行powershell，但是……没文本~
谢谢~