Apple

Le 5 janv. 2017 à 20:50, Steve Mills <email@hidden> a écrit :

On Jan 05, 2017, at 01:20 PM, debt <email@hidden> wrote:

On Jan 5, 2017, at 10:53 AM, Steve Mills <email@hidden> wrote:
That's correct. "e" is the error string that resulting from the div by zero. He's just being a showoff. :) Here's a more AppleScripty way of doing it. It replaces the entire try/on error block:

set phoneNumList to phoneNumList as text
set text item delimiters to {","}
set phoneNumList to every text item of phoneNumList

I tried your version but it destroys the list, so Chris may actually be on to something with the try block. :)

Sorry, the delimiters were already set to a non-default value before I ran it, so it worked. If you really want to learn how to do this with AppleScript, experiment and don't use error message hacks (whose content can sure change on a whim of some future update) or Unix commands unless there really is no other way. This'll do it:

set tid to text item delimiters
set text item delimiters to {return}
set phoneNumList to (phoneNumList as text)
repeat while phoneNumList contains return & return
set text item delimiters to {return & return}
set phoneNumList to every text item of phoneNumList
set text item delimiters to {return}
set phoneNumList to phoneNumList as text
end repeat
set text item delimiters to {return}
if last character of phoneNumList is return then set phoneNumList to text 1 thru -2 of phoneNumList
set phoneNumList to every text item of phoneNumList
set text item delimiters to tid

You may shorten your code :

-------------------------------------------------------------------------------------------

tell application "Contacts"

tell group "Famille"

set phoneNumList to value of every phone of every person

end tell

set tid to text item delimiters

set text item delimiters to {return}

set phoneNumList to (phoneNumList as text)

repeat while phoneNumList contains return & return

set text item delimiters to {return & return}

set phoneNumList to every text item of phoneNumList

set text item delimiters to {return}

set phoneNumList to phoneNumList as text

end repeat

set text item delimiters to tid

if last character of phoneNumList is return then set phoneNumList to text 1 thru -2 of phoneNumList

set phoneNumList to paragraphs of phoneNumList

-------------------------------------------------------------------------------------------

I really wish there was a way to filter lists directly in AppleScript. Like why can't this work:

set blah to {"one","","two"}
set blah to every item of blah where it is not ""
-->{"one","two"}

That would make this script so much shorter. Or even:

tell application "Contacts"

 tell group "Family"

 set phoneNumList to value of every phone of (every person whose phones is not {})

end tell

end tell

-------------------------------------------------------------------------------------------

use AppleScript version "2.4"

use framework "Foundation"

use scripting additions

on deleteItem:anItem fromList:theList

set theArray to current application's NSMutableArray's arrayWithArray:theList

theArray's removeObject:anItem

set unionOfArrays to (theArray's valueForKeyPath:"@unionOfArrays.self") as list

return unionOfArrays

end deleteItem:fromList:

tell application "Contacts"

tell group "Famille"

set phoneNumList to value of every phone of every person

end tell

set phoneNumList to its deleteItem:{} fromList:phoneNumList

-------------------------------------------------------------------------------------------

References:
	>Re: Creating a list of numbers from a Contacts group (From: Steve Mills <email@hidden>)