Variable um eine andere Variable kürzen

@echo off & setlocal enabledelayedexpansion
chcp 1252

rem -------------------------
rem Irfanview Konfigurationen eintragen
rem -------------------------
set iview=%ProgramFiles%\IrfanView\i_view32.exe
set resize_gross="/resize_long=450 /aspectratio /jpgq=85 /resample"  
set resize_klein="/resize_long=180 /aspectratio /jpgq=85 /resample"  
rem -------------------------

rem -------------------------
rem Pfade OHNE abschliessenden Backslash eintragen
rem -------------------------
set PfadQuelle=E:\files\home\chrisw\Dokumente\Lieferanten\Lieferantenbilder
set PfadZiel=E:\files\home\chrisw\Dokumente\Lieferanten\shopbilder
rem -------------------------

rem --------------------------
rem Feststellen, wie gross die Variable des Quellverzeichnisses ist
rem damit die Zahl zum "Beschneiden, f??r ziel3 nicht selbst gezaehlt werden muss  
rem Vielen Dank an Biber und bastla
rem --------------------------
echo %PfadQuelle%>%temp%\Lang.tmp 
for %%i in (%temp%\Lang.tmp) do set /a L=%%~zi-2
set /a L2=!L!-2
rem --------------------------

rem --------------------------
rem Arbeitsvariablen erstellen und Zielverzeichnis bei Bedarf erstellen
rem --------------------------
for /r %PfadQuelle% %%I in (*.jpg,*.tif,*.png,*.JPG,*.TIF,*.PNG,*.gif,*.GIF) do (
rem  ziel2 kompletter Pfad + Dateiname ohne Laufwerksbuchstabe
 	set ziel2=%%~pnxI
rem ziel3 = Unterverzeichnis + Dateiname, durch abtrennen ab dem 53. Zeichen von ziel2 
 	set ziel3=!ziel2:~%L2%,250!
rem ziel4 = nur Dateiname 
	set ziel4=%%~nI
rem Zeichen im Zieldateinamen anpassen
	call :umlaute
rem ziel5 = ziel3 gek??rzt durch Dateiname -> Unterverzeichnis,ab PfadZiel/PfadQuelle
 	set "ziel5=!ziel3:%%~nxI=!"  
rem Leerzeichen aus Verzeichnisnamen durch Unterstriche ersetzen
	set "ziel5=!ziel5: =_!"  
rem Kopieren von %%I an weitere Variablen, damit Uebergabe an :konvert funktioniert
	set Ikonvert=%%I
	set Iendung=%%~xI
rem Falls eine Nicht-jpg Datei dran ist, dann fuer spaeter die Endung auf jpg aendern
	if /i !Iendung! NEQ .jpg set Iendung=.jpg
rem Falls Zielverzeichnis nocht nicht existiert, anlegen
 	if not exist "%PfadZiel%\!ziel5!" md "%PfadZiel%\!ziel5!"  
rem ---------------------------

rem ---------------------------
rem Falls Zieldatei schon existiert, ueberpruefen, ob sich das Schreibdatum geaendert hat und
rem und wenn ja, dann Konvertierung starten
rem Geprueft wird nur, ob die Hauptdatei existiert, die Vorschaudatei wird ohne Ueberpruefung
rem gleich mit generiert.
rem ---------------------------
 	if exist %PfadZiel%\!ziel5!!ziel4!!Iendung! (
 		for /F "tokens=1,2,3,4 delims=:. " %%f in ('dir /a-D /Tw /-C "!Ikonvert!"^|find "."') do set zeit1=%%h%%g%%f%%i  
		for /F "tokens=1,2,3,4 delims=:. " %%f in ('dir /a-D /Tw /-C !PfadZiel!\!ziel5!!ziel4!!Iendung!^|find "."') do set zeit2=%%h%%g%%f%%i  
		if !zeit1! GTR !zeit2! (
			rem Schreibaktivitaetsstempel bei Quelle neuer, als bei Ziel, dann konvertieren
			call :konvert
		) 
	)else (
		rem Zieldatei existiert noch gar nicht, also sowieso konvertieren
		call :konvert
		)

)
goto :ende

:konvert
rem Per nconvert mit Wasserzeichen nconvert.exe muss im verzeichnis liegen
 	nconvert -npcd 2 -size 256x256+0 -ctype grey -corder inter -out jpeg -o %PfadZiel%\!ziel5!!ziel4!!Iendung! -wmfile "E:\files\home\chrisw\Dokumente\iview\logo1_skaliert_klein.png" -wmflag bottom-right -ratio -rtype lanczos -rflag decr -rflag orient -resize 0 450 "!Ikonvert!"   
 	nconvert -npcd 2 -size 256x256+0 -ctype grey -corder inter -out jpeg -o %PfadZiel%\!ziel5!!ziel4!_vorschau!Iendung! -wmfile "E:\files\home\chrisw\Dokumente\iview\logo1_skaliert_ganzklein.png" -wmflag bottom-right -ratio -rtype lanczos -rflag decr -rflag orient -resize 0 180 "!Ikonvert!"   

rem Per irfanview, muss natuerlich auch installiert sein
rem	%iview% !Ikonvert! %resize_gross% /ini="E:\files\home\chrisw\Dokumente\iview\gross\" /convert=%PfadZiel%\!ziel5!!ziel4!!Iendung!  
rem  	%iview% !Ikonvert! %resize_klein% /ini="E:\files\home\chrisw\Dokumente\iview\klein\" /convert=%PfadZiel%\!ziel5!!ziel4!_vorschau!Iendung!  
goto :eof

:umlaute
rem Bestimmte Zeichen fuer Zieldateinamen ersetzen
	set ziel4=!ziel4: =_!
	set ziel4=!ziel4:??=ae!
	set ziel4=!ziel4:??=oe!
	set ziel4=!ziel4:??=ue!
	set ziel4=!ziel4:??=ss!
	set ziel4=!ziel4:??=Ae!
	set ziel4=!ziel4:??=Oe!
	set ziel4=!ziel4:??=Ue!
goto :eof
:ende