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

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

<%  
'功能:在一个字符串前后补全另一字符串  
'来源: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.ogeek.net/article.asp","http://"),"article.asp?id=452")%>