applescript, щоб знайти контакти, які не входять до жодної групи

Я використовую сценарій, який більше не працює в гірському леві, хоча я змінив слова "адресна книга" на "контакти".

Якщо ви виберете всі контакти, а потім скористаєтеся сценарієм, він знайде всі ті контакти, які не є для вас групою. Короткий сценарій доступний за підказками MacOSX:

http://hints.macworld.com/article.php?story=20051126084705352

Чи може хтось змінити це, щоб він знову працював? Заздалегідь спасибі.

Спробуйте це, у мене величезний список контактів, тому тестування його повністю на моєму займе мільярд років. Але початкові тести працюють

Такі сценарії справді зручні лише в невеликих списках, оскільки накладні дані з усіма повторюваними експоненціальні тим більше, чим вони отримують.

property orphan : "Orphans"

tell application "Contacts"
    if not (exists group orphan) then

        (*Create the new group*)
        make new group at the end of groups with properties {name:orphan}
    end if

    --set thePeople to first person whose first name is "TEST"
    (*get all entries*)
    set thePeople to every person

    (*iterate through the entries*)
    repeat with i from 1 to number of items in thePeople

        (*get the entry*)
        set this_person to item i of thePeople

        (*get the entries group list *)
        set inGroup to name of group of this_person

        if inGroup is {} then
            (* entry is not in any group*)
            add this_person to group orphan
            save


        else if inGroup contains "Orphans" and inGroup is not equal to {"Orphans"} then
            (*if entry is already in a group/s then check it is not also in¬
             Orphans or only in orphans*)

            (* entry is in orphans and another group so remove it from orphans*)
            remove this_person from group orphan
            save
        end if
    end repeat
    save
end tell