[XCodeR]

akrav, язык какой?

[akrav]

желательно стандартными возможностями пакетных файлов win xp

[hasherfrog]

Код:

@if "%1"=="" goto usage
@set filename=%1
@set findpath=
@set ok=
@goto start

:sub3
@if "%findpath%"=="" goto first
@set findpath=%findpath%\%1
@goto next
:first
@set findpath=%1
:next
@echo %1 | find ".zip" >nul
@if "%errorlevel%"=="0" goto fook
@goto :EOF
:fook
@set ok=ok
@goto :EOF

:sub2
@FOR /F %1 %%i in ("%filename%") do @call :sub3 %%i
@goto :EOF

:sub
@if "%ok%"=="ok" @goto :EOF
@set v="eol=; tokens=%1* delims=\"
@call :sub2 %v%
@goto :EOF

:start
@FOR /L %%z IN (1,1,10) DO @call :sub %%z

@echo %findpath%
@goto :EOF

:usage
@echo Usage: stripname.bat filename\...\filename.zip\filename\...

Пример использования:

Код:

C:\Temp>stripname c:\123123.123123\123.zip\\123.12312.3\123\123\123.doc
c:\123123.123123\123.zip

[akrav]

Спасибо большое! Все работает замечательно, раньше я использовал call только для вызова процедур, совсем забыв про возможности windows nt. Остался только один вопрос по этой теме. Что означает звездочка(*) в выражении:

@set v="eol=; tokens=%1* delims=\" »

[akrav]

ничего не понимаю, но наличие пробелов в исходной строке работают таке как и .zip. Т.е. в случае "c:\program files\expl\test.zip\test.doc" результат будет "c:\program", а не "c:\program files\expl\test.zip"

[akrav]

Появилась идея, а что если после .zip/ вставить стоп символ или комбинацию, а потом эту строку разбить в цикле разделителем = стоп символу. Но пока это все что-то не фурычит…

[hasherfrog]

Используйте такой код:

Код:

@rem @set filename=c:\qweqweqwe\qweqweqwe\qweqweqwe\qweqwe.zip\fsdfsd\qweqweqw\r.doc
@if "%*"=="" goto usage
@set filename=%*
@set findpath=
@set ok=
@goto start

:sub3
@if "%findpath%"=="" goto first
@set findpath=%findpath%\%*
@goto next
:first
@set findpath=%*
:next
@echo %* | find ".zip" >nul
@if "%errorlevel%"=="0" goto fook
@goto :EOF
:fook
@set ok=ok
@goto :EOF

:sub2
@FOR /F %1 %%i in ("%filename%") do @call :sub3 %%i
@goto :EOF

:sub
@if "%ok%"=="ok" @goto :EOF
@set v="eol=; tokens=%1* delims=\"
@call :sub2 %v%
@goto :EOF

:start
@FOR /L %%z IN (1,1,20) DO @call :sub %%z

@if "%ok%"=="ok" @goto heyho
@echo Pattern ".zip" is not found.
@goto :EOF
:heyho
@echo %findpath%
@goto :EOF

:usage
@echo Usage: stripname.bat filename\...\filename.zip\filename\...

[amel27]

хм, имхо можно короче (если я правильно понял задачу):

Код:

@Set FilePart=%~1
@Set FileName=%~2

@Set FilePart=%FilePart:!=/%
@Set FileName=%FileName:!=/%

@SetLocal EnableDelayedExpansion
@Set FileTrim=!FileName:*%FilePart%=!
@Set FileLeft=!FileName:%FileTrim%=!

@SetLocal DisableDelayedExpansion
@Echo %FileLeft:/=!%

пример:

Код:

script.cmd ".zip" "c:\qweqweqwe\qweqweqwe\qweqweqwe\qweqwe.zip\fsdfsd\qweqweqw\r.doc"

P.S. Если в имени отсутствует символ "!" код будет еще в два раза короче.

[akrav]

Уважаемый, hasherfrog! Это действительно работает. Только вот если нужно будет передать программе несколько параметров, как быть?