Byta förnamn till efternamn i adressboken

Tråden skapades och har fått 1 svar. Det senaste inlägget skrevs .
1
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?

Hmm.. Löste det. Exporterade alla kontakter som v-card. och importerade dem igen

1
Bevaka tråden