Я хотел бы иметь скрипт для удаления всех моих групп в моих контактах. Каким-то образом я получил своего рода ошибку репликации, в результате которой было более 500 групп.
Удалять их по одному не вариант.
Пробовал этот скрипт, но он не работает, мне нужно вводить названия многих групп, и через некоторое время скрипт останавливается, даже если не все группы были удалены.
tell application "Contacts"
repeat 50 times
set theGroup to group "MyGroupName"
delete theGroup
end repeat
save
end tell
Любая помощь будет высоко ценится.
Причина, по которой скрипт не удаляет все фиктивные группы, заключается в том, что он повторяется только 50 раз, поэтому он удалит только 50 за один раз.
Этот сценарий удалит каждую группу с введенным вами именем (он запрашивает вас в диалоговом окне), пока не сможет найти больше:
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
Джеймс
пользователь52945