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

2024-05-04 10:57:37

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

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

上一篇：asp获取当前网页地址的代码

下一篇：asp正则html的图片,对图自动缩放大小