Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Via Batch die Abmessung von JPG-Dateien auslesen und in bestimmte Ordner verschieben

Mitglied: rg-87

rg-87 (Level 1) - Jetzt verbinden

14.08.2011, aktualisiert 18.10.2012, 5458 Aufrufe, 14 Kommentare

Hallo liebe Administrator.de-Gemeinde,

ich bekomme regelmäßig Ordner mit JPG-Dateien welche eine unterschiedliche Auflösung besitzen (2800x3633, 1000x744, usw.)
Jetzt würde ich gerne automatisiert, die JPG-Dateien anhand Ihrer Auflösung in bestimmte Ordner verschieben.

Das verschieben von Dateien sollte kein Problem sein, jedoch das Auslesen der Abmessung via Batch.
Ist das überhaupt möglich?

Danke im Voraus.

rg-87
Mitglied: 64748
14.08.2011 um 12:00 Uhr
Hallo rg-87,

bei Imagemagick gibt's das Tool "identify". Download hier: http://www.imagemagick.org/script/index.php

Beispiel hier
markus@samsung:~/MeineBilder$ identify CIMG0194.jpg  
CIMG0194.jpg JPEG 1520x2032 1520x2032+0+0 8-bit DirectClass 522KB 0.000u 0:00.000
das solltest Du auch in einem Script verwenden können. Welches Betriebssystem nutzt Du denn? oder anders gefragt, hast Du Perl installiert?

Gruß

Markus
Bitte warten ..
Mitglied: bastla
14.08.2011, aktualisiert 18.10.2012
Hallo rg-87!

Sollte auch mit Bordmitteln gehen - zum Testen mit Deiner ungenannten Windows-Version nur mal mit einer (in Zeile 2 angegebenen) Datei:
01.
@echo off & setlocal 
02.
set "Datei=D:\PIC00001.JPG" 
03.
 
04.
set G=%temp%\GetExtAttr.vbs 
05.
 >%G% echo Set fso=CreateObject("Scripting.FileSystemObject"):Set Sh=CreateObject("Shell.Application") 
06.
>>%G% echo Set Fld=Sh.NameSpace(fso.GetParentFolderName(WScript.Arguments(0))) 
07.
>>%G% echo WScript.Echo Fld.ParseName(fso.GetFileName(WScript.Arguments(0))).ExtendedProperty("Dimensions") 
08.
 
09.
for /f "tokens=1,3" %%i in ('cscript //nologo %G% "%Datei%"') do set "W=%%i" & set "H=%%j" 
10.
if defined W echo %Datei%: %W%_%H%
Ähnliches hatten wir jedenfalls mal hier ...
[Edit] Um auch noch die Schleifen-Variante (incl "Verschiebe"-Ansatz) nachzureichen:
01.
@echo off & setlocal 
02.
set "Ordner=D:\Bilder" 
03.
 
04.
set G=%temp%\GetExtAttr.vbs 
05.
 >%G% echo Set fso=CreateObject("Scripting.FileSystemObject"):Set Sh=CreateObject("Shell.Application") 
06.
>>%G% echo Set Fld=Sh.NameSpace(WScript.Arguments(0)):For Each File In Fld.Items 
07.
>>%G% echo If LCase(fso.GetExtensionName(File))="jpg" Then:D=Split(Fld.ParseName(File).ExtendedProperty("Dimensions")):WScript.Echo File^&"|"^&D(0)^&"|"^&D(2):End If:Next 
08.
 
09.
pushd "%Ordner%" 
10.
for /f "tokens=1-3 delims=|" %%i in ('cscript //nologo %G% "%Ordner%"') do ( 
11.
    echo %%i - Breite: %%j Hoehe: %%k 
12.
    if %%j geq 3000 (echo move "%%i" "D:\Bilder\sortiert\ab3000") else ( 
13.
	    if %%j geq 2000 (echo move "%%i" "D:\Bilder\sortiert\ab2000") else ( 
14.
            echo move "%%i" "D:\Bilder\sortiert\unter2000" 
15.
16.
17.
18.
popd
Wegen des jeweiligen "echo" (zum Testen) vor dem "move" werden die Befehle für das Verschieben nur angezeigt, aber noch nicht ausgeführt.
Soferne es sich bei den Zielordnern um Unterordner von "%Ordner%" handeln sollte, kann der Pfad dafür weg gelassen werden (während der Verarbeitung ist der "Bilder"-Ordner lt Zeile 2 aktuell).

Grüße
bastla
Bitte warten ..
Mitglied: rubberman
14.08.2011 um 12:22 Uhr
Hallo rg-87.

Wenn du mit Bordmitteln arbeiten willst, kannst du ein VBScript nutzen.

getJpgDim.vbs
01.
If WScript.Arguments.Count < 1 Then WScript.Quit 2 
02.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
03.
strSrcDir = objFSO.GetAbsolutePathName(WScript.Arguments(0)) 
04.
If Not objFSO.FolderExists(strSrcDir) Then WScript.Quit 1 
05.
Set objShell = CreateObject("Shell.Application") 
06.
For Each objFile In objFSO.GetFolder(strSrcDir).Files 
07.
  If LCase(objFSO.GetExtensionName(objFile.Name)) = "jpg" Then 
08.
    WScript.Echo objFile.Path & "?" & GetFileDimensions(objFile.Path) 
09.
  End If 
10.
Next 
11.
 
12.
Function GetFileDimensions(strFileFullName) 
13.
  If objFSO.FileExists(strFileFullName) Then 
14.
    Set objFolderItem = objShell.Namespace(objFSO.GetParentFolderName(strFileFullName)) _  
15.
      .ParseName(objFSO.GetFileName(strFileFullName)) 
16.
    GetFileDimensions = objFolderItem.ExtendedProperty("Dimensions") 
17.
  End If 
18.
End Function
Beispielaufruf im Batch
01.
@echo off &setlocal 
02.
set "SourcePath=D:\Pfad\zu\Bildern" 
03.
 
04.
for /f "tokens=1,2 delims=?" %%a in ('cscript //nologo getJpgDim.vbs "%SourcePath%"') do ( 
05.
  echo %%a 
06.
  echo %%b 
07.
  echo ---------------- 
08.
09.
 
10.
pause
Grüße
rubberman

<EDIT: Hallo bastla. Wie (fast) immer einen Hauch schneller />
<EDIT2: .Quit in der ersten Zeile ergänzt />
Bitte warten ..
Mitglied: 64748
14.08.2011 um 12:48 Uhr
Hallo nochmal,

ich hab hier mit Bordmitteln diese Lösung:
01.
#!/usr/bin/perl 
02.
 
03.
use strict; 
04.
use warnings; 
05.
 
06.
opendir ORDNER, "./" or die "geht nicht: $!\n"; 
07.
 
08.
my @bilder = grep { /\.jpg/ } readdir ORDNER; 
09.
 
10.
my $bild; 
11.
foreach $bild (@bilder) { 
12.
    my ($name, $format, $res, $a, $b, $c, $size, $d, $e) = split /\s/, `identify $bild`; 
13.
    my ($breite, $hoehe) = split "x", $res; 
14.
    if ($hoehe > 1000) { 
15.
        system ("cp $name GrosseBilder"); 
16.
17.
    else { 
18.
        system ("cp $name KleineBilder"); 
19.
20.
}
Das Skript läuft im Ordner wo die Bilder sind, sonst muss der Pfad angepasst werden.
Perl und imagemagick muss installiert sein.die Namen "GrosseBilder" und "KleineBilder" sind die Verzeichnisse für die Bilder. Du kannst auch die Variable $size heranziehen wenn Du nach Dateigröße selektieren möchtest.

Gruß

Markus
Bitte warten ..
Mitglied: rubberman
14.08.2011 um 12:56 Uhr
Hallo Markus.
Zitat von 64748:
ich hab hier mit Bordmitteln diese Lösung:
[...]
Perl und imagemagick muss installiert sein.

Unter "mit Bordmitteln" verstehen zumindest bastla und ich so etwas wie "ohne zusätzliche Installation". Ist aber egal, das Ergebnis zählt...

Grüße
rubberman
Bitte warten ..
Mitglied: 64748
14.08.2011 um 13:04 Uhr
Hallo rubberman,
Zitat von rubberman:
Unter "mit Bordmitteln" verstehen zumindest bastla und ich so etwas wie "ohne zusätzliche Installation".
Ist aber egal, das Ergebnis zählt...
naja, ich auch. Ich hab hier Slackware64-13.37, normale Installation, da sind das die Bordmittel

Aber ich habe bei nochmaligem Lesen des Beitrags vom TO gelesen, dass er batch meint, also Windows (es gibt Perl auch für Windows und wenn man der Perl-Mailingliste glauben darf wird's auch von vielen Admins eingesetzt http://strawberryperl.com/).

Gruß und noch einen schönen Sonntag

Markus
Bitte warten ..
Mitglied: rubberman
14.08.2011 um 13:31 Uhr
Hallo Markus.

Das #!/usr/bin/perl hätte mir eigentlich schon sagen müssen, dass du dich auf Linux beziehst. So ist es, wenn man den Code gar nicht erst liest (weil man ihn nicht versteht ).

Auch dir einen schönen Sonntag.
rubberman
Bitte warten ..
Mitglied: rg-87
14.08.2011 um 13:36 Uhr
Das nen ich Hilfe
Nun zu der Frage welches Betriebssystem eingesetzt wird. -> Windows 7
Bordmittel immer gerne genommen.

Ich probier da jetzt mal was aus und melde mich dann mit einem Ergebnis.

Danke für die Hilfe.
Bitte warten ..
Mitglied: 64748
14.08.2011 um 13:47 Uhr
Hallo rubberman,

wenn der Dateiname des Programms ein .pl-Suffix hat, also z.B. bilder.pl, dann kann man den gleichen Code auch auf einem Windowsrechner (wenn Perl installiert ist) laufen lassen (weil das "#" in der ersten Zeile auf nicht-Unix Systemen nur als Anfang einer Kommentarzeile aufgefasst wird).

Markus
Bitte warten ..
Mitglied: bastla
14.08.2011 um 14:08 Uhr
Hallo rubberman!

In Zeile 1 ist Dir ein ".Quit" abhanden gekommen ...

Grüße
bastla
Bitte warten ..
Mitglied: rubberman
14.08.2011 um 14:16 Uhr
Hallo bastla,

danke, ich hab's wiedergefunden und an die richtige Stelle gelegt

Grüße
rubberman
Bitte warten ..
Mitglied: rg-87
14.08.2011 um 14:38 Uhr
Hmm, das Skript listet alles fein säuberlich auf.
Jedoch bin ich nicht in der Lage, die Dateien anhand ihrer Abmessung in einen Unterordner zu verschieben.
Der Unterordner trägt die Abmessung als Ordnername.
Bitte warten ..
Mitglied: bastla
14.08.2011 um 14:41 Uhr
Hallo rg-87!

Da Du nicht so genau beschrieben hattest, wie die Zielordner heißen sollen, habe ich im (inzwischen ergänzten) Schleifen-Ansatz oben Annahmen treffen müssen - da sich aber Breite und Höhe in den Variablen %%j und %%k befinden, kannst Du daraus ja den benötigten Ordnernamen zusammensetzen - etwa so (als Ersatz der Zeilen 12-16):
01.
md "D:\Bilder\sortiert\%%jx%%k" 2>nul 
02.
echo move "%%i" "D:\Bilder\sortiert\%%jx%%k"
Grüße
bastla
Bitte warten ..
Mitglied: rubberman
14.08.2011 um 14:46 Uhr
Hallo rg-87,

ungetestet zu meinem Script, folgender Aufruf:
01.
@echo off &setlocal 
02.
set "SourcePath=D:\Pfad\zu\Bildern" 
03.
 
04.
for /f "tokens=1,2 delims=?" %%a in ('cscript //nologo getJpgDim.vbs "%SourcePath%"') do ( 
05.
  md "%SourcePath%\%%b" 2>nul 
06.
  move "%%a" "%SourcePath%\%%b\" 
07.
)
Grüße
rubberman
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Ordner durchsuchen - wenn "bestimmter Text" in einer Datei enthalten, diese Datei in einen anderen Ordner kopieren oder verschieben

gelöst Frage von ConcurveBatch & Shell14 Kommentare

Hallo zusammen, ich habe ein Problem bei der Erstellung einer *.bat, welche innerhalb eines zu definierenden Ordners alle Dateien ...

Batch & Shell

Batch Ordner erstellen und verschieben

gelöst Frage von FromeonlyBatch & Shell6 Kommentare

Hallo Leute, ich habe ein kleines Problem beim erstellen einer Batch. Ziel der Batch soll es sein, dass sie ...

Batch & Shell

Ordner per Batch verschieben, Datei kopieren

gelöst Frage von Shape.ShifterBatch & Shell2 Kommentare

Guten Abend :) Ich möchte mein Backup etwas anpassen und muss dafür viele Ordner verschieben und jeweils eine Datei ...

Batch & Shell

Bestimmte Datei per Batch in Ordner kopieren, wenn bestimmte .Ext in Ordner vorhanden

Frage von ConcurveBatch & Shell5 Kommentare

Hallo zusammen, aufgrund Speicher-Limitierung in meinem PC muss ich nun meine *.mov, *.avi, etc. vom PC entfernen, so dass ...

Neue Wissensbeiträge
Exchange Server

Exchange 2010-2019 Sicherheitslücke durch Regkey löschen schließen

Information von sabines vor 3 StundenExchange Server

Unter ist eine Lücke im Exchange 2010-2019 beschrieben, die durch das Löschen eines reg keys geschlossen werden kann. In ...

Windows Server
Erneutes Release von WS2019 und Win10 v1809
Tipp von IT-Pro vor 1 TagWindows Server3 Kommentare

Hi, nachdem der Windows Server 2019 und Windows 10 in der Version 1809 aufgrund von verschwinden von Dateien nach ...

CPU, RAM, Mainboards
Spectre Update Tool für ältere PCs
Information von sabines vor 1 TagCPU, RAM, Mainboards6 Kommentare

Mit Hilfe eines Tools wird der betreffende PC permanent von einem USB Stick gestartet, der ein passendes Microcode Update ...

Windows 10
Windows 10 Oktober 2018 Update: Es ist wieder da
Tipp von Bowsette vor 1 TagWindows 101 Kommentar

Ein neuer Versuch von Microsoft das Windows 10 Oktober 2018 Update, auch bekannt als 1809, an den Mann zu ...

Heiß diskutierte Inhalte
Batch & Shell
Ordnernamen mit String aus Ziffern-Zahlenkombination erstellen
Frage von MmarKussBatch & Shell16 Kommentare

Hallo zusammen, ich habe ein etwas komplexeres Problem, welches ich selbst mittels einer Batch-Datei lösen will / muss, da ...

Windows Server
Lohnt sich eine Domäne für uns?
Frage von BowsetteWindows Server15 Kommentare

Hallo, ich arbeite in einem kleinen Unternehmen mit mehr als 5 und weniger als 10 Mitarbeitern, also Small Business ...

Java
Testautomatisierung
Frage von WPFORGEJava13 Kommentare

Hallo, nehmen wir an, es gibt eine Webseite mit einer Karte und einem Suchfeld. Nun wird in das Suchfeld ...

Hardware
Laptop kaputt Hilfe
gelöst Frage von smash0Hardware13 Kommentare

Hi. ich habe mein laptop geputzt und unter wasser also laufenden wasser gehalten. Jetzt geht der nicht mehr an, ...