380
Stefano Monti
AppleScript e AppleScript Studio
http://faqintosh.com/faq/380.xml - XML della Faq: http://faqintosh.com/faq/380-data.xml
4899 giorni, 4 ore, 1 minuto
Faq 311 - Posso avere conferma dell'avvenuto invio di un fax, modem o bluetooth modem?
Faq 49 - Posso recuperare la mia precedente Rubrica Indirizzi?
Faq 128 - E' possibile eseguire un backup automatico di rubrica e calendari prima di sincronizzare il cellulare?
Faq 347 - È possibile esportare i singoli contatti della rubrica indirizzi?
property VecchioSeparatore : "*"
property NuovoSeparatore : ","
tell application "Address Book"
activate
set Contatti to every person
repeat with Contatto in Contatti
set Telefoni to every phone of Contatto as list
repeat with Telefono in Telefoni
set QuestoNumero to value in Telefono
set NuovoNumero to my Sostituisci(QuestoNumero, VecchioSeparatore, NuovoSeparatore)
set value of Telefono to NuovoNumero
end repeat
end repeat
end tell
on Sostituisci(Stringa, Cerca, Cambia)
set AppleScript's text item delimiters to Cerca
set Lista to every text item of Stringa
set AppleScript's text item delimiters to Cambia
set NuovaStringa to Lista as string
set AppleScript's text item delimiters to ""
return NuovaStringa
end Sostituisci
Google+ | |
---|---|
|
|