Нужен пакетный файл для вывода списка файлов изображений с размерами - PullRequest
Новая
       5

Нужен пакетный файл для вывода списка файлов изображений с размерами

3 голосов
/ 29 июня 2011

У меня уже есть пакетный файл, который отображает список файлов в папке, упорядоченный по типу файла: 

dir /b /o:gen>filelisting.txt

Я хотел бы создать файл .bat, который будет также отображать ширину и высоту изображений. у кого-нибудь есть код, который будет делать это или понимает этот тип программирования лучше, чем я?

Ответы [ 2 ]

2 голосов
/ 26 января 2015

Вот tooltipInfo.bat (гибрид jscript \ bat, который можно использовать как .bat), который принимает информацию о всплывающих подсказках для файла и не требует какого-либо внешнего программного обеспечения: 

@if (@X)==(@Y) @end /* JScript comment
    @echo off

    rem :: the first argument is the script name as it will be used for proper help message
    cscript //E:JScript //nologo "%~f0" %*

    exit /b %errorlevel%

@if (@X)==(@Y) @end JScript comment */

////// 
FSOObj = new ActiveXObject("Scripting.FileSystemObject");
var ARGS = WScript.Arguments;
if (ARGS.Length < 1 ) {
 WScript.Echo("No file passed");
 WScript.Quit(1);
}
var filename=ARGS.Item(0);
var objShell=new ActiveXObject("Shell.Application");
/////


//fso
ExistsItem = function (path) {
    return FSOObj.FolderExists(path)||FSOObj.FileExists(path);
}

getFullPath = function (path) {
    return FSOObj.GetAbsolutePathName(path);
}
//

//paths
getParent = function(path){
    var splitted=path.split("\\");
    var result="";
    for (var s=0;s<splitted.length-1;s++){
        if (s==0) {
            result=splitted[s];
        } else {
            result=result+"\\"+splitted[s];
        }
    }
    return result;
}


getName = function(path){
    var splitted=path.split("\\");
    return splitted[splitted.length-1];
}
//

function main(){
    if (!ExistsItem(filename)) {
        WScript.Echo(filename + " does not exist");
        WScript.Quit(2);
    }
    var fullFilename=getFullPath(filename);
    var namespace=getParent(fullFilename);
    var name=getName(fullFilename);
    var objFolder=objShell.NameSpace(namespace);
    var objItem=objFolder.ParseName(name);
    //https://msdn.microsoft.com/en-us/library/windows/desktop/bb787870(v=vs.85).aspx
    WScript.Echo(fullFilename + " : ");
    WScript.Echo(objFolder.GetDetailsOf(objItem,-1));

}

main();

Вывод, если используется на картинке: 

C:\TEST.PNG :
Item type: PNG image
Dimensions: ?871 x 836?
Size: 63.8 KB

так что вы можете: 

for %%# in (*.jpg *.png *.tiff *.gif *.bmp) do (
    echo %%#
    for /f "delims=? tokens=2" %%a in ('toolTipInfo.bat "%%~#" ^|find "Dimensions:"')  do echo %%a
)

OR с imgInfo.bat

1 голос
/ 29 июня 2011

Попробуйте сохранить это как xxx.bat; 

Dim oDir: Set oDir = CreateObject("Shell.Application").Namespace(Wscript.Arguments.Item(0))
For Each oFile In oDir.Items
   wscript.echo oFile & " " & replace(oDir.GetDetailsOf(oFile,26), "x", "")
Next

Затем из командной строки: 

cscript c:\xxx.vbs "C:\whatever\My Pictures"

Для меня производит;1-е число - ширина и 2-я высота.

...