On 09/Feb/2010, at 17:09 , Christiaan Hofman wrote:
>
> tell document 1 of application "BibDesk"
> set theKeys to {}
> set theDuplicateKeys to {}
> set theDuplicates to {}
> repeat with thePub in publications
> set theKey to cite key of thePub
> ignoring case
> if (theKeys contains theKey and theDuplicateKeys does not
> contain theKey) then
> set theDuplicates to theDuplicates & (get publications whose
> cite key is theKey)
> set end of theDuplicateKeys to theKey
> end if
> set end of theKeys to theKey
> end ignoring
> end repeat
> set selection to theDuplicates
> end tell
>
> Christiaan
Thanks. In the meantime I came up with the following "recyling" some
of your previous inputs. Any idea which one would be more efficient?
tell first document of application "BibDesk"
set thePubs to (sort (get publications) by
"Cite Key" subsort by
"Date-Added" without ascending)
set theDupes to {}
set prevCiteKey to missing value
set prevPub to missing value
repeat with aPub in thePubs
set aCiteKey to cite key of aPub
if aCiteKey is prevCiteKey then
if (not (prevPub is missing
value)) and (theDupes does not
contain {prevPub}) then
set end of theDupes to
prevPub
end if
set end of theDupes to aPub
end if
set prevCiteKey to aCiteKey
set prevPub to aPub
end repeat
end tell
set selection to theDupes
Andreas
------------------------------------------------------------------------------
The Planet: dedicated and managed hosting, cloud storage, colocation
Stay online with enterprise data centers and the best network in the business
Choose flexible plans and management services without long-term contracts
Personal 24x7 support from experience hosting pros just a phone call away.
http://p.sf.net/sfu/theplanet-com
_______________________________________________
Bibdesk-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/bibdesk-users
