Apple

This does the trick purely in AppleScript using the Satimage OSAX:

If I was going to use the Satimage.osax ( which I often do :), I'd do it this way for sheer simplicity:

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

tell application "Contacts" to tell every group to ¬

set phoneNumList to value of every phone of every person

try

phoneNumList / 0

on error errorMessage

set phoneNumList to change "\"" into linefeed in errorMessage

set phoneNumList to find text "^.*\\d.+" in phoneNumList with regexp, all occurrences and string result

   # join is a command from the Satimage.osax (comment-out to retain the list object):

set phoneNumListStr to join phoneNumList using linefeed

end try

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