Beginning AppleScript®

A.5. Chapter 5

A.5.1. Exercise 1 solution

-- Counting special characters

set theText to "AppleScript is a flexible language that allows you to easily work
      with elements in strings and lists."

set wordChars to 0
-- sequence through each word in the string

repeat with theWord in (get every word in theText)
    set wordChars to wordChars + count theWord
end repeat

-- log the Answer

set specialChars to (count theText) - wordChars
log "There are " & specialChars & " special characters in the text."

A.5.2. Exercise 2 solution

No answer shown.

A.5.3. Exercise 3 solution

-- Get the last ocmponent in a path

set myPath to "Macintosh HD:Users:steve:mysrc:scripts:ch05:enum1.scpt"

-- save the old delimiters and change to a :

set saveTextItemDelimiters to text item delimiters
set text item delimiters to ":"

-- get the last text item; if it's null, get the one before it

set component to text item −1 of myPath
if component = "" then
    set component to text item −2 of myPath
end if

log component

-- restore the old delimiters

set textItemDelimiters to saveTextItemDelimiters

A.5.4. Exercise 4 solution

Here's the output from the Event Log:

(*Don't get*)
(*t get *)
(*thru!*)
tell current application
    offset of "from" in "Don't get from-to mixed up with thru!"
11
    (*Don't get *)
    (*D, o, n, ', t,  , g, e, t,  *)
end tell

A.5.5. Exercise 5 solution

-- count the number of occurrence of a word set searchWord to "the" set someText to "The word \"the\" is the most common word in the English language" set wordCount ...