Schleife wird nicht ausgeführt und ein paar andere Kleinigkeiten

Hallo zusammen,

Ich hoffe Ihr könnt mir dabei helfen, ein wenig Licht ins Dunkel der Batchprogrammierung zu bringen

Hintergrund des Scriptes ist, dass ich unter Linux zur Sicherung künftig DAR (Disk Archiver) einsetzen will und die Archive künftig zur Not auch unter Window entpacken können will und das aus Bequemlichkeit per Kontextmenü bei einem Rechtsklick auf ein solches.

Dafür wird in der Registry ein entsprechender Aufruf eingebaut:

[HKEY_CURRENT_USER\Software\Classes\Disk Archiver Image File\shell\Extract to <directory>\command]
@="\"D:\\Work\\Tools\\DAR\\dar_extract.bat\" \"%1\""

(das ist jetzt natürlich nur der <command> Teil, den Rest habe ich aus Platzgründen weggelassen. Der Aufruf des Scriptes beim Rechtsklick auf ein .dar Archiv funktioniert auch soweit korrekt.

Kommen wir zum Script:

@echo off
set sComplete=%1

for %%i in ("%sComplete%") do set sPathOnly=%%~di%%~pi
for %%i in ("%sComplete%") do set sFileNameFull=%%~ni%%~xi
for /F "delims=. tokens=1" %%i in ("%sFileNameFull%") do set sFileNameShort=%%i


REM echo sPathOnly="%sPathOnly%"
REM echo sFileNameFull="%sFileNameFull%"
REM echo sFileNameShort="%sFileNameShort%"


@rem D:\Work\Tools\DAR\glftpd_full.1.dar
@rem > /cygdrive/d/work/tools/dar/

set linPath1=%sPathOnly:\=/%
echo linPath1=%linPath1%
set linPath2=%linPath1::=%
echo linPath2=%linPath1%


@mkdir %sFileNameShort%
@rem "D:\Work\Tools\DAR\DAR.exe" -R ./ -v -w -O -x %sFileNameShort%"

---

Wenn ich einen Command Prompt mit aktivem Verzeichnis in D:\Work\Tools\DAR offen habe und das Script manuell ausführe (mit dar_extract.bat D:\Work\Tools\DAR\glftpd_full.1.dar) läuft es durch. Wenn ich es allerdings über das Kontextmenü beim Klick auf die Datei ausführe kommt es nur bis zur zweiten for Schleife.

for /F "delims=. tokens=1" %%i in ("%sFileNameFull%") do set sFileNameShort=%%i

Wird schon nicht mehr ausgeführt (getestet mit pause um zu sehen bis wo er kommt). Warum mag er die Zeile nicht und wie ändere ich sie?

Als zweites würde ich gerne wissen, wie ich die Variable sPathOnly (die beim manuellen Aufruf "D:/Work/Tools/DAR/" beinhaltet auf das Format umschreibe, was DAR voraussetzt ("/cygdrive/d/work/tools/dar/"). Meine erste Umwandlung der Backslashes in Slashes (set linPath1=%sPathOnly:\=/%) funktioniert ja noch, danach geht aber nicht mehr viel (die nächste Zeile scheitert beim Entfernen des Doppelpunktes im Pfad).

Wenn der Pfad korrekt umgeschrieben worden ist, würde ich ihn in der letzten Zeile als Variable (sPathOnly + sFileNameShort anstatt des ./ verwenden und dann das eigentlichen Entpacken damit "freischalten"... Das -x %sFileNameShort% in der Zeile setzt voraus, dass das Verzeichnis bereits existiert, weshalb auch vorher das mkdir dafür aufgerufen wird.

Das Ganze unter Windows XP (Pro).

Vielleicht hat ja jemand ein paar Hilfestellungen für mich oder auch Vorschläge, wie man so etwas intelligenter (schäm ) angehen könnte?

LG,
Highend01

@echo off & setlocal
REM set sComplete=%1
@echo Just for test: [%*]

for %%i in (%*) do set "sPathOnly=%%~dpi"  
for %%i in (%*) do set "sFileNameFull=%%~nxi"  
...
REM ..... hier erstmal "Pause"  
Echo Debug sPathonly: [%sPathOnly%] sFileNameFull: [%sFileNameFull%]
pause
goto :eof 
for /F "delims=. tokens=1" %%i in ("%sFileNameFull%") do set sFileNameShort=%%i  

@echo off & setlocal

REM Anfangsvariablen setzen
set DAR="D:\Work\Tools\DAR\DAR.exe"  
set Cygdrive="/cygdrive/"  

::echo Just for test: [%*]

REM %* in seine Bestandteile aufsplitten
for %%i in (%*) do set "sPathOnlyOld=%%~pi"  
for %%i in (%*) do set "sPathFull=%%~dpi"  
for %%i in (%*) do set "sFileNameFull=%%~nxi"  
for %%i in (%*) do set "sFileNameShortOld=%%~ni"  
for %%i in (%*) do set "sDriveLetterOld=%%~di"  

REM Pfade / Namen in den Variablen ersetzen
set sPathOnly=%sPathOnlyOld:\=/%
set sDriveLetter=%sDriveLetterOld:~0,-1%
set sFileNameShort=%sFileNameShortOld:~0,-2%


REM Outputs für Debugzwecke
::Echo Debug sPathOnly: [%sPathOnly%] sPathFull: [%sPathFull%] 
::Echo Debug sFileNameFull: [%sFileNameFull%]
::Echo Debug sFileNameShort: [%sFileNameShort%] sDriveLetter: [%sDriveLetter%]

REM Variable für den auf Linux Art umgeschriebenen Pfad setzen
set linPath=%Cygdrive%%sDriveLetter%%sPathOnly%%sFileNameShort%

REM Verzeichnis erstellen und entpacken
mkdir %sPathFull%%sFileNameShort%
%DAR% -R %linPath% -w -O -x %sFileNameShort%"  

@echo off & setlocal

REM Anfangsvariablen setzen
set DAR="D:\Work\Tools\DAR\DAR.exe"  
set "Cygdrive=/cygdrive/"  

::echo Just for test: [%*]

REM %* in seine Bestandteile aufsplitten
for %%i in (%*) do ( 
    set "sPathOnlyOld=%%~pi"  
    set "sPathFull=%%~dpi"  
    set "sFileNameFull=%%~nxi"  
    set "sFileNameShortOld=%%~ni"  
    set "sDriveLetterOld=%%~di"  
)
REM Pfade / Namen in den Variablen ersetzen
set sPathOnly=%sPathOnlyOld:\=/%
set sDriveLetter=%sDriveLetterOld:~0,-1%
set sFileNameShort=%sFileNameShortOld:~0,-2%


REM Outputs für Debugzwecke
::Echo Debug sPathOnly: [%sPathOnly%] sPathFull: [%sPathFull%] 
::Echo Debug sFileNameFull: [%sFileNameFull%]
::Echo Debug sFileNameShort: [%sFileNameShort%] sDriveLetter: [%sDriveLetter%]

REM Variable für den auf Linux Art umgeschriebenen Pfad setzen
set linPath=%Cygdrive%%sDriveLetter%%sPathOnly%%sFileNameShort%

REM Verzeichnis erstellen und entpacken
mkdir "%sPathFull%%sFileNameShort%"  
%DAR% -R %linPath% -w -O -x %sFileNameShort%

Z:\>
$cmd$for /f %i in ("\\xxserver\yyshare\test.abc") do @echo [Drive:%~di] [Path:%~pi] [File:%~nxi]  
[Drive:\\] [Path:xxserver\yyshare\] [File:test.abc]