asp下实现字符串的补充fill()
程序员文章站
2022-06-05 09:12:39
复制代码 代码如下:<% '功能:在一个字符串前后补全另一字符串 '来源:http://jorkin.reallydo.com/article...
复制代码 代码如下:
<%
'功能:在一个字符串前后补全另一字符串
'来源:http://jorkin.reallydo.com/article.asp?id=452
public function fill(byval sstring, byval sstr)
fill = rfill(lfill(sstring, sstr), sstr )
end function
%>
复制代码 代码如下:
<%
'功能:在一个字符串前面补全另一字符串
'来源:http://jorkin.reallydo.com/article.asp?id=452
public function lfill(byval sstring, byval sstr)
dim istrlen : istrlen = len(sstr&"")
for i = istrlen to 1 step -1
if right(sstr, i ) = left(sstring, i ) then exit for
next
lfill = left(sstr, istrlen - i) & sstring
end function
%>
复制代码 代码如下:
<%
'功能:在一个字符串后面补全另一字符串
public function rfill(byval sstring, byval sstr)
dim istrlen : istrlen = len(sstr&"")
for i = istrlen to 1 step -1
if left(sstr, i) = right(sstring, i) then exit for
next
rfill = sstring & mid(sstr, i + 1)
end function
%>
例如:
<%=rfill(lfill("www.jb51.net/article.asp","http://"),"article.asp?id=452")%>