mehrstellig Numerieren

[t.r.e.w.]

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

 

[hubionmac]

Einfach ein bischen String-Pfuscherei

set eineNummer to random number (1000)
set mindestens_4_Stellen to characters -4 through -1 of (("0000" & eineNummer) as text) as text

 

[t.r.e.w.]

Vielen Dank für deine Hilfe.
Ich bin nach einem halben Sonntag Probieren zu einem ähnlichen Ergebnis gekommen:

set rechts to text -4 thru -1 of ("0" & "0" & "0" & rechts)

Es funktioniert!

Beste Grüße

Harald