中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 一个抛弃路径尾部指定层次的批处理

namejm
荣誉版主

batch fan

积分 5226
发帖 1737
注册 2006-3-10
来自成都
状态离线

『楼主』: 一个抛弃路径尾部指定层次的批处理

　　纯属无聊，发一个出来耍：

@echo off

:: 目的：

:: 　　抛弃路径尾部指定层次的字符串

:: 思路：

:: 　　先反序读取路径字符串，然后从头开始截去指定层次

:: 　　最后再反序读取剩余字符串

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

　　增加一个更加高效的代码：

@echo off

:: 思路：

::     通过for语句扩展，截取文件所在的目录路径

::　　 当要抛弃的层数超过实际层数时，保留根目录层次

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