A batch script that discards a specified level at the end of the path - China DOS Union Forum

Just for fun, post one:


@echo off
:: Purpose:
::     Discard the string of the specified level at the end of the path
:: Idea:
::     First read the path string in reverse order, then cut off the specified level from the beginning
::     Finally read the remaining string in reverse order

set num=0
set times=2
set "route=c:\a&bc\!dx\test dos\123.txt"
call :antitone "%route%"
call :intercept "%str%"
call :antitone "%route%"
echo "%str%"
pause
goto :eof

:antitone
set str=
set "var=%~1"
:loop1
if not "%var:~0,1%"=="" set "str=%str%%var:~-1%"
set "var=%var:~0,-1%"
if not "%var%"=="" goto loop1
goto :eof

:intercept
set "route=%~1"
:loop2
set "route=%route:*\=%"
set /a num+=1
if %num% lss %times% goto loop2
goto :eof

　　Add a more efficient code:


@echo off
:: Idea:
::     Through for statement extension, intercept the directory path where the file is located
::　　 When the number of layers to be discarded exceeds the actual number of layers, keep the root directory level
set "route=c:\a&bc\!dx\test dos\123.txt\"
set layers_discard=3
if "%route:~-1%"=="\" set "route=%route:~0,-1%"
for /l %%i in (1,1,%layers_discard%) do call :intercept "%%route%%"
:end
echo "%route%"
pause
goto :eof

:intercept
for /f "delims=" %%i in (%1) do set "route=%%~dpi"
if "%route:~-2,1%"==":" (goto end) else set "route=%route:~0,-1%"
goto :eof

[ Last edited by namejm on 2007-1-19 at 03:04 PM ]

Floor1　namejm	Posted 2006-12-30 08:52
荣誉版主　Posts 1,737　Credits 5,226　From 成都
Just for fun, post one: @echo off :: Purpose: :: Discard the string of the specified level at the end of the path :: Idea: :: First read the path string in reverse order, then cut off the specified level from the beginning :: Finally read the remaining string in reverse order set num=0 set times=2 set "route=c:\a&bc\!dx\test dos\123.txt" call :antitone "%route%" call :intercept "%str%" call :antitone "%route%" echo "%str%" pause goto :eof :antitone set str= set "var=%~1" :loop1 if not "%var:~0,1%"=="" set "str=%str%%var:~-1%" set "var=%var:~0,-1%" if not "%var%"=="" goto loop1 goto :eof :intercept set "route=%~1" :loop2 set "route=%route:\=%" set /a num+=1 if %num% lss %times% goto loop2 goto :eof 　　Add a more efficient code: @echo off :: Idea: :: Through for statement extension, intercept the directory path where the file is located ::　　 When the number of layers to be discarded exceeds the actual number of layers, keep the root directory level set "route=c:\a&bc\!dx\test dos\123.txt\" set layers_discard=3 if "%route:~-1%"=="\" set "route=%route:~0,-1%" for /l %%i in (1,1,%layers_discard%) do call :intercept "%%route%%" :end echo "%route%" pause goto :eof :intercept for /f "delims=" %%i in (%1) do set "route=%%~dpi" if "%route:~-2,1%"==":" (goto end) else set "route=%route:~0,-1%" goto :eof [ Last edited by namejm on 2007-1-19 at 03:04 PM* ]

Floor2　redtek	Posted 2006-12-30 09:34
金牌会员　Posts 1,147　Credits 2,902
A very charming piece of code~~~Thumbs up + cherish and study~ :)))

Floor3　hxuan999	Posted 2006-12-30 10:56
中级用户　Posts 161　Credits 337
The code is worthy of diligent study, give it a thumbs up~

Floor4　electronixtar	Posted 2006-12-30 13:14
铂金会员　Posts 2,672　Credits 7,493
Learning

Floor5　qpmgljf	Posted 2007-01-06 05:35
初级用户　Posts 49　Credits 125
Great. Exactly what I needed. Thanks