复制代码 代码如下:
<% 
'功能:在一个字符串前后补全另一字符串 
'来源: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")%>
标签:
asp,字符串,fill

免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
桃源资源网 Design By www.nqtax.com

评论“asp下实现字符串的补充fill()”

暂无“asp下实现字符串的补充fill()”评论...

RTX 5090要首发 性能要翻倍!三星展示GDDR7显存

三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。

首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。

据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。