取 之间 的字符串

newahd 2008-04-05 05:28:19
function getmidstr(L,R,str)

int_left=instr(str,L)
int_right=instr(str,R)

If int_left>0 and int_right>0 Then
getmidstr=mid(str,int_left+len(L),int_right-int_left-len(L))
Else
getmidstr="执行的字符串中不包含“"&L&"”或“"&R&"”"

End If
end function

str="1234567asdfasf[img]111[/img]89safdasfasfasfsfs[img]222[/img]af[img]333[/img]fsf"
response.write "<BR>"&getmidstr("[img]","[/img]",str)
---------------------------------------------------------------------

就是取所有[img][/img]之间的字符
但是以上代码得出的结果是:111,只取到第一串
我要的结果是取文中全部[img][/img]之间的字符并以“|”隔开,结果应该是这样:111|222|333|
代码应该怎么改??
...全文
16 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hookee 2008-04-05

function getmidstr(L,R,str)

s = ""
int_left = instr(str,L)
int_right = instr(str,R)
While(int_left<>0)
s = s & mid(str,int_left+len(L),int_right-int_left-len(L)) & "|"
int_left = instr(int_right, str,L)
If int_left<>0 Then int_right = instr(int_left, str,R)
Wend
If s<> "" Then s = Left(s, len(s)-1)
getmidstr = s
end Function
回复
使用正则
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-05 05:28
社区公告
暂无公告