您现在的位置是：网站首页> 编程资料编程资料
asp下实现字符串的补充fill()_应用技巧_
2023-05-25
351人已围观
简介 asp下实现字符串的补充fill()_应用技巧_
复制代码 代码如下:
<%
'功能:在一个字符串前后补全另一字符串
'来源: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")%>
相关内容
- 循环取值Request.QueryString的用法_应用技巧_
- Script.VBS.Agent.ai juan.vbs专杀_应用技巧_
- 不错的主要用于加密的vbs(asp)位移运算类_ASP CLASS类_
- 根据日期得到生肖的ASP函数_应用技巧_
- 独孤剑写的马克斯迅雷片库采集插件1.4 官方最新版提供下载了_小偷/采集_
- asp防范跨站点脚本攻击的的方法_应用技巧_
- asp cint clng的范围与防止cint和clng的溢出解决方法大全_应用技巧_
- asp常用函数集合，非常不错以后研究第1/4页_应用技巧_
- asp下利用fso实现文件夹或文件移动改名等操作函数_应用技巧_
- asp下用实现模板加载的的几种方法总结[原创]_应用技巧_
