当前位置： 移动技术网 > IT编程>开发语言>Asp > asp下实现字符串的补充fill()

asp下实现字符串的补充fill()

2017年12月12日  | 移动技术网IT编程  | 我要评论
复制代码 代码如下:

<% 
'功能:在一个字符串前后补全另一字符串 
'来源: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")%>

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网