[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
这样效率会提升点吗
  1. @if(0)==(0) echo off & setlocal enabledelayedexpansion
  2. for %%i in (1.jpg,2.jpg,3.jpg,4.jpg,15.jpg,16.jpg) do set "$%%i=1000x1200"
  3. for %%i in (5.jpg,7.jpg) do set "$%%i=200x300"
  4. for %%i in (1.jpg,2.jpg,3.jpg,4.jpg,5.jpg,7.jpg,15.jpg,16.jpg) do (
  5.     for /f "tokens=1*" %%a in ('dir /b /s /a-d %%i 2^>nul^|cscript -NoLogo -E:JScript %0') do (
  6.         if "%%b" neq "" (
  7.            if "%%a" neq "!$%%i!" >>err.txt echo;%%b
  8.         ) else set "n=%%a"
  9.     )
  10.     echo;%%i 共 !n! 张
  11. )
  12. pause&exit
  13. @end
  14. var s = "",l=0
  15. while(!WScript.StdIn.AtEndOfStream){
  16.     var Img = new ActiveXObject("WIA.ImageFile")
  17.     var file = WScript.StdIn.ReadLine();
  18.     Img.LoadFile(file);
  19.     WSH.Echo(Img.Width + "x" + Img.Height + ' ' + file);
  20.     l++
  21. }
  22. WSH.Echo(l);
复制代码
1

评分人数

TOP

返回列表