How to change filenames

Scripting Forums AppleScript | Classic Mac OS
,
#1

Hi!
I have hundreds of documents made with mac´s FreeHand 8. The filenames contain often dots (.), slash (/) and stroke (-). Now all these names should be changed so that FreeHand MX running on Windows XP Pro could recognize them.
Never scripted anything.
Can anyone help with a script that changes dots, slashes and strokes to understroke (_) and adds .fh8 extension to the filename? A droplet?
PowerMac G4 with MacOS 9.2.2 and AppleScript 1.8.3

Thanks
Hjalmar

#2

Hi Ukuli

try this (NOT REALLY TESTED) :

tell application "Finder"
	activate
	set the chosen_folder to (choose folder with prompt "Pick the folder containing the files :")
	
	repeat with i from 1 to count of file in chosen_folder
		set this_text to name of file i of chosen_folder
		set AppleScript's text item delimiters to "."
		set this_text to every text item of this_text
		set AppleScript's text item delimiters to "_"
		set this_text to the this_text as string
		set AppleScript's text item delimiters to "/"
		set this_text to every text item of this_text
		set AppleScript's text item delimiters to "_"
		set this_text to the this_text as string
		set AppleScript's text item delimiters to "-"
		set this_text to every text item of this_text
		set AppleScript's text item delimiters to "_"
		set this_text to the this_text as string
		
		if (count of characters of this_text) > 27 then
			set this_text to (characters 1 thru 27 of this_text)
		end if
		set AppleScript's text item delimiters to ""
		set name of file i of chosen_folder to this_text & ".fh8" as string
		
	end repeat
	
end tell

perhaps very slow… let me now
Didier

#3

The script is just what I needed and it works perfectly. I´m so happy ´cause it helps me really much when I rename all my old FreeHand 8 documents. There´s hundreds of them.

Thank you very much Debloem. You helped me a lot!

WITH WARM THOUGHTS
Hjalmar