Basic AppleScript Dialog: display dialog "Your text here" with icon stop buttons {"OK"} default button {"OK"} giving up after 5
'giving up after 5' will automatically close the script after the indicated interval of time has elapsed.
|
 Sometimes it’s nice to just eliminate some typing when creating html documents, especially when you write your HTML by hand (as I do). Even if it is just for the sake of setting up the initial template so you can get down to the details more efficiently.
Copy this into your Script Editor and be sure to save it as an application.
on open (dropDocument)
set dropInfo to (info for dropDocument)
set dropType to (kind of dropInfo)
if name of dropInfo contains ".html" or name of dropInfo contains ".htm" then
display alert "This is an HTML document!" message "Drop a text document on this droplet!" as warning buttons {"Abort"} default button 1 giving up after 10
else if dropType contains "document" then
tell application "AppleWorks 6"
activate
open dropDocument
set htmlData to ""
repeat with x from 1 to (count paragraphs of document 1)
set htmlData to htmlData & (paragraph x of document 1 & "")
end repeat
set docRefText to "Converted to HTML"
set htmlBody to htmlData
set htmlData to "" & return & "" & return & "--" & docRefText & return & "" & return & "" & return & htmlBody & return & "" & return & ""
make new document at front with data htmlData with properties ¬
{document kind:text document, name:"Converted to HTML.html"}
end tell
end if
end open
If you have any questions about AppleScript, contact me at: hyperscripter@gmail.com or http://twitter.com/hyperscripter or to subscribe, click the By Email link at the top of the page.
|
 
HTML Guide from Peachpit Press
  iPhoto 6 Create Multiple Folders with Terminal
If you are more of a techy kind of person and are comfortable with using Terminal, here is a script you can use to easily create multiple folders:
First, for a single folder, type in: mkdir "Folder 1"
--or whatever you want to name your folder, this creates a new directory, which, in effect is a new folder.
To place multiple items in the 'Documents' folder:
cd/Users/
Administrator/
Documents
mkdir "Folder 1" "Folder 2"
"Folder 3"
To quickly create multiple folders, create a text file with the desired folder names (as many as you want) and name it something like 'folderList.txt'. Next type this in Terminal:
cat folderList.txt |xargs mkdir
Or you could create folders with the same prefix by entering:
mkdir "Invoices " {"Corporate", "Individual", "Pro-Bono"}
Digg This!! An AppleScript to Verify a Date Run this in the Script Editor:
set dateRecord to (current date)
set defaultDate to (date string of dateRecord)
try
set apptDate to text returned of (display dialog "Enter appointment date:" default answer defaultDate buttons {"Set"} default button {"Set"})
set datetext to apptDate as text
date apptDate --if an invalid date is entered, the next dialog is aborted and it triggers the error alert below.
display dialog datetext & " is a valid date." with icon note buttons {"OK"} default button {"OK"}
on error
set alertText to "An error has occurred!"
set messageText to quote & datetext & quote & " is an invalid date."
display alert alertText message messageText as warning buttons {"OK"} default button "OK" giving up after 15
return
end try
|
 Concept Drawing for iMac prior to Production Fun HTML Use this to add interest to your pages, but be careful, if you overdo it, it can make your page look gaudy, if not ridiculous!
Here's is the code as it appears above:
<p align="center" style="padding: 5px; background-color: #FFCE9C; border: dotted 5px #FFCE9C;"><marquee width=20% behavior=scroll direction=left loop=infinite> Latest Headlines... </marquee><blink>Read All About It</blink>/p>
Check out this color HTML!!! AppleScript for Setting System Volume Copy and paste this into the Script Editor and try it out:
set defaultVolume to "3"
set volumeLevel to text returned of ¬
(display dialog ¬
"Set the system volume to (7 is the highest):"¬
default answer defaultVolume with icon note¬
buttons {"OK"} default button "OK") as integer
set volumeValues to {0, 1, 2, 3, 4, 5, 6, 7} ¬
as list
if volumeLevel is not in volumeValues then ¬
set volumeLevel to defaultVolume
tell application "Finder"
try
set volume volumeLevel
beep 2
on error errDlog
display dialog errDlog with icon stop ¬
buttons {"Abort"} default button ¬
"Abort" giving up after 15
end try
end tell Earn Wealth on Internet
Learn Tips and Tricks to Making Money on the Internet
www.internetwealth.com
Learn How To Make Money Blogging - Blog Mastermind
Six-figure Yaro Starak Teaches You How To Set Up And Profit From A Successful Blog. Start Making Money From Blogs By Following This Step-by-step, Weekly Coaching Program
http://www.blogmastermind.com/coaching/
Seo Elite: New Seo Software!
The Grand Daddy Of All Seo Software!
Get A Top 5 Google Ranking In Under 30 Days!
http://www.seoelite.com/
Turn Your Photos Into Cash
All You Need Is A Digital Camera, A Computer And An Internet Connection To Get Started Making Extra Income Every Month!
http://turnyourphotosintocash.com/
Infinite Income Plan - Instant Wealth Guide & CDs.
Easy Money For Affiliates, Huge 8.3% Conversions On Generic Traffic. Massive 70% Commissions Plus
HyperCard AppleScript Users:
Heres an AppleScript for backing up a selected group of HyperCard files. this was used in one of my HyperCard stacks, but could be adapted for use in OSX programs with little or no modification:
send "suiteBkp(true)" to bg btn "BackupSuite"
--Use this line to call the handler below (true displays a notification dialog when the process is complete, you must have a button named bg btn "BackupSuite"):
on suiteBkp(theBoolean)
copy line 1 of field "selectedFolder" to theHFFolderPath --You'll need a hidden field named "selectedFolder" that a script (prior to the call) will place the path to the desired folder in.
tell application "Finder"
activate
set todaysDate to (current date)
set bkpYear to (year of todaysDate)
set monthlyBkp to ("Monthly Reports_" & bkpYear) as string
if exists (folder "HyperCard Backup") then
select folder "HyperCard Backup"
delete selection
end if
if exists (folder "HyperCard Backup" of folder theHFFolderPath) then
select folder "HyperCard Backup" of folder theHFFolderPath
delete selection
end if
make new folder at folder theHFFolderPath with properties {name:"HyperCard Backup"}
select {file "Appointments" of folder theHFFolderPath, ¬ file "HyperFile" of folder theHFFolderPath, ¬ file "Outstanding Invoices" of folder theHFFolderPath, ¬ file "Year" of folder theHFFolderPath, ¬ file monthlyBkp of folder theHFFolderPath, ¬
copy selection to folder "HyperCard Backup" of folder theHFFolderPath
select folder "HyperCard Backup" of folder theHFFolderPath
select file "Appointments" of folder ¬ "HyperFile Suite Backup" of folder theHFFolderPath
set name of selection to "Appointments.bkp"
select file "HyperFile" of folder "HyperCard Backup" of ¬ folder theHFFolderPath
set name of selection to "HyperFile.bkp"
select file "Outstanding Invoices" of ¬ folder "HyperFile Suite Backup" of folder theHFFolderPath
set name of selection to "Outstanding Invoices.bkp"
select file "Year" of folder "HyperFile Suite Backup" of ¬ folder theHFFolderPath
set name of selection to "Year.bkp"
set prefMonthlyBkp to (monthlyBkp & ".bkp") as string
select file monthlyBkp of folder "HyperFile Suite Backup" of ¬ folder theHFFolderPath
set name of selection to prefMonthlyBkp
select folder "HyperFile Suite Backup" of folder "The HyperFile Folder"
move selection to desktop
end tell
if theBoolean = "true" then
tell application "HyperCard"
activate
display dialog ¬ "Your backup has been saved to desktop." buttons {"Done"} default button {"Done"} with icon 129 giving up after 10
end tell
end if
end suiteBkp
 Macintosh Plus (late 1984), followed close behind the Mac 512k
 The classic Apple IIc (1981), part of a series of Apple computers that preceded the debut of the Macintosh HyperCard Users Corner:
Here's a simple, but very useful little HyperTalk script for verifying the validity of a date entered by a user, assuming that you have a menu item "flag date..." (or whatever you choose to name it) or it could be altered slightly and placed within a mouseUp statement:
if menuItem = "Flag Date..." then
global tryDate
ask "Enter a date for your new appointment:" with the long date
if it ≠ "" and the result ≠ "Cancel" then
put it into tryDate
else
put "" into tryDate
exit doMenu
end if
if invalidDate() then
answer "The date entered is not valid!"
put "" into tryDate
exit doMenu
end if
--Here you would put the statements to execute if the entered date proves to be valid
put "" into tryDate
end if
function invalidDate
global tryDate
convert tryDate to short date
if the result = "invalid date" then
return true
else
return false
end if
end invalidDate
more HyperTalk
  Mac SE (circa 1987), was a more advanced version of the Mac Plus and had an internal hard drive. YouTube Video Search Script:
tell application "Finder"
try
set webSearch to text returned of (display dialog "Enter YouTube Video
Search" default answer "" buttons {"Search", "Cancel"} default button 1)
open location "http://www.youtube.com/results?search_query=" & webSearch
on error theError
display dialog theError
end try
end tell |
sperm motility morphology low sperm count motility how to improve sperm quantity improve sperm motility naturally causes of low sperm morphology ayurvedic treatment for low sperm count can low sperm count cause miscarriage how to make your body produce more sperm how to increase ejaculate amount sperm gain increasing sperm morphology increase sperm count in men ejaculate without erection ejaculate sperm count how do you ejaculate sperm increase seminal naturally how long to build sperm increase sperm count infertility low ejaculate volume causes improve ejaculation distance
Medicamentspot.com International Legal RX Medications. Special Internet Prices (up to 40% off average US price). NO PRIOR PRESCRIPTION REQUIRED!…
Combivir@buy.online” rel=”nofollow”>.…
I love this site and just wish I was as smart as you guys but maybe I can at least give you a smile?
When someone points skyward, it’s the fool that looks at the finger.
Noted your website that came from the neighbors Fb hyperlink, plainly you could have developing fanbase but i also now undertsand the sole reason why Incredibly educational post, many thanks one million.
Happy to get visiting your wordpress blog again, its been weeks for me. Well, this is actually the news that I’ve been waited for so long.
Noted your website out of your friends Fb connection, it appears that evidently you encounter establishing fanbase but i also at present undertsand the reason why Tremendously educational information, many thanks again one million.
I have been very pleased to find this site.I truly wanted to thank you for this great read!! I finaly enjoying every portion of it but i maybe you haven t share to find new stuff from you post.
The sense of wanting to assist, however not finding out how and the place, is one thing a range of us are going through.
Thanks, You probably haven’t purported to accomplish that, however I believe you have could express the mind-set that lots of individuals are really in.
Best wishes on having one of the most luxurious forums Ive stumble upon in certain time frame! Its just extraordinary simply how much you are able to reduces from one thing due to the fact of precisely how to the eye beautiful it really is. Youve compiled a good site area –great graphics, movies, layout. This is definitely a must-see site!
Thank you your particular marvelous posting! I seriously loved analyzing it, you actually are a terrific person responsible.I will be certain that I bookmark your wordpress blog and can come back in the foreseeable prospective. I want to encourage maintain one’s fantastic job, have got a nice morning hours!
My hope may be that some parts of our community may possibly be fascinated by submitting their activity rendering possible presentation along at the conference.
I have been very glad to find this site.I really wanted to thank you for this great read!! I definitely enjoying every portion of it and I have you ever share to check out new stuff from you post.
Hi there, I do think your website could be having mozilla firefox browser compatibility issues. When I look at your weblog in Trip, this indicates great but when prospect in World wide web Voyager, it uses a few overlapping. I basically planned to allow a immediate minds up! Other in that case that, superb weblog!
Siteniz çok güzel olmuş.
I basically tweeted your website and wished to feel that I have really enjoyed reading your website posts. In any case I’ll be subscribing to your feed rss now, thanks
The sense of wanting to assist, however not determining how and the place, is one area a range of us have undergone.
I like the helpful info you provide in your articles.
I will bookmark your weblog and check again here regularly. I am quite certain I’ll learn lots of new stuff right here! Best of luck for the next!
Best Regards Cindy
The sense of planning to assist, however not determining how or the place, are some things a variety of us already went through a.
Awesome post! I am definitely gunna share it on Facebook, I am interested see what all my friends think.