Hi Jim,
try:
tell application "Keynote"
set docsPathes to the path of every slideshow
set PathOutput to ""
repeat with echItm in docsPathes
set PathOutput to PathOutput & echItm & return as string
end repeat
-- take out the last return
set PathOutput to characters 1 through -2 of PathOutput as string
return PathOutput
end tell
a return delimited list of the pathes, if a slideshow is open which is not
saved yet it returns missing value. on system 10.5.6 it returns the posix
form of the pathes (/xxx/xxx), older versions might return the mac-style
(xxx:xxx)
To return mulitple lists to Rev you can concatenate them into one list and
take them apart on the rev side or do multiple applescript calls.
about the Sainthood thing, well didnt they all get killed before they
reached that state? :)
In that case lets wait a little.
regards
Bernd
Jim Sims wrote:
>
> Thanks Bernd and Jim Ault! The List is awesome.
>
> The following is exceptional, thanks.
>
> Complete Sainthood will apply if you can do one that returns the path
> to those files ;-)
> I'm sure I asking way too much now.
>
> sims
> ------------------------------------------------
> On Mar 11, 2009, at 11:13 PM, Jim Ault suggested the way to do the
> following:
>
> tell application "Keynote"
> set the docsAsItemList to every slideshow
> --now we have a Applescript list of all the docs
> set docItemCnt to the number of items in docsAsItemList
>
> set nameslistViaWithEach to {}
> repeat with thisDocItem in docsAsItemList
> copy the name of thisDocItem to end of nameslistViaWithEach
> end repeat
>
> --or--------------
> set namesListViaWithX to {}
> repeat with x from 1 to number of items in the docsAsItemList
> copy the name of item x of docsAsItemList to end of
> namesListViaWithX
> end repeat
>
> end tell
> set output to docItemCnt
>
> repeat with echItm in docsAsItemList
> set output to output & return & the name of echItm as string
> end repeat
> --of course this repeat could be done with either of the 3 lists we
> have defined and gathered
> --docsAsItemList, nameslistViaWithEach, namesListViaWithX
>
> return output -- this is formatted without quotes except char 1 and
> char -1
>
>
>
> _______________________________________________
> use-revolution mailing list
> [email protected]
> Please visit this url to subscribe, unsubscribe and manage your
> subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-revolution
>
>
--
View this message in context:
http://www.nabble.com/applescript---repeat-%09if-exists-document-x-tp22463496p22473019.html
Sent from the Revolution - User mailing list archive at Nabble.com.
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
