Ersetzen von Zeichen in Datei- und Verzeichnisnamen in allen Unterordnern

::----schnipp---Unterordner-und-enthaltene-Dateien-Umbenamsen-fuer-CDVD.bat
:: Zum Anzeigen ist @echo vor den ren Befehlen eingefügt
:: dieses zum tatsächlichen Durchführen entfernen.
@echo off & setlocal
if "%~1"=="" (for /f "tokens=2,*" %%i in ('dir "''zxy." 2^>nul') do if "%%i"=="von" (set "pfad=%%~fj" )) else set "pfad=%~1"  
PushD "%pfad%  
set /a deep=0 , maxdeep=0 , mindeep=0 , subfold=0 , folders=0 , files=0 & set vfN=& set vmn=& set vdn=& set fNL=9& set "NL=9"   
::Max Verzeichnistiefe festellen
set setdeep1=1
for /f "tokens=*" %%i in ('dir /a:d /b /s 2^>nul') do set "file=%%i" & set "foldername=%%i" & set deep=0& call :folderren  
set "setdeep1="  
if %folders% gtr 0 (
	echo %folders% Ornder entsprechen den Kriterien!
	if %mindeep% equ %maxdeep% (
		for /f "tokens=1* delims==" %%a in ('set ... 2^>nul') do for /f "tokens=2* delims=?" %%i in ("%%b") do @echo ren "%%i" "%%j" & set "%%a="  
		goto :files
	) else echo Ordner werden nach Tiefe sortiert!
) else echo Kein Ordner entspricht den Kriterien!
:testfzero
if %fNL% lss %folders% (
	set "fNL=%fNL%9"  
	set "vfN=%vfN%0"  
	goto :testfZero
)
set "fNL=9"  
:testmzero
if %NL% lss %maxdeep% (
	set "NL=%NL%9"  
	set "vmn=%vmN%0"  
	goto :testmZero
)
::Verzeichnisse nach Tiefe sortieren und Vars setzen
for /f "tokens=1* delims==" %%a in ('set ... 2^>nul') do for /f "tokens=1* delims=?" %%i in ("%%b") do (  
	set /a bedeep=maxdeep-%%i
	set "vdn=%vmN%"  
	set "NL=9"  
	set "file=%%j"  
	call :memfolds %%a
)
:: verzeichnisse Umbenennen tiefstes zuerst
for /f "tokens=1* delims==" %%a in ('set .. 2^>nul') do for /f "tokens=1* delims=?" %%i in ("%%b") do @echo ren "%%i" "%%j"  
:: dateien Umbenennen
:files
for /f "tokens=*" %%i in ('dir /a:-d /b /s 2^>nul') do set "file=%%~dpni" & set "ext=%%~xi" & set "all=%%i" & call :folderren  
echo %folders% Ornder %files% Dateien entsprachen den Kriterien.&pause& goto :eof
:memfolds
if %NL% lss %bedeep% (
	set "NL=%NL%9"  
	set "vdn=%vdN:~1%"  
	goto :memfolds
)
set /a subfold+=1
set "..%vdN%%bedeep%%vfN%%subfold%=%file%"  
if %fNL% equ %subfold% (
	set "fNL=%fNL%9"  
	set "vfN=%vfN:~1%"  
)
if defined %1 set "%1="  
goto :eof
:folderren
if not "%file:*\=%" == "%file%" (  
	set "file=%file:*\=%"  
	if defined setdeep1 set /a deep+=1
	goto :folderren
)
set "new= %file%"  
:write
if "%~0"=="%all%" goto :eof  
::UmlauteNormal
set "new=%new:ß=ss%"  
set "new=%new:Ä=Ae%"  
set "new=%new:Ö=Oe%"  
set "new=%new:Ü=Ue%"  
set "new=%new:ä=ae%"  
set "new=%new:ö=oe%"  
set "new=%new:ü=ue%"  
::Umlautefalsch dargestellt Achtung! hier werden Umlaute am Wortanfang Gross
set "new=%new:á=ss%"  
set "new=%new: Ž= Ae%"  
set "new=%new: ™= Oe%"  
set "new=%new: š= Ue%"  
set "new=%new:„=ae%"  
set "new=%new:”=oe%"  
set "new=%new:=ue%"  
set "new=%new:~1%"  
::u-strich Klammer etc
set "new=%new: =_%"  
set "new=%new:,=_%"  
set "new=%new:(=%"  
set "new=%new:)=%"  
set "new=%new:.=%"  
if "%file%"=="%new%" goto :eof  
if not defined setdeep1 goto :ren
if not defined mindeep set "mindeep=%deep%"  
if %deep% gtr %maxdeep% set "maxdeep=%deep%"  
set /a folders+=1
set "...%folders%=%deep%?%foldername%?%new%"  
goto :eof

:ren
set /a files+=1
:: Achtung!
::wenn alles so klappt wie es soll dann entferne: @echo.&@echo  
@echo.&@echo ren "%all%" "%new%%ext%"  
::----schnapp---Unterordner-und-enthaltene-Dateien-Umbenamsen-fuer-CDVD.bat

73. set "new=%new:Ü=Ue%
87.set "new=%new: =_% 
88.set "new=%new:,=_% 
89.set "new=%new:(=% 
90.set "new=%new:)=% 
91.set "new=%new:.=% 

set "DeutscherMeister2010=100% Werder"  
REM Variableninhalt mit "%"  

REM Verdoppeln des %-Zeichens und Maskieren mit Caret hilft nix beim Ersetzen:

>echo [%DeutscherMeister2010%] [%DeutscherMeister2010:%=_%]
[100% Werder] [%DeutscherMeister2010:%=_%]

>echo [%DeutscherMeister2010%] [%DeutscherMeister2010:^%=_%]
[100% Werder] [100% Werder]
(=20:03:55  D:\temp=)
>Setlocal enableDelayedExpansion & echo [%DeutscherMeister2010%] [!DeutscherMeister2010:%=_!]
[100% Werder] [100_ Werder]         -----------> das Ersetzen hier klappt!

(=21:51:29  D:\temp=)
>set "datei=§7_GG_Auszug.pdf"

(=21:51:40  D:\temp=)
>echo alt[%datei%] neu[%datei:§=_%]
alt[§7_GG_Auszug.pdf] neu[_7_GG_Auszug.pdf]

 @echo

::----schnipp---Unterordner-und-enthaltene-Dateien-Umbenamsen-fuer-CDVD.bat
@echo off & setlocal
:: Nicht erlaubt in Datei- und Verzeichnissnamen sind
:: \ / : * ? " < > |  

set "Batch=%~0"  
set "Anzeigen=@echo"  
set "LZ=@echo.&"  
set "s=/s"  
if "%~1" == "/?" (  
echo.&echo zeigt Verzeichnisse und UnterVerzeichnisse sowie deren Dateien mit:
echo Umlauten, Leerzeichen, Klammern, Kommata und Punkten an.
echo danach wird jeweils das Ergebnis der Umbenennung angezeigt.
echo.& echo Syntax:
echo %~n0 [Pfad\Ordnername] [/a] [/-s] [/d ^| /-d] [/u ^| /-u]
echo Wird der Parameter /a     angebeben wird gleich umbenannt
echo mit Parameter      /-s    wird NICHT Rekursiv abgearbeitet
echo mit Parameter      /d     werden nur Ordner abgearbeitet
echo mit Parameter      /-d    werden nur Dateien abgearbeitet
echo mit Parameter      /u     werden die Umlaute NICHT einbezogen
echo mit Parameter     /-u     werden die Sonderzeichen Nicht einbezogen
goto :eof
)
if not "%~1"=="" (  
	for %%i in ( "%~1" "%~2" "%~3" "%~4" "%~5") do if not "%%~i" == "" (set "Opt=%%~i"  
		setlocal enabledelayedexpansion
		if "!Opt:~0,1!" == "/" (endlocal  
			if "%%~i" == "/a" (set "Anzeigen="&set "LZ=")   
			if "%%~i" == "/-s" set "s="  
			if "%%~i" == "/d" if not defined f set "d=1"  
			if "%%~i" == "/-d" if not defined d set "f=1"  
			if "%%~i" == "/u" if not defined so set "u=1"  
			if "%%~i" == "/-u" if not defined u set "so=1"  
		) else (endlocal
			if exist "%%~i\" set "pfad=%%~i"  
)	)	)
if not defined Pfad set "pfad=%cd%"  
PushD "%pfad%"  
set /a deep=0 , maxdeep=0 , mindeep=0 , subfold=0 , folders=0 , files=0 & set vfN=& set vmn=& set vdn=& set fNL=9& set "NL=9"   
::Max Verzeichnistiefe festellen
if defined f goto :files 
set setdeep1=1
for /f "tokens=*" %%i in ('dir /a:d /b %s% 2^>nul') do set "file=%%i" & set "foldername=%%i" & set deep=0& call :folderren  
set "setdeep1="  
if %folders% gtr 0 (
	echo %folders% Ornder entsprechen den Kriterien!
	if %mindeep% equ %maxdeep% (
		for /f "tokens=1* delims==" %%a in ('set ... 2^>nul') do for /f "tokens=2* delims=?" %%i in ("%%b") do %Anzeigen% ren "%%i" "%%j" & set "%%a="  
		goto :files
	) else echo Ordner werden nach Tiefe sortiert!&echo.
) else echo Kein Ordner entspricht den Kriterien!&echo.
:testfzero
if %fNL% lss %folders% (
	set "fNL=%fNL%9"  
	set "vfN=%vfN%0"  
	goto :testfZero
)
set "fNL=9"  
:testmzero
if %NL% lss %maxdeep% (
	set "NL=%NL%9"  
	set "vmn=%vmN%0"  
	goto :testmZero
)
::Verzeichnisse nach Tiefe sortieren und Vars setzen
for /f "tokens=1* delims==" %%a in ('set ... 2^>nul') do for /f "tokens=1* delims=?" %%i in ("%%b") do (  
	set /a bedeep=maxdeep-%%i
	set "vdn=%vmN%"  
	set "NL=9"  
	set "file=%%j"  
	call :memfolds %%a
)
:: verzeichnisse Umbenennen tiefstes zuerst
for /f "tokens=1* delims==" %%a in ('set .. 2^>nul') do for /f "tokens=1* delims=?" %%i in ("%%b") do %Anzeigen% ren "%%i" "%%j"  
:: dateien Umbenennen
:files
if not defined d (for /f "tokens=*" %%i in ('dir /a:-d /b %s% 2^>nul') do set "file=%%~dpni" & set "ext=%%~xi" & set "all=%%i" & call :folderren  
) else set "files="  
if not defined d  set "files=%files% Dateien "  
if defined f (set "folders=") else set "folders=%folders% Ornder "  
echo %folders%%files% entsprachen den Kriterien.&pause&popD& goto :eof
:memfolds
if %NL% lss %bedeep% (
	set "NL=%NL%9"  
	set "vdn=%vdN:~1%"  
	goto :memfolds
)
set /a subfold+=1
set "..%vdN%%bedeep%%vfN%%subfold%=%file%"  
if %fNL% equ %subfold% (
	set "fNL=%fNL%9"  
	set "vfN=%vfN:~1%"  
)
if defined %1 set "%1="  
goto :eof
:folderren
if not "%file:*\=%" == "%file%" (  
	set "file=%file:*\=%"  
	if defined setdeep1 set /a deep+=1
	goto :folderren
)
set "new=%file%"  
:write
if "%Batch%"=="%all%" goto :eof  
::UmlauteNormal
if defined u goto :u
set "new=%new:ß=ss%"  
set "new=%new:Ä=Ae%"  
set "new=%new:Ö=Oe%"  
set "new=%new:Ü=Ue%"  
set "new=%new:ä=ae%"  
set "new=%new:ö=oe%"  
set "new=%new:ü=ue%"  
::Umlautefalsch dargestellt
set "new=%new:á=ss%"  
set "new=%new:Ž=Ae%"  
set "new=%new:™=Oe%"  
set "new=%new:š=Ue%"  
set "new=%new:„=ae%"  
set "new=%new:”=oe%"  
set "new=%new:=ue%"  
::SonderZeichen u-strich Klammer etc
:u
if defined so goto :so

set "new=%new: =_%" & ::Leerzeichen  

set "new=%new:,=_%"  

set "new=%new:.=_%"  

set "new=%new:;=_%"  

set "new=%new:!=_%"  

set "new=%new:'=_%"  

set "new=%new:(=_%"  

set "new=%new:)=_%"  

set "new=%new:[=_%"  

set "new=%new:]=_%"  

set "new=%new:{=_%"  

set "new=%new:}=_%"  

set "new=%new:#=_%"  

set "new=%new:õ=_%" & ::Paragraphenzeichen  

set "new=%new:$=_%"  

setlocal enabledelayedexpansion

set "new=!new:%%=_!" & ::Prozentzeichen  

endlocal&set "new=%new%"  

set "new=%new:&=_%"  

:so
if "%file%"=="%new%" goto :eof  
if not defined setdeep1 goto :ren
if not defined mindeep set "mindeep=%deep%"  
if %deep% gtr %maxdeep% set "maxdeep=%deep%"  
set /a folders+=1
set "...%folders%=%deep%?%foldername%?%new%"  
goto :eof

:ren
set /a files+=1
%LZ%%Anzeigen% ren "%all%" "%new%%ext%"  
::----schnapp---Unterordner-und-enthaltene-Dateien-Umbenamsen-fuer-CDVD.bat

zeigt Verzeichnisse und UnterVerzeichnisse sowie deren Dateien mit:
Umlauten, Leerzeichen, Klammern, Kommata, Punkten, SonderZeichen etc an.
danach wird jeweils das Ergebnis der Umbenennung angezeigt.

Syntax:
RENUnterordnerundUFiles2BurnCDVD [/a] [/-s] [/d | /-d] [/u | /-u]
  [Laufwerk:][Pfad][Ordnername]
  [/zZeichen(Satz)[:ErsetzungsZeichen(Satz)] ...]
  [/cZeichenfolge[:ErsetzungsZeichenfolge] ...]
  [/tErweitert] [/nName] [/r]

  Parameter   Bedeutung

   /a         Es wird ohne Anzuzeigen Umbenannt
   /-s        Es wird NICHT Rekursiv abgearbeitet
   /d         Ordnernamen werden nur abgearbeitet
   /-d        Dateienamen werden nur abgearbeitet
   /u         Umlaute werden NICHT einbezogen
   /e         Sonderzeichen werden Nicht einbezogen

   /zZeichen(satz):ErsetzungsZeichen(Satz)
              Zeichen(satz) wird einzeln Nacheinander mit
               ErsetzungsZeichen oder
               ErsetzungsZeichen(Satz) einzeln Nacheinander bis zum letzten
               Zeichen welches für den Rest aus Zeichen(satz) verwendet wird,
               ersetzt.
               OHNE Ersetzungszeichen wird gelöscht

      :         Trennzeichen zwischen zu Ersetztendem und Ersetzung
      /         ErsetzungsZeichen nur in Option /z
                der Schrägstrich ist ein Platzhalter für zu Löschende Zeichen.
Beispiele:     /z" .,;():_/" ersetzt Leerzeichen mit Unterstrich
                            loescht . , ; ( )

               /z";~ /_"         loescht Semikolon und Tilde
                            ersetz Leerzeichen %  ( ) mit Unterstrich

   /cZeichen(folge):ErsetzungsZeichen(folge)
              Zeichen(folge) wird mit Ersetzungszeichen(folge) ersetzt
      *        Mit Stern am Anfang wird alles vor inklusive dieser
               Zeichen(folge) Ersetzt.
               OHNE Ersetzungszeichen wird gelöscht.

      :         Trennzeichen zwischen zu Ersetztendem und Ersetzung
Die Zeichen = und ~ bei Option /c und /z werden auch ersetzt.

   /tErweitert
              Erweiterte Stringzerlegung wie im Befehl SET für OffSet.
Beispiele:     /t"~0,5"        belässt die ersten 5 Zeichen
               /t"~0,4 ~6"   löscht das 5. Zeichen
   /nName     Einzuschliesende(r) Datei-/Ordnername(n)

   /r         Rangfolge der Ersetzungsparameter beibehalten.

Set /a rgc+=1 
#789