取两字符串之间的字符串的函数

2010-5-3 0:0:0 | 作者：sw996 | 0个评论 | 人浏览

<%
'取中间字符串
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="www.goodtext.org"
response.write "<BR>"&getmidstr("go","xt",str)
’将输出"odte"
%>

扩展模式：

<%
'取中间字符串
function getmidstr(L,R,str,m,n) 
          'm,n为控制参数，表示输出的字符串将分别向左，向右多输出m，n个字符。
  int_left=instr(str,L)
  int_right=instr(str,R)

  if (m="left") then   '若m为“left”,输出的字符串将包含左边部分（L），下同
  m=len(L)
  end if
  if (n="right") then

  n=len(R)
  end if

  if (m>(len(L)+int_left-1)) then
  m=(len(L)+int_left-1)
  end if
  If int_left>0 and int_right>0 Then

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

  End If
end function

str="abcdefghijk"
response.write "<BR>"&getmidstr("bcd","hi",str,0,0) 

‘输出"efg"
response.write "<BR>"&getmidstr("bcd","hi",str,2,1) 

‘输出"cdefgh"
response.write "<BR>"&getmidstr("bcd","hi",str,"left","right") 
‘输出"bcdefghi"


%>

本文来自: 成都百度快照优化|成都百度关键词排名优化|成都SEO【思为网络】，转载请保留出处！欢迎发表您的评论

相关标签：

相关推荐