- Registriert
- 30.05.07
- Beiträge
- 39
Hallo,
ich hab ein AS geschrieben, das Dateien nach einem bestimmten System durchnummeriert. Mein Problem dabei ist, daß ich nicht weiß, wie ich es einrichten kann, daß die Anzahl der Stellen immer gleich ist, jetzt zählt mein AS so: 1,2,3...9,10,11..99,100, .. ich hätte z.B. gerne 0001,0002,0003,...0010,0011,...0100 uw.
Mein AS sieht so aus:
property rechts : 0
set Quellordner to (choose folder with prompt "") as string
tell application "Finder"
set alleOrdner to every folder of folder Quellordner
repeat with einOrdner in alleOrdner
set Dateiliste to every file of einOrdner as alias list
repeat with einDatei in Dateiliste
if name of einDatei contains "_00000" then
set rechts to 2
else
set rechts to rechts + 2
end if
tell application "Adobe Photoshop CS"
set display dialogs to never
set datName to (do shell script ("echo \"" & (einDatei as text)) & "\" | sed 's/\\.[^.! ]\\{0,5\\}$//g'")
open einDatei
tell current document
do action ""
save in file (datName & "_" & rechts)
close
end tell
end tell
end repeat
end repeat
end tell
Weiß jemand weiter?
Gruß
Harald
ich hab ein AS geschrieben, das Dateien nach einem bestimmten System durchnummeriert. Mein Problem dabei ist, daß ich nicht weiß, wie ich es einrichten kann, daß die Anzahl der Stellen immer gleich ist, jetzt zählt mein AS so: 1,2,3...9,10,11..99,100, .. ich hätte z.B. gerne 0001,0002,0003,...0010,0011,...0100 uw.
Mein AS sieht so aus:
property rechts : 0
set Quellordner to (choose folder with prompt "") as string
tell application "Finder"
set alleOrdner to every folder of folder Quellordner
repeat with einOrdner in alleOrdner
set Dateiliste to every file of einOrdner as alias list
repeat with einDatei in Dateiliste
if name of einDatei contains "_00000" then
set rechts to 2
else
set rechts to rechts + 2
end if
tell application "Adobe Photoshop CS"
set display dialogs to never
set datName to (do shell script ("echo \"" & (einDatei as text)) & "\" | sed 's/\\.[^.! ]\\{0,5\\}$//g'")
open einDatei
tell current document
do action ""
save in file (datName & "_" & rechts)
close
end tell
end tell
end repeat
end repeat
end tell
Weiß jemand weiter?
Gruß
Harald