applescript book

Apple Automator 2009
with AppleScript Bible

set randNumber to (random number (20)) as integer

if (randNumber > 10) then
	display dialog randNumber
end if

set theTime to "now"

if (theTime = "now") then
	display dialog "Fly!"
end if

set randNumber to (random number (20)) as integer
if (randNumber > 10) then
	display dialog "More than 10: " & randNumber
else
	display dialog "10 or less: " & randNumber
end if

set randNumber to (random number (20)) as integer
if (randNumber > 10) then
	display dialog "More than 10: " & randNumber
else if (randNumber ≥ 7 and randNumber ≤ 9) then
	display dialog "Between 7 & 9: " & randNumber
else if (randNumber ≥ 3 and randNumber < 7) then
	display dialog "Between 3 and 6: " & randNumber
else
	display dialog "It’s a 0, 1, or 2: " & randNumber
end if

repeat
	display dialog ¬
		"Please enter your first name:" default answer ""

	set firstName to text returned of result

	if firstName is not equal to "" then exit repeat

end repeat

repeat 3 times
	display dialog ¬
		"Please enter your first name:" default answer ""

	set firstName to text returned of result

	if firstName is not equal to "" then exit repeat
end repeat

if firstName = "" then display dialog ¬
	"You never gave us your first name!"

tell application "Finder"
	repeat with incrementValue from 1 to 3
		make new folder at desktop with properties ¬
			{name:incrementValue as string}
	end repeat
end tell

tell application "Finder"
	repeat with incrementValue from 1 to 50 by 5
		make new folder at desktop with properties ¬
			{name:incrementValue as string}
	end repeat
end tell

tell application "Finder"
	repeat with incrementValue from 10 to 1 by -1
		make new folder at desktop with properties ¬
			{name:incrementValue as string}
	end repeat
end tell

set loopCounter to 1
repeat until loopCounter = 30
	display dialog loopCounter
	set loopCounter to loopCounter + 1
end repeat

set firstName to ""
repeat until firstName is not equal to ""
	display dialog ¬
		"Please enter your first name:" default answer ""
	set firstName to text returned of result
end repeat

set myLogFile to (path to desktop as string) & "test.log"

tell application "Finder"
	repeat while (file myLogFile exists) = false
	end repeat
end tell

display dialog "The log file is on the desktop!"

set myList to {"dogs", "cats", "cars", "planes", "food"}

tell application "Finder"
	repeat with noun in myList
		make new folder at desktop with properties ¬
			{name:noun as string}
	end repeat
end tell

set destFolder to (path to current user folder)

display dialog "New Folder Name" default answer ""
set newFolder to the text returned of result

tell application "Finder"
	if (exists folder newFolder of destFolder) then
		display dialog "Sorry, that folder exists!"
	else
		make new folder at destFolder ¬
			with properties {name:newFolder}
		display dialog "New folder created!"
	end if
end tell

repeat with myvol from 1 to 10
    set volume myvol
    beep
    delay 1
end repeat

display dialog ¬
    "AppleScript rocks!" buttons {"Meh", "Right on!"} ¬
        default button "Right on!"

display dialog ¬
    "AppleScript rocks!" buttons {"Meh", "Right on!"} ¬
        default button 2

display dialog "what is your favorite color?" ¬
    default answer "blue"

display dialog ¬
	"what is your favorite color?" buttons {"blue", "red", "yellow"} ¬
	default button "blue"

set myColor to button returned of result
display dialog myColor

choose folder with prompt ¬
    "Choose a folder:" ¬
        default location (path to desktop folder)


choose folder with prompt ¬
    "Choose a folder:" ¬
        default location (path to desktop folder) ¬
    with multiple selections allowed

set myFiles to ¬
    choose file with prompt ¬
        "Choose file(s):" default location (path to documents folder) ¬
    with multiple selections allowed

set myList to {"red", "blue", "yellow", "green", "orange", "purple"}
choose from list myList


set myList to {"red", "blue", "yellow", "green", "orange", "purple"}
choose from list myList
set myColor to item 1 of result


set myList to {"red", "blue", "yellow", "green", "orange", "purple"}
choose from list myList ¬
    with prompt ¬
        "Favorite color?" default items {"blue"} ¬
    with multiple selections allowed
    set myColor to result

choose application with prompt ¬
    "Launch application(s)" ¬
    with multiple selections allowed

on addTwo(x, y)
    return x + y
end addTwo
display dialog addTwo(20,50)


set myListCount to count of {"eggs", "milk", "bread"}
set myRandom to (random number 100)

display dialog addTwo(myListCount, myRandom)
on addTwo(x, y)
    return x + y
end addTwo

on factorial(x)
    if x > 0 then
        return x * (factorial(x - 1))
    else
        return 1
    end if
end factorial

display dialog factorial(3)

set mathlib to (load script file ¬
"myerman:library:scripts:myerman:mathlib.scpt")

tell mathlib
    factorial(10)
end tell

on createFolder(newFolder, ExistingFolder)
    tell application "Finder"
        make new folder at folder ExistingFolder ¬
            with properties {name:newFolder}
    end tell
end createFolder

set myFolder to text returned of ¬
    (display dialog ¬
        "Choose new folder name" default answer "test")

set myDesktop to choose folder with prompt ¬
"Save folder in location" ¬
default location (path to desktop folder)
createFolder(myFolder, myDesktop)

on createFolder(newFolder, ExistingFolder)
    tell application "Finder"
        make new folder at folder ExistingFolder ¬
        with properties {name:newFolder}
    end tell
end createFolder

on trashIt(itemPath)
    tell application "Finder"
        delete item itemPath
    end tell
end trashIt

set myDesktop to ¬
    (choose folder with prompt ¬
    "Choose a folder" default location (path to desktop folder))

set counter to countFolderItems(myDesktop)
display dialog counter

on countFolderItems(folderName)
    tell application "Finder"
        set theFolder to (folder folderName)
        set myCount to the count of (every item of theFolder)
        return myCount
    end tell
end countFolderItems

set myFile to choose file
set mySize to ¬
    size of (info for myFile) as string
display dialog (myFile as string) & ¬
return & "size: " & mySize

set myFiles to ¬
choose file with multiple selections allowed
getSizes(myFiles)

on getSizes(files_)
    set myString to ""
    repeat with file_ in files_
        set myFile to ((file_ as string) & return ¬
            & "size: " & size of (info for file_) ¬
            as string) & return & return
        set myString to myString & myFile
    end repeat
display dialog myString
end getSizes

https://files.cnblogs.com/files/Searchor/AppleAutomatorwithAppleScriptBible.zip

tell application "Finder"
    try
        set desktop picture to file (file_ as text)
    on error
        display dialog "Invalid file!" with icon 0
    end try
end tell