asp下实现字符串的补充fill()
2018-09-06 10:55
阅读：517
复制代码 代码如下:
<%
功能:在一个字符串前后补全另一字符串
来源:
PublicFunctionFill(ByValsString,ByValsStr)
Fill=RFill(LFill(sString,sStr),sStr)
EndFunction
%>
复制代码 代码如下:
<%
功能:在一个字符串前面补全另一字符串
来源:
PublicFunctionLFill(ByValsString,ByValsStr)
DimiStrLen:iStrLen=Len(sStr&)
Fori=iStrLenTo1Step-1
IfRight(sStr,i)=Left(sString,i)ThenExitFor
Next
LFill=Left(sStr,iStrLen-i)&sString
EndFunction
%>
复制代码 代码如下:
<%
功能:在一个字符串后面补全另一字符串
PublicFunctionRFill(ByValsString,ByValsStr)
DimiStrLen:iStrLen=Len(sStr&)
Fori=iStrLenTo1Step-1
IfLeft(sStr,i)=Right(sString,i)ThenExitFor
Next
RFill=sString&Mid(sStr,i+1)
EndFunction
%>
例如:
<%=RFill(LFill(
评论
亲，登录后才可以留言！