tell application "Address Book"
set quoted to (people whose name contains ";")
repeat with aquote in quoted
set nlast to my removeText(first name of aquote, ";")
set nfirst to my removeText(last name of aquote, ";")
set first name of aquote to nfirst
set last name of aquote to nlast
--exit repeat
end repeat
end tell
on removeText(completeTxt, removeTxt)
repeat while completeTxt contains removeTxt
set rePos to the offset of removeTxt in completeTxt
set len to (length of completeTxt)
if rePos is not 0 then
if rePos > 1 then
set tmpTxt to ((characters 1 through (rePos - 1)) of completeTxt) as string
else
set tmpTxt to ""
end if
if rePos + (length of removeTxt) < len then
set completeTxt to tmpTxt & (characters (rePos + (length of removeTxt)) through len of completeTxt) as string
else
set completeTxt to tmpTxt
end if
end if
end repeat
return completeTxt
end removeText
Har försökt använda ovanstående kod för att dels, ta bort semikolon ur namn samt att byta förnamnet mot efternamnet och vise versa. (Dessa problem uppkom när jag importerade från min SE telefon) Problemet är att jag i logfönstret kan se att allt sker på rätt sätt. Men det händer inget i programmet. Har provat att starta om adressboken, men inget händer.
Hjälp?
