MP3 anfügen

[Griche]

wie könnte ein Skript aussehen das in einem Ordner alle Files die Endung .MP3 anfügt und den Creator auf SoundJam ändert ?

[Snow]

Hallo Griche,

ich habe dir schnell mal so ein Script geschrieben. Kann bestimmt noch verbessert werden.


on open fileList
repeat with theitem in fileList
tell application "Finder"
set creator type of theitem to "SJAM"
set thename to (name of (info for theitem) & "mp3")
end tell
end repeat
end open


An alle, die Script-Beispiele posten.
Setzt das Script zwischen PRE-Tags, dann bleiben die Einzüge am Zeilenanfang erhalten.
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[Snow]

Gleich nochmal, damit auch wirklich die Endung ".mp3" angehängt wird.


on open fileList
   repeat with theitem in fileList
        tell application "Finder"
           set creator type of theitem to "SJAM"
           set the name of theitem to (name of (info for theitem) & ".mp3")
        end tell
   end repeat
end open


Weitere Verbesserungen:
Es sollte überprüft werden, ob die Endung nicht schon vorhanden ist.
Desweiteren muss eine Funktion eingebaut werden, die zu lange Dateinamen evtl. kürzt, damit die Endung auch angehängt werden kann.
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[Griche]

Danke für die schnelle antwort !

Komme aber mit dem skript nicht klar ?

[DanB]

Meiner Meinung fehlt in der Skriptzeile
set the name of theitem to (name of (info for theitem) & ".mp3")
ein "as string". Das sollte dann so aussehen:
set the name of theitem to ((name of (info for theitem) & ".mp3") as string)

Denn wenn man das as string weglässt, bekommt man als Ergebnis eine Liste {(Dateiname),".mp3"}

DanB
_________________
danB
[url]mailto:danB@advancedscripting.de[/url]
http://www.advancedscripting.de

[Snow]

Nächste Version!

probier mal das:

(*Dieses Script prüft, ob an einer Datei die Endung ".mp3" vorhanden ist und hängt sie ggf. an. Der Creator wird dabei auf "SJAM" (SoundJam) gesetzt. Benötigte OSAX: "choose files & folders" wegen der Mehrfachauswahl im run-Handler.
Autor: Peter Fischer (Snow) 12.08.2000*)

property Endung : ""

on open fileList
my Bearbeiten(fileList)
end open

on run
set fileList to choose several files
(* ohne OSAX "choose files & folders" muß hier choose file geschrieben werden.*)

my Bearbeiten(fileList)
end run

on Bearbeiten(fileList)
repeat with theitem in fileList
tell application "Finder"
set creator type of theitem to "SJAM"
-- "Audn" für Audion-Files, "SJAM" für SoundJam-Files
set the derName to (name of (info for theitem))
set Laenge to length of derName
set alteEndung to ¨
(((characters (Laenge - 3) thru Laenge)) of derName) as string
if alteEndung = ".mp3" then -- Die Datei-Endung wird überprüft
set neuer_Name to derName
-- Von der Länge her darf es ja da keine Probleme geben
else
if Laenge * 27 then
-- hier kann die Endung bedenkenlos angehängt werden
set neuer_Name to derName & ".mp3"
else -- hier muß der Dateinamen gekürzt werden
set neuer_Name to ¨
((characters 1 thru (Laenge - 4) of derName) as string) & ".mp3"
end if
end if
set the name of theitem to neuer_Name -- Datei wird umbenannt
end tell
end repeat

neuer_Name

end Bearbeiten

Ich hab's mal zum Download bereit gestellt. Falls Fehler 404 auftaucht, ignorieren und mehrmals versuchen. Ich hab mit dem Server im Moment Probleme.

<a href="http://www.fischer-bayern.de/as/MP3Creator.sit">MP3Creator.sit</a>
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com

[Snow]

... in folgender Zeile:

if Laenge * 27 then -- hier kann die Endung bedenkenlos angehängt werden

bedeutet der Stern ein Kleiner/Gleich-Zeichen
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com