Et si j'avais rien à dire ?

Alors voilà, si vous aussi, vous avez besoin de modifier ou corriger des numéros de téléphone dans Carnet d'adresses (Address Book) sous Mac OS X, vous allez voir que corriger toutes les fiches séquentiellement avec AppleScript n'a rien de sorcier. C'est même plutôt facile.

-- On initialise une variable pour créer un compte-rendu.
set resultatText to "" as string

tell application "Address Book"
	-- Récuperer une à une les fiches du carnet d'adresses
	repeat with FicheContact in (get people)
		tell FicheContact
			-- Récuperer pour chaque fiche ses numéros de téléphone
			set MesNumeros to phones
			-- Si il y a des numéros à analyser...
			if MesNumeros is not {} then
				-- Alors pour chaque numéro...
				repeat with J from (count MesNumeros) to 1 by -1
					tell item J of MesNumeros
						-- Si le numéro commence par 33 (indicatif international de la France)
						if value begins with "33" then
							-- Alors on rajoute le + manquant
							set value to "+" & value
							-- Et on rajoute une ligne dans le compte-rendu
							set resultatText to resultatText & name of FicheContact & " : " & (value as string) & return
						end if
					end tell
				end repeat
			end if
		end tell
	end repeat
end tell

-- et on ouvre le compte-rendu dans TextEdit
tell application "TextEdit"
	make new document with properties {text:resultatText}
	activate
end tell

Alors, c'est pas si compliqué ? Pas besoin d'enregistrer, pas besoin de charger des modules, pas besoin de compiler le programme... Je sens que j'ai pas fini de m'amuser.

That's all, folks.