–15.03.2011 hubionmac.com

–Exports comments to a tab delimited table.

tell application “Microsoft Word”

tell document 1

set myoutput to “Comments of \”" & (name) & “\”" & return & return & “# comment text commented text” & return

repeat with i from 1 to count of every Word comment

–replacing newline characters

set comment_text to content of comment text of Word comment i

set commented_text to content of scope of Word comment i

set myoutput to myoutput & i & “.” & tab & my replace_chars(comment_text & tab & commented_text as text, return, “”) & return

end repeat

end tell

end tell

set the clipboard to myoutput as text

display dialog “List of comment copied to clipboard (ready for Excel or Numbers)” giving up after 2

–insert into textedit for testing

tell application “TextEdit”

set a to make new document

set text of a to myoutput

end tell

on replace_chars(this_text, search_string, replacement_string)

if this_text contains the search_string then

set AppleScript‘s text item delimiters to the search_string

set the item_list to every text item of this_text

set AppleScript‘s text item delimiters to the replacement_string

set this_text to the item_list as string

set AppleScript‘s text item delimiters to “”

end if

return this_text

end replace_chars

tell application “iTunes”

try

set myplaylist to first item of (every playlist whose special kind is Podcasts)

reveal myplaylist

my clickExportPlaylist()

delay 1

set playlistname to my SaveAsOPML()

do shell script “open -a /Applications/TextEdit.app ~/Desktop/” & playlistname

say “GUI Scripting sucks” using “Agnes”

say “It sucks but it works, Agnes” using “Alex”

say “Bla Bla, Alex” using “Agnes”

on error msg

error msg – “There is no Podcast Playlist”

end try

end tell

on clickExportPlaylist()

activate application “iTunes”

tell application “System Events”

tell process “iTunes”

– clicks export Playlist (iTunes 10.1.2)

click menu item 6 of menu 1 of menu item 9 of menu 1 of menu bar item 3 of menu bar 1

end tell

end tell

end clickExportPlaylist

on SaveAsOPML()

activate application “iTunes”

tell application “System Events”

tell process “iTunes”

– clicks Playlist (iTunes 10.1.2)

click pop up button 1 of group 1 of window 1

delay 1

keystroke “O”

delay 0.25

keystroke return

delay 0.25

–switch to desktop folder

keystroke “d” using command down

–this should be a uniq name for this file

set uniqname to (do shell script “date | md5″) & “.opml”

–be sure to overwrite all characters…

keystroke “a” using command down

keystroke uniqname

delay 1

– hit save

keystroke return

– wait until save dialog closed

repeat until name of window 1 = “iTunes”

delay 0.5

end repeat

return uniqname

end tell

end tell

end SaveAsOPML

– hubionmac.com 06.02.2011

– quick&dirty script for exporting contacts as single vCards

–exisiting vCards will not be overwritten by the script, instead new files will 

–get an index like “John Smith 1.vcf”

set doThese to get_item_2_process(true)

tell application “Address Book”

set destination_path to choose folder with prompt “Destination folder for export:”

repeat with doThis in doThese

if first name of doThis is missing value then

set firstname to “”

else

set firstname to first name of doThis

end if

if last name of doThis is missing value then

set lastname to “”

else

set lastname to last name of doThis

end if

if (lastname & firstname) as text = “” then

set namestring to “nobody.vcf”

else

set namestring to (first name of doThis & ” ” & last name of doThis & “.vcf”) as text

end if

set namestring to my checkname_with_pdf_suffix(namestring, destination_path, false)

my writeToFile((destination_path as text) & namestring as text, (get vcard of doThis), false)

end repeat

my display_message(((count of doThese) & ” contact(s) exported”) as text, 3)

end tell

on writeToFile(MacFilePathTxt, txt, add2eof)

–lastedit 18.01.2011

if add2eof is false then

try

do shell script “rm ” & quoted form of POSIX path of (MacFilePathTxt as alias)

end try

end if

set RefNum to (open for access file MacFilePathTxt with write permission)

try

if add2eof is false then

write txt to RefNum

else

write txt to RefNum starting at ((get eof RefNum) + 1)

end if

close access RefNum

return true

on error

close access RefNum

return false

end try

end writeToFile

to get_item_2_process(askwhat)

try

tell application “Address Book”

activate

tell application “System Events”

keystroke “0″ using command down –show address-window not matter what…

end tell

if askwhat is true then

set theaction to button returned of (display dialog “Process all or just selection?” buttons {“All”, “Selection”, “cancel”} default button {“Selection”})

if theaction = “Selection” then

set a to every person whose selected is true

else

set a to people

end if

else

set a to people

end if

end tell

on error msg

error “error on get_item_2_process” & return & msg

end try

end get_item_2_process

to checkname_with_pdf_suffix(n, D, looped)

–check if filename exists in D

– so if “A File.pdf” exists it names it “A File 1.pdf”,”A File 2.pdf”,…

tell application “Finder”

set thefiles to name of every item of (D as alias)

end tell

if thefiles contains n then

if looped = false then

set n to ((characters 1 through -5 of n) & ” 1″ & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

else

set tmp to (last word of ((characters 1 through -5 of n) as text) as integer)

set tmpcount to (count of characters of (tmp as text)) + 5

set tmp to tmp + 1

set n to ((characters 1 through (-1 * tmpcount) of n) & tmp & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

end if

else

return n

end if

end checkname_with_pdf_suffix

on display_message(msgTXT, msgTimeout)

tell application “System Events”

set isRunning to ¬

(count of (every process whose name is “GrowlHelperApp”)) > 0

end tell

if isRunning = true then

tell application “GrowlHelperApp”

– Make a list of all the notification types 

– that this script will ever send:

set the allNotificationsList to ¬

{“Status”}

– Make a list of the notifications 

– that will be enabled by default.      

– Those not enabled by default can be enabled later 

– in the ‘Applications’ tab of the growl prefpane.

set the enabledNotificationsList to ¬

{“Status”}

– Register our script with growl.

– You can optionally (as here) set a default icon 

– for this script’s notifications.

register as application ¬

“Address Book” all notifications allNotificationsList ¬

default notifications enabledNotificationsList ¬

icon of application “Address Book”

–Send a Notification…

notify with name ¬

“Status” title ¬

“Status” description ¬

msgTXT application name ¬

“Address Book”

return true

end tell

else

activate

display dialog msgTXT giving up after msgTimeout

end if

end display_message

##19.01.2011 hubionmac.com

##Insert Tab delimited list (clipboard from Excel)-> Photoshop File (Text Layers)

## and saves each data entry in a separate PSD File

set mylines to tablist(the clipboard as text)

set mylayers to returnTextLayerIndex()

if (count of item 1 of mylines) > (count of mylayers) then

display dialog “You have selected more text columns than text layers…” buttons {“cancel”, “Yep, I know…”} default button {“Yep, I know…”}

else

display dialog “There are more text layers than text columns…” buttons {“cancel”, “Yep, I know…”} default button {“Yep, I know…”}

end if

set outputfolder to chooseOutputFolder()

set filename to 1

repeat with myline in mylines

repeat with i from 1 to count of mylayers

if i ≤ (count of myline) then

my setTextLayer(item i of myline, (item i of mylayers) as integer)

else

exit repeat

end if

end repeat

set thePath to (outputfolder as text) & filename & “.psd”

saveAsPSD(thePath)

set filename to filename + 1

end repeat

activate

display dialog “Done”

################################

on tablist(a)

(**returns something like {{“Hubi1″, “hubi2″, “hubi3″, “hubi4″}, {“Micky1″, “Micky2″, “Micky3″, “Micky4″}, {“Blafasel1″, “Blafasl3″, “”, “”}}

from

Hubi1 hubi2 hubi3 hubi4

Micky1 Micky2 Micky3 Micky4

Blafasel1 Blafasl3

**)

set a to every paragraph of a

set AppleScript‘s text item delimiters to tab

repeat with i from 1 to count of a

set item i of a to ((every text item of item i of a) as list)

end repeat

set AppleScript‘s text item delimiters to “”

return a

end tablist

on returnTextLayerIndex()

–returns the index number of each text layer of current document

tell application “Adobe Photoshop Elements”

tell current document

set myoutput to {}

repeat with i from 1 to count of every art layer

try

get text object of art layer i

set myoutput to myoutput & i

end try

end repeat

end tell

end tell

return myoutput

end returnTextLayerIndex

on setTextLayer(thetext, layerindex)

– display dialog (layerindex & ” ” & thetext) as text

tell application “Adobe Photoshop Elements”

activate

tell current document

set contents of text object of art layer layerindex to thetext

end tell

end tell

end setTextLayer

on chooseOutputFolder()

repeat until 1 = 0

set outputfolder to (choose folder with prompt “Save images in

(only empty folders are accepted):”) as reference

tell application “Finder”

if (count of every item of outputfolder) is 0 then

exit repeat

end if

end tell

end repeat

return outputfolder

end chooseOutputFolder

on saveAsPSD(filePath)

tell application “Adobe Photoshop Elements”

tell current document

–this will replace existing files… be sure that outputfolder is empty

save in file filePath as Photoshop format

end tell

end tell

end saveAsPSD

tell application “iCal”

activate

##wähle eine Kalender aus und ermittle seine UID

## dies ist auch der Ordnername im ~/Library/Calendars in dem die plist mit

## der URL des Kalenders liegt

set callist to (name of every calendar whose writable is false)

set callist2 to (name of every calendar whose writable is true)

set callToExport to (choose from list callist default items (item 1 of callist) with prompt “Exportiere…:”)

set callToImport to (choose from list callist2 default items (item 1 of callist2) with prompt “Importiere in…:”)

if callToExport is not false and callToImport is not false then

set callUID to uid of calendar (callToExport as text)

##nun die URL des Kalenders auslesen

set myurl to (do shell script “defaults read ~/Library/Calendars/” & callUID & “.calendar/Info SubscriptionURL”)

if myurl starts with “webcal” then

set myurl to “http” & (characters 7 through -1 of myurl) as text

end if

##sollte ein kennwort für den Download notwendig sein:

## set myusername to “username”

## set mypassword to “geheim”

## set myurl to “http://” & myusername & “:” & mypassword & “@” & (characters 8 through -1 of myurl) as text

#####

do shell script “cd /tmp;curl ” & myurl & ” > ” & quoted form of (callToExport as text) & “.ics;open ” & quoted form of (callToExport as text) & “.ics”

delay 1

activate application “iCal”

tell application “System Events”

tell process “iCal”

click pop up button 1 of window “Ereignisse hinzufügen”

keystroke (callToImport as text)

delay 0.25

keystroke return

delay 0.25

keystroke return

end tell

end tell

end if

end tell