tell application "Address Book" repeat with thisperson in every person set mydelimiter to "<" set delimend to ">" set personnotes to note of thisperson repeat until (offset of mydelimiter in personnotes) is 0 set groupbegin to ((offset of mydelimiter in personnotes) + 1) set groupend to ((offset of delimend in personnotes) - 1) set groupname to text groupbegin thru groupend of personnotes set personnotes to my findAndReplace("<" & groupname & ">", "", personnotes) if not (group groupname exists) then make new group at the end of groups with properties {name:groupname} save addressbook end if add thisperson to group groupname save addressbook end repeat set note of thisperson to personnotes save addressbook end repeat end tell