RenameMovieFile.btm

:: benennt die per Parameter angegebene Datei in den Namen des 豚ergeordneten Ordners um,
:: verschiebt die Datei eine Verzeichnisebene h鑐er und l顪cht das Verzeichnis
:: f逗 Einsatz in Total Commander gedacht mit Parametern %P%N
@echo off
SET Fullname=%1

:: Pfad extrahieren und evtl. vorhandenen \ am Ende entfernen
SET Zielname=%@PATH[%FullName]
SET Zielname=%@rtrim[\,%Zielname]
:: Pfad f字 sp含eres Verschieben merken
SET Pfad=%Zielname
:: Verzeichnisnamen extrahieren, Endung wieder anh槃gen
SET Zielname=%@FILENAME[%Zielname].%@EXT[%Fullname]

:: ein paar Schl泅selworte aus dem Dateinamen l孟chen
if %@index[%Zielname,GERMAN] GE 0 Set Zielname=%@replace[GERMAN,,%Zielname]
if %@index[%Zielname,DOKU] GE 0 Set Zielname=%@replace[DOKU,,%Zielname]
if %@index[%Zielname,HDTV] GE 0 Set Zielname=%@replace[HDTV,,%Zielname]

:: doppelte Punkte durch einzelnen ersetzen
:Loop
if %@index[%Zielname,..] EQ -1 GOTO weiter
	Set Zielname=%@replace[..,.,%Zielname]
GOTO Loop

:weiter

REN %Fullname "%Zielname"

:: Datei nach ein Verzeichnis h絹er verschieben
Set Zielname=%Pfad%\%Zielname%
Set UpDir=\..
SET UpPfad=%Pfad%%UpDir%
move "%Zielname" "%UpPfad"

:: 在erfl存siges Verzeichnis l群chen
DEL "%Pfad" /s/x/y