CIAO! Ich habe endlich mein "Progrämmchen" quasi fertig. Es gibt manchmal auch komisch symptome
Brauche Feedback, was kann man besser machen, was ist schlecht, funktioniert es bei jedem usw.
Was tut es?
Also, da ich viele Dateien und Ordner zu verwalten habe, möchte ich unnötige Zeichen darin entfernen. Dies klappt wunderbar mit Autoit.
Wie funktioniert es?
1. Skript ausgeführt ( Es macht erstmal nichts )
2. In den gewünschten Ordner per Explorer wechseln
3. Die Taste "F9" betätigen
ACHTUNG! Bitte nur an Testdateien testen !!!
[autoit];~ #RequireAdmin
#include
#include
HotKeySet("{F9}", "Rename_")
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
Sleep(100)
WEnd
Func Rename_()
$dir = ControlGetText('[CLASS:CabinetWClass]','','Edit1')
$array = _FileListToArray($dir)
[/autoit][autoit][/autoit][autoit]; ===============================================================================
; Um die Daten in einem Listview anzuzeigen
;
_ArrayDisplay($array, "")
; ===============================================================================
For $i = 1 To UBound($array)-1
[/autoit][autoit][/autoit][autoit]FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\h+', '_'), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\_+', '_'), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\(+', '('), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\)+', ')'), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\[+', '['), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\]+', ']'), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\{+', '{'), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\}+', '}'), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\%+', ''), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), "\'+", ''), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\,+', ''), 1)
$array = _FileListToArray($dir)
FileMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringLower($array[$i]), '\.+', '.'), 1)
$array = _FileListToArray($dir)
;-------------------- Für Ordner
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\h+', '_'), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\_+', '_'), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\(+', '('), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\)+', ')'), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\[+', '['), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\]+', ']'), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\{+', '{'), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\}+', '}'), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\%+', ''), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), "\'+", ''), 1)
$array = _FileListToArray($dir)
DirMove( $dir & "\" & $array[$i], $dir & "\" & StringRegExpReplace(StringUpper($array[$i]), '\,+', ''), 1)
$array = _FileListToArray($dir)
FileSetAttrib( $array[$i], "-R-A-S-H-N-O-T")
[/autoit][autoit][/autoit][autoit]Next
MsgBox(64, "SATINEZ - FileRenamer", "Vorgang erfolgreich abgeschlossen!")
EndFunc
Exit
[/autoit]