Versuch mit einem Bild ( falls mehrere Bilder denn sollten die Zeilen getrennt werden , da alles auf einer Linie )
Code: Select all
;- Altglas Dateien mit fehlenden EXIF Informationen bestücken
;- https://www.autohotkey.com/boards/viewtopic.php?f=9&t=96384
;--------- EXIFTOOL.exe ---------------------------------------------------------
;- https://oliverbetz.de/pages/Artikel/ExifTool-for-Windows
;- https://oliverbetz.de/cms/files/Artikel/ExifTool-for-Windows/exiftool-12.34_64.zip
;- https://exiftool.org/forum/
;--------------------------------------------------------------------------------
#NoEnv
ExifExe := "D:\M_GARRY\PROGRAMME_SA\EXIFTOOL\exiftool.exe"
;pr:=ExifExe
;runwait,%comspec% /c %pr% C:\Users\GARRY\Desktop\FOTO_TEST\Border_Terrier.jpg >test81.txt,,hide
;run,test81.txt
;exitapp
;------------------------------------------------------------
Objektive := "Olympus Zuiko Macro OM 50mm F3.5-22|Olympus G.Zuiko Auto-S OM 50mm F1`,4-16"
Blenden := "1.4|1.8|2|2.8|3.5|4|5.6|8|11|16|22"
Brennweiten:= "24|28|35|50|85|100|135"
Bilder := ""
; ----------------------------------------------------------------------------------------------------------------------
Gui, Margin, 20, 20
Gui, Font, s10
Gui, Add, Text, , Wählen Sie das Objektiv aus:
Gui, Add, DDL, xm y+5 w400 vObjektiv Choose1, %Objektive%
Gui, Add, Text, , Wählen Sie die Blende aus:
Gui, Add, DDL, xm y+5 w400 vBlende Choose1, %Blenden%
Gui, Add, Text, , Wählen Sie die Brennweite aus:
Gui, Add, DDL, xm y+5 w400 vBrennweite Choose1, %Brennweiten%
Gui, Add, Button, w400 gSelect, Wählen Sie die Bilder aus:
Gui, Add, Button, w400 vBtnOK gStart +Disabled, OK
Gui, Show, , Exif Daten
Return
; ----------------------------------------------------------------------------------------------------------------------
Select:
Bilder := ""
FileSelectFile, Bilder, M3, , Wählen Sie die Bilder aus:
If (ErrorLevel) || (Bilder = "")
Return
GuiControl, -Disabled, BtnOK
Return
; ----------------------------------------------------------------------------------------------------------------------
Start:
Gui, Submit, NoHide
;-------------------
;- for test
F1=%a_scriptdir%\Exif_Test.txt
ifexist,%f1%
filedelete,%f1%
;-------------------
If (Bilder = "")
Return
;-----------
/*
ExifCmd := ExifExe
. " -overwrite_original"
. " -Lens=""" . Objektiv . """"
. " -ApertureValue=""" . Blende . """"
. " -FNumber=""" . Blende . """"
. " -FocalLength=""" . Brennweite . """"
*/
;------------
;-
;- D:\M_GARRY\PROGRAMME_SA\EXIFTOOL\exiftool.exe -overwrite_original -Lens="Olympus Zuiko Macro OM 50mm F3,5-22" -Aperturevalue="4" -FNumber="4" C:\Users\GARRY\Desktop\FOTO_TEST\Border_Terrier.jpg
;-
pr:=ExifExe
;aa= -overwrite_original -Lens="%objektiv%" -Aperturevalue="%blende%" -FNumber="%blende%" -Focallenght="%brennweite%" ; focallenght not found
aa= -overwrite_original -Lens="%objektiv%" -Aperturevalue="%blende%" -FNumber="%blende%"
For I, Bild In StrSplit(Bilder, "`n") {
If (I = 1)
Verzeichnis := RTrim(Bild, "\")
Else
{
;Fileappend, %pr% %aa% %Verzeichnis%\%Bild%,%f1%,utf-8 ; for test
runwait,%comspec% /k %pr% %aa% %Verzeichnis%\%Bild%
}
}
Bilder := ""
GuiControl, +Disabled, BtnOK
Return
; ----------------------------------------------------------------------------------------------------------------------
GuiClose:
ExitApp
;=============================