Guten Morgen...

Um einer Unzulänglichkeit in "PhotoAlbum 1.0" (aus dem 3CaDo-Paket) abzuhelfen, suche ich nach einer Möglichkeit, das Dateidatum mehrerer JPEG-Dateien (von einer DigiCam) in deren jeweiliges Dateikommentarfeld zu schreiben.

Hat jemand eine Idee, wie man das per Shell-Script lösen könnte ?


Mit Dank vorab...


Gruß, Indy

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

code:

---

/* arexx */
IF ~SHOW('LIBRARIES','rxasl.library') THEN DO
    IF ~ADDLIB('rxasl.library',10,-30,0) THEN DO
       SAY 'Kann die <rxasl.library> nicht öffnen!'
       EXIT(10)
   END
END
IF ~SHOW('LIBRARIES','rexxsupport.library') THEN DO
   IF ~ADDLIB('rexxsupport.library',10,-30,0) THEN DO
      SAY 'Kann die <rexxsupport.library> nicht öffnen!'
      EXIT(10)
   END
END
PARSE ARG Jpeg
Tag.Num = 1 ; Tag.Drawer = "" ; Tag.0 = JPEG
If Jpeg="" Then DO
    Tag.Title              = "Wähle JPEG-File(s)"
    Tag.DoPatterns         =   1
    Tag.LeftEdge           =
    Tag.TopEdge            =
    Tag.Width              =
    Tag.Height             =
    Tag.Pattern            = "(#?.jpg|#?.jpeg)"
    Tag.DoMultiSelect      =   1
    Tag.Drawer        =
    Res=ReqFile(Tag)
    IF LENGTH(Tag.Drawer)>0 & Right(Tag.Drawer,1)~=":" THEN Tag.Drawer = Tag.Drawer||"/"

   If Res=-1 Then DO
       SAY "Nichts ausgewählt"
       EXIT(0)
   END
END
Do Dl = 0 TO Tag.Num-1
    JPEG=Tag.Drawer || Tag.Dl
    SlashPos = LASTPOS('/',JPEG)
    IF SlashPos = 0 then
        SlashPos = LASTPOS(':',JPEG)
    Filename = SUBSTR(Jpeg,SlashPos+1)
    DosJpeg='22'x||Jpeg||'22'x
    Out="T:jhead.out"
    Comment=FileName||" : Kein Exif-Header"
    ADDRESS COMMAND jhead DosJpeg " >"Out
    Call Open(Out,Out,R)

    DO FOREVER
        Read=READLN(Out)
        IF eof(Out) | POS("Date/Time",Read,1)>0 THEN LEAVE
        DateRow=POS("Date/Time",Read,1)
    END
    Cl=Close(Out)
    D=DELETE(Out)
    IF POS("Date/Time",Read,1)>0 THEN DO
        Mon.01="-Jan-"
        Mon.02="-Feb-"
        Mon.03="-Mär-"
        Mon.04="-Apr-"
        Mon.05="-Mai-"
        Mon.06="-Jul-"
        Mon.07="-Jul-"
        Mon.08="-Aug-"
        Mon.09="-Sep-"
        Mon.10="-Okt-"
        Mon.11="-Nov-"
        Mon.12="-Dez-"
        DAte=SUBWORD(Read,3,1) ; Time=SUBWORD(Read,4,1)
        IF Pos(":",Date,1)>0 THEN DO
            Parse Value Date with Jahr ":" Monat ":" Tag
            IF SUBSTR(Jahr,1,2)=20 THEN Jahr=SUBSTR(Jahr,3,2)
            Comment='22'x||Tag||Mon.Monat||Jahr||" "||Time||'22'x
            ADDRESS COMMAND Filenote DosJpeg comment
            Comment=FileName||" : "||strip(Comment,'B','"')
        END
        ELSE DO
            Comment=FileName||" : Date/Orginal-Tag ungültig"
        END
    END
    SAY Comment
END

---

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

Zitat:

---

Also jetzt kommt zumindest keine Fehlermeldung mehr, aber nun passiert einfach gar nichts...
(abgesehen von einem kurzen Festplattenzugriff).

Hmmm...

---

Also, diese Fehlermeldung könnte auftreten, wenn deine Kamera aus irgendwelchen Gründen das Aufnahmedatum nicht einträgt - z.B. keine Uhr oder entsprechende Voreinstellungen nicht gemacht.
In diesem Fall existiert zwar der Eintrag im Exif, bleibt aber mit Leerzeichen gefüllt, was dann zu genannten Fehler führen kann.
Die Zeile
DosFile='22'x||File||'22'x
dürfte damit aber nichts zu schaffen haben. Sie dient nur dazu, den Filenamen in Anführungszeichen zu setzen. Im Prinzip wie im Dos das *".
Wenn Du dieses Script in einer Batchdatei verwendest, müssen die Filenamen ohne Anführungszeichen übergeben werden - Arexx mag die nicht.
Das das Programm ohne Ausgabe läuft, liegt daran, das es eben sehr Wortkarg geschrieben ist.
Das einzige, wo man sehen kann, ob es was getan hat, ist der Dateikommentar an sich.
Wenn dort steht, "aufgenommen am...", hat es funktioniert.

Zitat:

---

Wäre es in diesem Script auch noch möglich, JPEGs komfortabel via Auswahlfenster auszuwählen ?

---

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

Zitat:

---

Jetzt ergibt's leider ein:

+++ Error 5 in line 68: Unmatched quote
Command returned 10/5: Unmatched quote
SYS:RexxC/RX failed returncode 10

---

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

@ Indy

jetzt geht's wieder - also vielleicht einfach nochmal 'rauskopieren

mfg Palgucker

[ - Answer - Quote - Direct link - ]

@Palgucker:

Was lange währt... wird schließlich doch noch gut.
Danke Dir vielmals, es läuft jetzt.

Werde mich noch daran versuchen, den Ausgabetext ein klein wenig abzuändern/kürzen, sodaß

aufgenommen am: 11.Oktober 2004 um 17:01:43

zu einem simplen

11-Oct-04 17:01:43

wird (so, wie eben der "normale" Datumstring in einem Shell-Fenster bei einem "List"-Befehl).


--- einige(!) Minuten später ---


So... DAS habe ich immerhin selbst geschafft...

Jetzt sieht der Kommentar so aus:

11-Oct-2004 17:01:43

(...das Jahr ist halt leider immer noch "2004" statt "04")

Fehlt eigentlich nur noch die Möglichkeit, mehrere JPEGs auf einmal bearbeiten lassen zu können (MultiSelect).


Gruß, Indy

[ Dieser Beitrag wurde von Indy am 12.01.2006 um 03:45 Uhr geändert. ]

[ Dieser Beitrag wurde von Indy am 12.01.2006 um 03:46 Uhr geändert. ]

[ Dieser Beitrag wurde von Indy am 12.01.2006 um 03:47 Uhr geändert. ]

[ Dieser Beitrag wurde von Indy am 12.01.2006 um 13:25 Uhr geändert. ]

[ Dieser Beitrag wurde von Indy am 12.01.2006 um 13:26 Uhr geändert. ]

[ - Answer - Quote - Direct link - ]

Zitat:

---

Fehlt eigentlich nur noch die Möglichkeit, mehrere JPEGs auf einmal bearbeiten lassen zu können (MultiSelect).

---

[ - Answer - Quote - Direct link - ]

@Palgucker:

Habe jetzt auch Multiselect eingebaut, wobei mir das ganze nicht so richtig gefällt, da man damit nur Dateien in Reihenfolge auswählen kann...


Also jetzt wirst Du aber zuu bescheiden...

Ich habe gerade MultiSelect getestet, und konnte sehrwohl JPEGs in Reihe (d.h. hintereinander) als auch z.B. 2., 5. und 8. JPEG eines Verzeichnisses gemeinsam anwählen (Shift-Taste) und in einem Rutsch erfolgreich bearbeiten lassen.

Oder meintest Du etwas anderes ?

Durch die zweistellige Jahreszahl ist nun auch das Datumsformat im Kommentar mit jenem des Dateidatums identisch. Toll!

Einträge aus dem Jahresbereich 19xx wird man dann eben "intuitiv" von den übrigen unterscheiden müssen.


Vielen Dank
und
Gruß, Indy

[ Dieser Beitrag wurde von Indy am 13.01.2006 um 01:42 Uhr geändert. ]

[ - Answer - Quote - Direct link - ]

Zitat:

---

Also jetzt wirst Du aber zuu bescheiden...

Ich habe gerade MultiSelect getestet, und konnte sehrwohl JPEGs in Reihe (d.h. hintereinander) als auch z.B. 2., 5. und 8. JPEG eines Verzeichnisses gemeinsam anwählen (Shift-Taste) und in einem Rutsch erfolgreich bearbeiten lassen.

Oder meintest Du etwas anderes ?

---

Nein, genau das meinte ich - nur auf die Shift-Taste bin ich irgendwie nicht gekommen.
Da bedanke ich mich für den Tip!

Zitat:

---

Einträge aus dem Jahresbereich 19xx wird man dann eben "intuitiv" von den übrigen unterscheiden müssen.

---

Ich schrieb, in diesem Jahrhundert 2-stellig. Sollte dir ein Foto mit Jahr 19xx unterkommen - den Exif Standard in Version 2.1 gibt es ja schon seit Mitte 98 -, wird das Jahr 4-stellig angegeben. Genauso wird es wieder, wenn dieses Jahrhundert endet.

mfg Palgucker

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]

[ - Answer - Quote - Direct link - ]