Post by Meister Lampe » 08 Oct 2015, 17:31
Hallo just me!
Oder muß ich eigentlich besser "just you" schreiben?
Also dafür, daß Du das - wie Du sagst - noch gar nicht getestet hast, war das schon ganz passabel. Genauer gesagt, es hat auf Anhieb und einwandfrei funktioniert!!
Vielen Dank!
Jetzt habe ich mich daran gemacht, eine weitere Umbenennen-Option, die ich schon vorher hatte, nach diesem Schema zu modifizieren.
Die ist mit einer zusätzlichen Eingabe verbunden und danach scheint mein Script nicht mehr weiter zu laufen.
Ziel ist es, nach derselben Vorlage, die bereits das obige Programm benützt, Bilder mit einer einzugebenden Signaturnummer und einem laufenden Index zu benennen. Folgendes Script verwende ich dazu bereits:
Code: Select all
NumpadEnter::
Clipboard := "" ; ClipBoard leeren, damit ClipWait funktioniert
Send, ^a^c ; mit Control+C Dateinamen inkl. Pfad ins ClipBoard kopieren
ClipWait, 1, 1 ; kurz warten, bis der Dateiname im ClipBoard angekommen ist
StartSign := Clipboard ; Abspeichern der Starteingabe für die Nummerierung (0000,00)
StringSplit, StartArray, StartSign, `,
LetzteSign := SubStr("0000" . StartArray1, -3) ; setzt die Signatur auf 4 Ziffern
ParamIndex := StartArray2 ; Parameter für die Schleife
LetzterIndex := 1 ; Setzt Index auf 1
Loop , %ParamIndex%
{
LetzterIndex := SubStr("00" . LetzterIndex, -1) ; Setzt Index auf 1 in 2 Ziffern
Send, %AktSign%_%LetzteSign%_%LetzterIndex%
LetzterIndex := ++LetzterIndex
Send, {Tab}{F2}
}
return
Das erste Bild wird angewählt und zum Umbenennen aktiviert. Darauf gibt man die Signaturnummer ein und die Anzahl der umzubenennenden Bilder, getrennt durch ein Komma. Durch die Enter-Taste des Numpad wird dann diese Anzahl von Bildern nach dem obigen Schema mit laufendem Index umbenannt (Der Wert von "AktSign" wird vorher in einem separaten Input eingegeben, da er in mehreren Anwendungen gleichermaßen benötigt wird).
Nun möchte ich das genauso modifizieren wie das andere Tool, das heißt ich möchte mir die Bilder durch anklicken auswählen können und unabhängig von deren Anzahl umbenennen. Dafür müßte währen des Ablaufs noch eine Eingabe für die Signaturnummer erfolgen.
Ich habe jetzt mal so angefangen:
Code: Select all
F7::
Clipboard := ""
SendInput, ^c
Clipwait, 1
If (ErrorLevel) ; keine Dateien im Clipboard
return
InputBox, LetzteSign, Bilder durchnummerieren, Signaturnummer:
LetzteSign := SubStr("0000" . LetzteSign, -3) ; Setzt Signatur auf 4 Ziffern
LetzterIndex := 1 ; Setzt Index auf 1
LetzterIndex := SubStr("00" . LetzterIndex, -1) ; Setzt Index auf 2 Ziffern
Loop, Parse, DateienAuswahl, `n, `r
{
SplitPath, A_LoopField, , Verzeichnis, Erweiterung, SignName
FileMove, %A_LoopField%, %Verzeichnis%\%LetzteSign%_%LetzterIndex%.%Erweiterung%
LetzterIndex := ++LetzterIndex
}
return
Bis zur
InputBox läuft das auch, aber danach passiert nichts mehr - auch kein Fehler u.ä.
Muß da irgendwo noch eine Art von "run"-Befehl rein?
Viele Grüße von Meister Lampe
Hallo just me!
Oder muß ich eigentlich besser "just you" schreiben? ;)
Also dafür, daß Du das - wie Du sagst - noch gar nicht getestet hast, war das schon ganz passabel. Genauer gesagt, es hat auf Anhieb und einwandfrei funktioniert!! :clap:
Vielen Dank!
Jetzt habe ich mich daran gemacht, eine weitere Umbenennen-Option, die ich schon vorher hatte, nach diesem Schema zu modifizieren.
Die ist mit einer zusätzlichen Eingabe verbunden und danach scheint mein Script nicht mehr weiter zu laufen.
Ziel ist es, nach derselben Vorlage, die bereits das obige Programm benützt, Bilder mit einer einzugebenden Signaturnummer und einem laufenden Index zu benennen. Folgendes Script verwende ich dazu bereits:
[code]NumpadEnter::
Clipboard := "" ; ClipBoard leeren, damit ClipWait funktioniert
Send, ^a^c ; mit Control+C Dateinamen inkl. Pfad ins ClipBoard kopieren
ClipWait, 1, 1 ; kurz warten, bis der Dateiname im ClipBoard angekommen ist
StartSign := Clipboard ; Abspeichern der Starteingabe für die Nummerierung (0000,00)
StringSplit, StartArray, StartSign, `,
LetzteSign := SubStr("0000" . StartArray1, -3) ; setzt die Signatur auf 4 Ziffern
ParamIndex := StartArray2 ; Parameter für die Schleife
LetzterIndex := 1 ; Setzt Index auf 1
Loop , %ParamIndex%
{
LetzterIndex := SubStr("00" . LetzterIndex, -1) ; Setzt Index auf 1 in 2 Ziffern
Send, %AktSign%_%LetzteSign%_%LetzterIndex%
LetzterIndex := ++LetzterIndex
Send, {Tab}{F2}
}
return
[/code]
Das erste Bild wird angewählt und zum Umbenennen aktiviert. Darauf gibt man die Signaturnummer ein und die Anzahl der umzubenennenden Bilder, getrennt durch ein Komma. Durch die Enter-Taste des Numpad wird dann diese Anzahl von Bildern nach dem obigen Schema mit laufendem Index umbenannt (Der Wert von "AktSign" wird vorher in einem separaten Input eingegeben, da er in mehreren Anwendungen gleichermaßen benötigt wird).
Nun möchte ich das genauso modifizieren wie das andere Tool, das heißt ich möchte mir die Bilder durch anklicken auswählen können und unabhängig von deren Anzahl umbenennen. Dafür müßte währen des Ablaufs noch eine Eingabe für die Signaturnummer erfolgen.
Ich habe jetzt mal so angefangen:
[code]F7::
Clipboard := ""
SendInput, ^c
Clipwait, 1
If (ErrorLevel) ; keine Dateien im Clipboard
return
InputBox, LetzteSign, Bilder durchnummerieren, Signaturnummer:
LetzteSign := SubStr("0000" . LetzteSign, -3) ; Setzt Signatur auf 4 Ziffern
LetzterIndex := 1 ; Setzt Index auf 1
LetzterIndex := SubStr("00" . LetzterIndex, -1) ; Setzt Index auf 2 Ziffern
Loop, Parse, DateienAuswahl, `n, `r
{
SplitPath, A_LoopField, , Verzeichnis, Erweiterung, SignName
FileMove, %A_LoopField%, %Verzeichnis%\%LetzteSign%_%LetzterIndex%.%Erweiterung%
LetzterIndex := ++LetzterIndex
}
return
[/code]
Bis zur [c]InputBox[/c] läuft das auch, aber danach passiert nichts mehr - auch kein Fehler u.ä.
Muß da irgendwo noch eine Art von "run"-Befehl rein?
Viele Grüße von Meister Lampe