取 之间 的字符串

[newahd]

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|
代码应该怎么改？？

[一把编程的菜刀]

使用正则

[hookee]

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