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 %>
復(fù)制代碼 代碼如下:
<% '功能:在一個(gè)字符串后面補(bǔ)全另一字符串
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 %>
