[文件操作] [已解决]批处理据图片尺寸大小计算幅面/纸张大小并统计相应数量

001011

下面的代码可以获取文件夹下图片的大小，但是不是很直观，想进一步得出每张图片的规格。
代码得出的尺寸算式不规则，首先判断算式中的那个数字大，再根据规则比对，规则如下：
大于129等于A0+
大于118.9小于129等于A0
大于84.1小于118.9等于A1
大于59.4小于84.1等于A2
大于42小于59.4等于A3
大于29.7小于42等于A4
小于29.7也等于A4

在图片尺寸.txt的最下面再统计出：
共有A0+多少张；共有A0多少张；共有A1多少张；共有A2多少张；共有A3多少张；共有A4多少张；
折合A4共有多少张。
折合规则为:
A0+=32张
A0=16张
A1=8张
A2=4张
A3=2张
A4=1张

希望得到这样的结果
J2-11-00001.JPG 123.6x100.0  A0
J2-11-000010.JPG 63.2x100.0  A1
共有A0+=0张；共有A0=1张；共有A1=1张；共有A2=0张；共有A3=0张；共有A4=0张；
折合A4共有24张。

@set @n=0//& cd /d "F:\测试\"& dir /a-d/s/b *.tif *.jpg *.png *.图片格式| cscript -nologo -e:jscript "%~f0" >图片尺寸.txt& pause& start notepad a.txt& exit /b

var fso = new ActiveXObject('Scripting.FileSystemObject'); 
var img = new ActiveXObject('WIA.ImageFile');
while(!WSH.StdIn.AtEndOfStream){
    var f = fso.GetFile(WSH.StdIn.ReadLine());
    img.LoadFile(f);
    WSH.Echo(fso.GetFileName(f)+' '+
        (img.Width/img.HorizontalResolution*2.54).toFixed(1)+'x'+
            (img.Height/img.VerticalResolution*2.54).toFixed(1));
}
复制代码

001011

上面的这个代码 在win10 可以运行  为什么在XP下不能运行呢
报：Microsoft JScript 运行时错误: Automation 服务器不能创建对象

WHY

以下代码在win10、Win7中测试通过，其它系统中的“宽度”、“高度”、“水平分辨率”、“垂直分辨率”显示有可能不同（比如“水平分辨率”可能是“水平尺寸”等），具体可以右击图片“属性——详细信息”查看，改成相应文字就可以了

@set @n=0/* & echo off
cd /d E:\test\
dir /a-d /b /s *.tif *.jpg *.png *.jpeg | cscript -nologo -e:jscript "%~f0"
pause & exit /b */

var arr = [0, 0, 0, 0, 0, 0];
var ssh = new ActiveXObject('Shell.Application');
var fd  = ssh.NameSpace(0x00);

var checkSize = function(width, height){
        if(width>=129 || height>=129){
                arr[0] += 1;
                return 'A0+'
        }else if((width>=118.9 && width<129) || (height>=118.9 && height<129)){
                arr[1] += 1;
                return 'A0'
        }else if((width>=84.1 && width<118.9) || (height>=84.1 && height<118.9)){
                arr[2] += 1;
                return 'A1'
        }else if((width>=59.4 && width<84.1) || (height>=59.4 && height<84.1)){
                arr[3] += 1;
                return 'A2'
        }else if((width>=42 && width<59.4) || (height>=42 && height<59.4)){
                arr[4] += 1;
                return 'A3'
        }else {
                arr[5] += 1;
                return 'A4'
        }
}

for(var i=0; i<300; i++) {    
        if(fd.GetDetailsOf(null, i) == '宽度') {
                var n1 = i;
        }else if(fd.GetDetailsOf(null, i) == '高度') {
                var n2 = i;
        }else if(/^水平分[辨辩]率$/.test(fd.GetDetailsOf(null, i))) {
                var n3 = i;
        }else if(/^垂直分[辨辩]率$/.test(fd.GetDetailsOf(null, i))) {
                var n4 = i;
        }
}

while(!WSH.StdIn.AtEndOfStream){
        var file = WSH.StdIn.ReadLine();
        var name = file.replace(/.+\\(.+)$/, '$1');
        var fd = ssh.NameSpace( file.replace(/(.+)\\.+$/, '$1') );
        var w = fd.GetDetailsOf(fd.ParseName(name), n1).match(/\d+/)[0];  //宽度
        var h = fd.GetDetailsOf(fd.ParseName(name), n2).match(/\d+/)[0];  //高度
        var hr = fd.GetDetailsOf(fd.ParseName(name), n3).match(/\d+/)[0]; //水平刷新率
        var vr = fd.GetDetailsOf(fd.ParseName(name), n4).match(/\d+/)[0]; //垂直刷新率
        var width = (w / hr * 2.54).toFixed(1); height = (h / vr * 2.54).toFixed(1);
        var size = checkSize(width, height);
        WSH.Echo(name + ' ' + width + 'x' + height + ' ' + size);
}

var s = 'A0+共' + arr[0] + '张,A0共' + arr[1] + '张,A1共' + arr[2] + '张,';
s += 'A2共' + arr[3] + '张,A3共' + arr[4] + '张,A4共' + arr[5] + '张\r\n';
s += '折合A4共' + (arr[0]*32+arr[1]*16+arr[2]*8+arr[3]*4+arr[4]*2+arr[5]) + '张'

WSH.Echo(s)
复制代码

001011

回复 3# WHY
非常感谢，再麻烦您一下。最后那个折合能再加进去啊。
还有XP系统下  只有‘宽度’和‘高度’   没有分辨率

WHY

回复 4# 001011


    已修改，WinXP系统请自行修改测试

001011

回复 5# WHY
XP下还是不能用，这个就不纠结了。WIN10可以用就ok。非常感谢！

CrLf

回复 3# WHY


    不根据实际 DPI 换算成厘米吗？要是像素密度不同呢？

WHY

回复 7# CrLf


    感谢提醒，不过我是这样理解的：WIA.ImageFile 和 Shell.Application 获取到的水平（垂直）分辨率都是实际的 DPI 值。

hefengnian

为什么bat运行时提示Microsoft JScript 编译错误: 缺少 ';'

WHY

回复 9# hefengnian


    Win10自带的记事本保存的编码格式默认为 utf8 without bom
脚本必须另存为 ansi 编码。

tttoi2000

可以改进生成文本或 Excel 进行数据汇总吗？
如果生成 Excel 最好
生成效果如下
类型                                           信息                        数量
A4图像        E:\AAAAA\BBBB\CCC\DDDD\001.jpg         1
......
A4图像        E:\AAAAA\BBBB\CCC\DDDD\100.jpg         1
小计                            A4图像                             80
小计                            A3图像                             10
小计                            A2图像                             5
小计                            A1图像                             1
小计                            A0图像                             4