Simplification for Text-apps

This message is not archived

Hey, M.

my script is thinked for only use with Text-applications, how
described in the first article of this post (..where purpose is to
save Documents of Text-applications with the title as name in front
window of Finder )I've see that Applescripts are always to control or
to adjust after system updates, so the results of my functional script
can be different on better of lower operation systems, it can produce
errors.

>What happens if the frontmost application is not a text application, so
>the document doesn't have any paragraphs?

Ok, you can insert a list of all text-apps where you use, before the

>tell application x

like:
----------------------
set text_apps to {"Script Editor", "TextEdit", "VoodooPad"}--ect.

if x is in text_apps then
tell application x (...)
----------------------

>What happens if there aren't
>any open windows in that application?

Ok, in this case the script tryes to execute the given commands, and
whenever results a error, the entire script stops automatically in the
try-routine.

> try
> set p1 to (paragraph 1 of document 1 as text)
> on error
> set p1 to (paragraph 1 of window 1 as text)
> end try

the next step in this script is to discover the default name extension
where uses your activ Textapp, where solves both problems:

>c) the open front document will not recognize the path, it saves a
>copy with all properties -name and contents
> (is not so important, but not desired)
>d) it adds no default extension to the saved copy

If you have a ideas?

a little update of the script. i hope thats helpful for others too!
* now, the script searches down to 9 paragraphs for the title, if
every other paragraphs are empty, collecting all words from this
paragr. only



--Test hh f ff

tell application "System Events"
set x to name of every process whose frontmost is true
set x to x as text
end tell
tell application "Finder"
if exists windows then
set y to (folder of front window as text)
else
set y to (desktop as text)
end if

end tell

tell application x
activate application x
set cl to ""
try
set pg to document 1
on error
set pg to window 1
end try
tell pg
if pg is not "" then
set w1 to word 1 as text
set paras to {123456789} as string
repeat with i from 1 to count characters in paras
set this_word to character i of paras as number
if w1 is in paragraph this_word then
set this_word to (this_word as number)
repeat with i from 1 to count words in paragraph this_word
set this_w to word i of paragraph this_word
if cl is "" then
set cl to this_w & space
else if cl ≠ i then
set cl to cl & this_w & space
else if cl = i then
set cl to cl & this_w
end if
end repeat
--display dialog (cl as text)
end if
end repeat

set the_path to (y & cl)

try
set name of document 1 to cl
save document 1 in the_path
on error
set name of window 1 to cl
save window 1 in the_path
end try
end if
end tell
end tell

A new update.. the script might be functional, only the save.. command
works in a second time (you must activate this script 2 times to
become the result, grunt.....)any ideas??




--Test hh f ff

tell application "System Events"
set x to name of every process whose frontmost is true
set x to x as text
end tell
tell application "Finder"
try
set y to (folder of front window) as text
on error
set y to desktop as text
end try
end tell

set text_apps to {"Script Editor", "TextEdit"} --ect.

if x is in text_apps then
tell application x
activate application x
set cl to ""
try
set pg to document 1
on error
set pg to window 1
end try
tell pg
if pg is not "" then
set w1 to word 1 as text
set paras to {123456789} as string
repeat with i from 1 to count characters in paras
set this_word to character i of paras as number
if w1 is in paragraph this_word then
set this_word to (this_word as number)
repeat with i from 1 to count words in paragraph this_word
set this_w to word i of paragraph this_word
if cl is "" then
set cl to this_w & space
else if cl ≠ i then
set cl to cl & this_w & space
else if cl = i then
set cl to cl & this_w
end if
end repeat
end if
end repeat
if x = "TextEdit" then
set the_str to "
formatted text= rtf
text and pictures= rtfd
unformatted text= txt"
set butt to {"rtf", "rtfd", "txt"}
else if x = "Script Editor" then
set the_str to "
script document= scpt
script droplet= app
script text= applescript"
set butt to {"scpt", "app", "applescript"}
end if
display dialog "in what format want you to save the document ?" &
return & the_str & return buttons butt default button 1
set xt to the button returned of the result
set the_path to (y & cl & "." & xt)
--display dialog the_path
try
set name to cl
end try
save in the_path
end if
end tell
end tell
end if