In article <1g58yxq.ujq403x2045yN%michael.holm@anthro.ku.dk>,
michael.holm@anthro.ku.dk (Michael Holm) wrote:
> tak - kan godt se det , hvis der er en script haj, som kan lave sådan et
> script, (preben ??! ) så kender jeg en japaner der bor i belgien, som
> lige er switchet fra XP til Panter (i en iBook) som ville blive kanon
> glad
Her er et redigeret script. Kopier scriptet til Script Editor og gem det
i mappen User/Library/Scripts, så vil det stå til rådighed i
scriptmenuen. Hvis man vil rydde op i scriptmenuen kan man flytte rundt
på mapperne i /Library/Scripts.
Hils den kanon glade belgiske japaner.
Niels (nu også kaldet script haj - ak ja alle de titler...
---script start---
(*
Dette script er scriptet "Add Prefix-Suffix to File Names" fra Panther
ændret således
det er muligt at ændre navn på en stribe dokumenter til et hovednavn +
nr.
Man skal være opmærksom på at dokumenternes efternavn fjernes .
Ingen garantier mod bugs, fejl og anden ondskab - men det virker fint
hos mig på Panther.
Niels Prins - 30/11/2003
*)
try
tell application "Finder" to set the source_folder to (folder of the
front window) as alias
on error -- no open folder windows
display dialog "Der er ikke valgt en mappe" buttons {"OK"}
quit
end try
set the prefix_or_suffix to ""
repeat
display dialog "Skriv Navn:
(titlen på dokumenterne bliver navn_nr hvor nr starter ved 1 op til
antal dokumenter i mappen)" default answer the prefix_or_suffix buttons
{"Cancel", "OK"}
copy the result as list to {the prefix_or_suffix, the button_pressed}
if the prefix_or_suffix is not "" then exit repeat
end repeat
set the item_list to list folder source_folder without invisibles
set source_folder to source_folder as string
repeat with i from 1 to number of items in the item_list
set this_item to item i of the item_list
set this_item to (source_folder & this_item) as alias
set this_info to info for this_item
set the current_name to the name of this_info
if folder of this_info is false and ¬
alias of this_info is false then
if the button_pressed is "OK" then
set the new_file_name to the (the prefix_or_suffix & "_" & i)
as string
else
set the new_file_name to the (the current_name & "_" & i) as
string
end if
my set_item_name(this_item, the new_file_name)
end if
end repeat
beep 2
on set_item_name(this_item, new_item_name)
tell application "Finder"
--activate
set the parent_container_path to (the container of this_item) as
text
if not (exists item (the parent_container_path & new_item_name))
then
try
set the name of this_item to new_item_name
on error the error_message number the error_number
if the error_number is -59 then
set the error_message to "This name contains improper
characters, such as a colon (:)."
else --the suggested name is too long
set the error_message to error_message -- "The name is
more than 31 characters long."
end if
--beep
tell me to display dialog the error_message default answer
new_item_name buttons {"Cancel", "Skip", "OK"} default button 3
copy the result as list to {new_item_name, button_pressed}
if the button_pressed is "Skip" then return 0
my set_item_name(this_item, new_item_name)
end try
else --the name already exists
--beep
tell me to display dialog "This name is already taken, please
rename." default answer new_item_name buttons {"Cancel", "Skip", "OK"}
default button 3
copy the result as list to {new_item_name, button_pressed}
if the button_pressed is "Skip" then return 0
my set_item_name(this_item, new_item_name)
end if
end tell
end set_item_name
---script slut ---