Synchronisieren von Adressbuch-Einträgen die nur Telefonnummer enthalten

Ich hatte ein Mobil-Telefon, das ich immer mit iSync synchronisiert habe. Dort gab es eine Option die es erlaubte, nur Telefonbuch-Einträge zu synchronisieren, die Telefonnummern enthielten. Seit ich ein iPhone habe, musste ich bemerken, das diese Option nicht mehr existiert. Also warum keine intelligente Gruppe für diese Methode nutzen?! Da diese nicht mit dem iPhone synchronisiert werden. Aber ich wollte auch die Email-Adressen und die anderen Details.
Ich schrieb also ein AppleScript, dass dann eine reguläre Adressbuch-Gruppe nur mit Leuten aktualisiert, die eine Telefonnummer haben. Dies funktionierte sehr gut. Nach einer Weile wollte ich einige Namen nicht angezeigt bekommen (Leute, dessen Telefonnummer man zwar notiert hat aber nie anruft oder eben Namen, die man beim Herunterblättern nicht angezeigt bekommen möchte). Ich erzeugte eine Gruppe und nannte sie Not Phone und modifizierte mein Schippt dahingehend, sodass sie aus der Telefongruppe entfernt wurde.
Das folgende Schippt erzeugt diese Gruppen für Sie. ACHTUNG: Wenn Sie bereits eine Gruppe mit selben Namen haben, empfehle ich, diese Gruppe umzubenennen (oder ändern Sie den Gruppennamen in der ersten Kode-Zeile des Scripts), da diese Gruppe sonst modifiziert wird.. Hier ist der Kode:

property thePhoneGroup : ”Phone”
property theNotPhoneGroup : ”Not Phone”
on createGroup(str)
  tell application ”Address Book”
    try
      get group str
    on error
      make new group with properties {name:str}
      save
    end try
  end tell
end createGroup
tell application ”Address Book”
  my createGroup(thePhoneGroup)
  my createGroup(theNotPhoneGroup)
    
  set allContacts to every person
  
  repeat with p in allContacts
    if (count of phone of p) is 0 then
      -- Dont have a number
      -- if they are in the group then remove them
      if (name of groups of p contains thePhoneGroup) then remove p from group thePhoneGroup
    else
      -- They have a number, add to the group
      if (name of groups of p does not contain thePhoneGroup) then
        add p to group thePhoneGroup
      end if
      if (name of groups of p contains thePhoneGroup and name of groups of p contains theNotPhoneGroup) then remove p from group thePhoneGroup
    end if
  end repeat
  save
end tell