Script per eliminare tutti i gruppi nei contatti

2

Mi piacerebbe avere uno script per eliminare tutti i miei gruppi nei miei Contatti. In qualche modo ho avuto una specie di bug di replica che ha provocato oltre 500 gruppi.
Eliminarli uno per uno non è un'opzione.

Ho provato questo script, ma non fa il lavoro, devo inserire molti nomi di gruppo e dopo un po 'il sript si ferma anche quando non tutti i gruppi sono stati cancellati.

tell application "Contacts" 
repeat 50 times 
set theGroup to group "MyGroupName" 
delete theGroup 
end repeat 
save
end tell

Qualsiasi aiuto sarà molto apprezzato.

    
posta James 30.09.2012 - 18:39
fonte

1 risposta

6

Il motivo per cui lo script non cancella tutti i gruppi fasulli è che si ripete solo 50 volte, quindi ne eliminerà solo 50 in una volta.

Questo script cancella ogni gruppo con il nome che hai inserito (ti chiede con una finestra di dialogo) finché non ne trova più:

set counter to 0
display dialog "Name of group to delete?" default answer ""
set theGroupName to text returned of result
tell application "Contacts"
    repeat
        try
            set theGroup to group theGroupName
            delete theGroup
            set counter to counter + 1
        on error
            exit repeat
        end try
    end repeat
    save
    display dialog "Removed " & counter & " instances of the group" with icon caution buttons {"OK"} default button "OK"
end tell
    
risposta data 01.10.2012 - 02:21
fonte

Leggi altre domande sui tag