laaange liste schnell verarbeiten

[grenzli]

Hallo zusammen,

es geht mal wieder um's Taggen von Bilddateien (diesmal tifs)

und ich habe eine "Datenbank" (text-Datei), deren Inhalt ungefähr so aussieht:

028825_F3420001
033717_S4ACC0016A
299962_T9070010
299973_T9070010
299980_T9070010
305632_T9070006
305633_T9070006
305665_T9070006
312390_F8990004
608849_F7CA0024
619995_S7440004
625326_F6990002
657345_F0SW004A
657346_F0SW004A


es sind ca 2500 Zeilen.
Momentan stehen die Daten in einer Text-Datei. Diese wird am Anfang des Scripts einmal eingelesen, dann jeweils eine Zeile als Liste definiert und wenn der Dateiname dem ersten Item der jeweiligen Liste entspricht, wird das zweite Item der Liste in die Metadaten geschrieben.

Das funktioniert auch soweit so gut.

Bei einer Datei dauert das nicht allzu lang, jetzt hab ich aber mehrere Dateien (mittels on open handler) übergeben und warte und warte und es dauert ca 1 Minute bis eine Datei aktualisiert ist. (Liegt sicherlich an der Länge der Liste bzw, wie ich darauf zugreife)

Die Frage ist jetzt, ob man das lange durchsuchen der Liste verkürzen könnte, in dem man sie anders durchsucht oder anders speichert oder ähnliches?

Hier das aktuelle Script, (hatte auch schon versucht, das Einlesen der Txt außerhalb der ersten Repeatschleife machen zu lassen, half nichts)


________________

on open (some_things)

repeat with datei in some_things
tell application "Finder"
set open_file to "50GB_system:Users:tim:Desktop:art-nr-working-nr.txt" as alias
set myList to every paragraph of (read open_file)
set anzahl to (count of paragraphs of (read open_file))

-- set datei to choose file


set endung to name extension of datei
--display dialog endung
set alias_information to info for datei

set file_name to text 1 thru (-2 - (length of name extension of alias_information)) of name of alias_information
-- display dialog file_name
set artikelnummer to text 1 thru 6 of file_name
--display dialog artikelnummer

repeat with i from 1 to anzahl

set zieh to paragraph i of (read open_file)

set oldDelimiters to AppleScript's text item delimiters
set AppleScript's text item delimiters to "_"
set Farbliste to every text item of zieh
set AppleScript's text item delimiters to oldDelimiters
get Farbliste





if artikelnummer is item 1 of Farbliste then
set workingnumber to item 2 of Farbliste
--display dialog workingnumber
do shell script "exiftool -overwrite_original -IntellectualGenre=" & workingnumber & " " & quoted form of POSIX path of datei
else
tell application "Finder" to set label index of datei to 2
end if




end repeat


end tell
end repeat
end open


Falls jemand bis hier unten gekommen ist: schönen Dank für's Lesen, vielleicht fällt euch ja was ein.

[hubionmac]

via awk vielleicht... man könnte es auch auf einen Versuch mit egrep ankommen lassen. Zudem wird in Deine Skript die Repeat-Schleife nicht beendet, nachdem die passende Artikelnummer gefunden wurde, so durchläuft die Routine für jede Datei grundsätzlich alle 2500 Zeilen.

Anbei eine Lösung mit awk

[grenzli]

besten dank hier auch nochmal. funktioniert an 10.5 und 10.7

[hubionmac]

Hat vielleicht jemand ein 10.6 zur Hand und könnte mal den awk-Befehl testen, ob es vielleicht an der Art der Definition des Trennzeichens liegt oder ob awk bei keinem Fund statt eines lehren Strings einen Fehler ausgibt?
_________________
hubionmac.com akzeptiere Paypal und Pizza

[Skeeve]

Mal zum Verständnis. In der Textdatei inputliste.txt steht:

[hubionmac]

elender Code-Verbesserer

Ne im Ernst, cooles Beispiel für die Effizienz eines Shell-Scripts im Vergleich zu einer AppleScript-Lösung... Respekt!
_________________
hubionmac.com akzeptiere Paypal und Pizza

[grenzli]

Ja genau, Skeeve, komplett richtig verstanden und ich werds dann mal versuchen, mit dem shell script.

und falls ich undankbar wirkte, bin ich nicht, es war nur stressig die letzten tage und deshalb kam ich nicht recht dazu, hier vorbeizuschauen, zumal meine mail-benachrichtigungen bei neuen antworten deaktiviert war, tztztz..

also nochmal danke und ich teste.

grüße