Sunday 6 June 2010

こっちのコードの方が綺麗なんだが...

動かない。つうか、動かしているんだが、

 iPhoto (not responding)
 iPhoto のメモリが200MBから800MB増加後、200MBまで減少を繰り返す

で、終らないです。なんともならんな。

おそらくは、every photo で、全部のphotoの情報を取って来るのがいけないのだと思う。しかも、一件ずつ、AppleEvent 出しているんだと思う。そうとしか思えない。AppleEvent Monitor とかないのかな。

この repeat with .. every を直してくれれば、ApplpScript 悪口を言うのは、金輪際いたしません。

if 文は、AppleScript を信用してないからです。

tell application "iPhoto"
    set small to 0
    repeat with aPhoto in (every photo whose width < 400)
        if width of aPhoto < 400 then
            remove aPhoto from album 0
            set small to small + 1
            if small mod 100 = 0 then
                say small
                say "is removed"
                -- empty trash
            end if
        end if
    end repeat
    -- empty trash
    small
end tell

No comments: