中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 字符串分隔后如何循环处理?
作者:
标题: 字符串分隔后如何循环处理? 上一主题 | 下一主题
prcgolf
新手上路





积分 19
发帖 13
注册 2006-11-25
状态 离线
『楼 主』:  字符串分隔后如何循环处理?

set os="abc\cu\jiu\shijie" rem 无法确定os中有多少个以\为分隔符的字符串,本例中有4个
for /f "tokens=1,2,3* delims=\" %%i in ("%os%") do (
ABC.EXE %%i
ABC.EXE %%j
ABC.EXE %%k
ABC.EXE %%l
)
这样可以达到要求,但是如果分隔后有5个字符串改怎么办呢,有8个呢?关键是不知道具体有多少个?
请诸位大侠拔刀相助,谢谢

2010-9-10 16:14
查看资料  发短消息 网志   编辑帖子  回复  引用回复
DXSX
中级用户





积分 247
发帖 147
注册 2009-4-9
状态 离线
『第 2 楼』:  

逐个显示 %1 中被 \ 分开 的单元
如 : l afds\24234\ds4rsar3\ds
将显示为:
afds
24234
ds4rsar3
ds

l.cmd内容
@echo off   
if %1*==* goto end
set l=%1\
set /a n=0
set m=
:top
call set m=%%l:~%n%,1%%
if not defined m goto end
if not "%m%"=="\" (set l0=%l0%%m%) else (if defined l0 (echo %l0%) &set l0=)
set /a n=%n%+1
goto top
:end
set m=
set n=

[ Last edited by DXSX on 2010-9-13 at 08:22 ]

2010-9-10 17:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
prcgolf
新手上路





积分 19
发帖 13
注册 2006-11-25
状态 离线
『第 3 楼』:  非常感谢,再麻烦一下

非常感谢,再麻烦一下
能否按照我写的要求,
循环执行ABC.EXE abc
ABC.EXE cu等
你的我实在看不懂,请见谅我的无知,谢谢

2010-9-10 17:57
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 4 楼』:  

set 替换  \ 为 空格
直接写个call ABC %XX%
利用shift就over了。
@echo off
set os=abc\test\nec\doc\slore\0910
call :ABC %os:\= %
pause
goto :EOF


:ABC
:InnerLoop
if "%1"=="" (goto :EOF)
echo %1
shift
goto :InnerLoop




S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
2010-9-10 18:32
查看资料  发短消息 网志   编辑帖子  回复  引用回复
DXSX
中级用户





积分 247
发帖 147
注册 2009-4-9
状态 离线
『第 5 楼』:  



  Quote:
Originally posted by prcgolf at 2010-9-10 17:57:
非常感谢,再麻烦一下
能否按照我写的要求,
循环执行ABC.EXE abc
ABC.EXE cu等
你的我实在看不懂,请见谅我的无知,谢谢

把 2楼中 红色部分 改为 abc.exe %l0%

[ Last edited by DXSX on 2010-9-10 at 21:26 ]

2010-9-10 21:20
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
prcgolf
新手上路





积分 19
发帖 13
注册 2006-11-25
状态 离线
『第 6 楼』:  好像还是不行

@echo off   
if %1*==* goto end
set l="abc\cu\jiu\shijie\"
set /a n=0
set m=
:top
call set m=%%l:~%n%,1%%
if not defined m goto end
if not "%m%"=="\" (set l0=%l0%%m%) else (if defined l0 (echo %l0%) &set l0=)
set /a n=%n%+1
goto top
:end
set m=
set n=
执行后无任何显示!!

2010-9-12 21:49
查看资料  发短消息 网志   编辑帖子  回复  引用回复
prcgolf
新手上路





积分 19
发帖 13
注册 2006-11-25
状态 离线
『第 7 楼』:  这个也不行

@echo off
set os=abc\test\nec\doc\slore\0910
call :echo %os:\= %
pause
goto :EOF


:ABC
:InnerLoop
if "%1"=="" (goto :EOF)
echo %1
shift
goto :InnerLoop

2010-9-12 21:50
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 8 楼』:  

不知道你的电脑那么高级还是怎么回事。。。

复制的内容还会不一样?7楼的代码不是我的代码。。。
和4楼我的代码不一样。



S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore
2010-9-12 23:29
查看资料  发短消息 网志   编辑帖子  回复  引用回复
DXSX
中级用户





积分 247
发帖 147
注册 2009-4-9
状态 离线
『第 9 楼』:  



  Quote:
Originally posted by prcgolf at 2010-9-12 21:49:
@echo off   
if %1*==* goto end
set l="abc\cu\jiu\shijie\"
set /a n=0
set m=
:top
call set m=%%l:~%n%,1%%
if not defined m goto end
if not "%m%"=="\" (set l0=% ...

把 2楼 蓝色部分看明白就知道为什么了。

给你一个更精简的:从后先前逐个显示字符串中 \ 段
红色部分替换成你的字符串,注意不要有引号 比如:afds\fddsaf\fsadf\e432\435
蓝色部分替换成你的命令 比如:abc.exe %l0%
要想知道原理 cmd 下 用"set /? " 自己看就明白了。
------------------------
@echo off
set "l=\%1"
set "l0="
:top
if %l%*==* goto end
if not %l:~-1,1%*==\* (set l0=%l:~-1,1%%l0%
  ) else (if defined l0 (echo %l0%) & set "l0=")
set l=%l:~0,-1%
goto top
:end
set "l0=" & set "l="

另一个脚本------------ 从前往后 逐个显示 \  分割段
@echo off
set "l=%1\"
set "l0="
:top
if %l%*==* goto end
if not %l:~0,1%*==\* (set "l0=%l0%%l:~0,1%"
  ) else (if defined l0 (echo %l0%) & set "l0=")
set l=%l:~1%
goto top
:end
set "l0=" & set "l="

[ Last edited by DXSX on 2010-9-13 at 09:27 ]

2010-9-13 08:22
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
prcgolf
新手上路





积分 19
发帖 13
注册 2006-11-25
状态 离线
『第 10 楼』:  多谢诸位大侠帮助,问题已解决

多谢诸位大侠帮助,问题已解决。非常感谢!!

2010-9-13 11:32
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: