快捷導(dǎo)航

asp下實(shí)現(xiàn)字符串的補(bǔ)充fill()

更新時(shí)間：2008年02月15日 16:10:58 作者：

在一個(gè)字符串前后補(bǔ)全另一字符串,在一個(gè)字符串前面補(bǔ)全另一字符串,在一個(gè)字符串后面補(bǔ)全另一字符串

<%  
'功能:在一個(gè)字符串前后補(bǔ)全另一字符串  
'來(lái)源:http://jorkin.reallydo.com/article.asp?id=452  

Public Function Fill(ByVal sString, ByVal sStr)  
    Fill = RFill(LFill(sString, sStr), sStr )  
End Function  
%> 

復(fù)制代碼代碼如下:

<%  
'功能:在一個(gè)字符串前面補(bǔ)全另一字符串  
'來(lái)源: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  
%> 

復(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  
%> 

例如:
<%=RFill(LFill("www.fzitv.net/article.asp","http://"),"article.asp?id=452")%>

相關(guān)文章

JavaScript在ASP頁(yè)面中實(shí)現(xiàn)掩碼文本框效果代碼
在網(wǎng)頁(yè)中輸日期、時(shí)間、IP地址等需要一定的格式限制，否則將會(huì)程序?qū)?huì)很難和程序溝通
2012-08-08
asp下tag的實(shí)現(xiàn),簡(jiǎn)單介紹與部分代碼
asp下tag的實(shí)現(xiàn),簡(jiǎn)單介紹與部分代碼...
2007-03-03
asp中記錄集對(duì)象的getrows和getstring用法分析
asp中記錄集對(duì)象的getrows和getstring用法分析，需要的朋友可以參考下
2012-03-03
在ASP里面創(chuàng)建GUID
GUID在許多時(shí)候做為唯一標(biāo)識(shí)符都很方便，但是在ASP里并沒(méi)有現(xiàn)成的函數(shù)來(lái)創(chuàng)建GUID，其實(shí)可以使用Scriptlet的類型庫(kù)來(lái)創(chuàng)建一個(gè)GUID，
2008-05-05
asp之自動(dòng)閉合HTML/ubb標(biāo)簽函數(shù) 附簡(jiǎn)單注釋
在用到編輯器時(shí)，就會(huì)碰到一點(diǎn)，那就是標(biāo)簽的閉合問(wèn)題，這個(gè)問(wèn)題非常嚴(yán)峻，因?yàn)檫@可能會(huì)導(dǎo)致網(wǎng)頁(yè)顯示的整體樣式受到破壞。
2010-04-04
完美解決PJ的Cookies保存時(shí)限問(wèn)題!可選擇記錄登陸時(shí)長(zhǎng)!
完美解決PJ的Cookies保存時(shí)限問(wèn)題!可選擇記錄登陸時(shí)長(zhǎng)!...
2007-02-02
ASP:ActiveX不能創(chuàng)建Scripting.FileSystemObject對(duì)象解決辦法
關(guān)于ActiveX不能創(chuàng)建Scripting.FileSystemObject對(duì)象的類似問(wèn)題，大體上解決辦法都是類似的，主要是思想要清晰：首先考慮組件注冊(cè)問(wèn)題，其次是組件權(quán)限問(wèn)題，如果服務(wù)器配置沒(méi)有問(wèn)題的話，那就仔細(xì)檢查一下你的程序源碼吧
2011-11-11
asp身份證驗(yàn)證代碼函數(shù)
asp身份證驗(yàn)證代碼函數(shù)...
2007-11-11
asp實(shí)現(xiàn)防止從外部提交數(shù)據(jù)的三種方法腳本之家補(bǔ)充
這篇文章主要介紹了asp實(shí)現(xiàn)防止從外部提交數(shù)據(jù)的三種方法,需要的朋友可以參考下
2007-11-11
asp get和post數(shù)據(jù)接收過(guò)濾
asp get和post數(shù)據(jù)接收過(guò)濾函數(shù)，一些為了安全
2009-02-02