经常在提取 文本操作中要找出俩特定字符串之间的部分,以下函数将实现此功能。
asp:
<
%
' 取中间字符串
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 = " 123456789 "
response.write " <BR> " & getmidstr( " 23 " , " 78 " ,str)
’将输出 " 456 "
% >
' 取中间字符串
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 = " 123456789 "
response.write " <BR> " & getmidstr( " 23 " , " 78 " ,str)
’将输出 " 456 "
% >
扩展模式:
<
%
' 取中间字符串
function getmidstr(L,R,str,m,n)
' m,n为控制参数,表示输出的字符串将分别向左,向右多输出m,n个字符。
int_left = instr
' 取中间字符串
function getmidstr(L,R,str,m,n)
' m,n为控制参数,表示输出的字符串将分别向左,向右多输出m,n个字符。
int_left = instr