标题: [文件操作] [已解决]批处理据图片尺寸大小计算幅面/纸张大小并统计相应数量 [打印本页]
作者: 001011 时间: 2017-3-15 00:28 标题: [已解决]批处理据图片尺寸大小计算幅面/纸张大小并统计相应数量
下面的代码可以获取文件夹下图片的大小,但是不是很直观,想进一步得出每张图片的规格。
代码得出的尺寸算式不规则,首先判断算式中的那个数字大,再根据规则比对,规则如下:
大于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 时间: 2017-3-15 11:40 标题: Microsoft JScript 运行时错误: Automation
本帖最后由 pcl_test 于 2017-3-15 20:11 编辑
上面的这个代码 在win10 可以运行 为什么在XP下不能运行呢
报:Microsoft JScript 运行时错误: Automation 服务器不能创建对象
作者: WHY 时间: 2017-3-15 16:16
本帖最后由 WHY 于 2017-3-15 20:44 编辑
以下代码在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 时间: 2017-3-15 20:07
本帖最后由 001011 于 2017-3-15 20:14 编辑
回复 3# WHY
非常感谢,再麻烦您一下。最后那个折合能再加进去啊。
还有XP系统下 只有‘宽度’和‘高度’ 没有分辨率
作者: WHY 时间: 2017-3-15 20:46
回复 4# 001011
已修改,WinXP系统请自行修改测试
作者: 001011 时间: 2017-3-15 21:00
回复 5# WHY
XP下还是不能用,这个就不纠结了。WIN10可以用就ok。非常感谢!
作者: CrLf 时间: 2017-3-21 01:47
回复 3# WHY
不根据实际 DPI 换算成厘米吗?要是像素密度不同呢?
作者: WHY 时间: 2017-3-21 16:20
回复 7# CrLf
感谢提醒,不过我是这样理解的:WIA.ImageFile 和 Shell.Application 获取到的水平(垂直)分辨率都是实际的 DPI 值。
作者: hefengnian 时间: 2022-10-17 12:13
为什么bat运行时提示Microsoft JScript 编译错误: 缺少 ';'
作者: WHY 时间: 2022-10-18 17:14
回复 9# hefengnian
Win10自带的记事本保存的编码格式默认为 utf8 without bom
脚本必须另存为 ansi 编码。
作者: tttoi2000 时间: 2023-8-13 18:02
可以改进生成文本或 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
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |