批处理之家 - Powered by Discuz! Board

标题: [文本处理] [已解决]读取图片尺寸加入所在文件夹名称及大小 [打印本页]

作者: luckcsz 时间: 2018-9-11 08:55 标题: [已解决]读取图片尺寸加入所在文件夹名称及大小

本帖最后由 luckcsz 于 2018-9-11 20:30 编辑

@if(0)==(0) echo off & dir /b /a-d /s *.jpg *.jpeg *.tif *.png 2>nul|cscript -NoLogo -E:JScript %0 >图片尺寸.xls & pause  & exit @end
var fso, Img;
fso = new ActiveXObject("Scripting.FileSystemObject");
Img = new ActiveXObject("WIA.ImageFile");
while(!WScript.StdIn.AtEndOfStream){
var f = fso.GetFile(WScript.StdIn.ReadLine());
Img.LoadFile(f);
WSH.Echo(fso.GetBaseName(f) + '_' + Img.Width + 'x' + Img.Height + '.' + fso.GetExtensionName(f));
}

成果所在当前  文件夹名称_图片文件名称_尺寸_扩展名_大小
假如可以的话再读个dpi
路过的老师帮忙写下，谢谢~！

作者: Batcher 时间: 2018-9-11 14:48

@if(0)==(0) echo off & dir /b /a-d /s *.jpg *.jpeg *.tif *.png 2>nul|cscript -NoLogo -E:JScript %0 >图片尺寸.xls & goto :eof @end
var fso, Img;  
fso = new ActiveXObject("Scripting.FileSystemObject"); 
Img = new ActiveXObject("WIA.ImageFile");
while(!WScript.StdIn.AtEndOfStream){
    var f = fso.GetFile(WScript.StdIn.ReadLine());
    Img.LoadFile(f);
    WSH.Echo(f.ParentFolder.Name + '_' + fso.GetBaseName(f) + '_' + Img.Width + 'x' + Img.Height + '_' + fso.GetExtensionName(f) + '_' + f.Size + '_' + Img.VerticalResolution + 'x' + Img.HorizontalResolution + 'dpi');
}
复制代码

作者: Batcher 时间: 2018-9-11 14:52

文件的属性可以参考：
https://msdn.microsoft.com/zh-cn/library/18b41306

图片的属性可以参考：
https://docs.microsoft.com/zh-cn/previous-versions/windows/desktop/wiaaut/-wiaaut-imagefile

作者: luckcsz 时间: 2018-9-11 20:28

回复 2# Batcher

谢谢您~！

欢迎光临批处理之家 (http://www.bathome.net/)