欢迎您访问游戏琅琊榜

ASP切割字符串长度自动添加省略号

2016-5-24 编辑:admin 来源:游戏琅琊榜 阅读次数:
  导读:一个ASP字符串截取函数,自动切割超出指定长度的字符串。函数两个参数:str 待切割的字符串内容,strlen要显示的长度,函数内部自动判断字符串长度,当不超出的时候,不会截断字符串。函数会输出带有省略号的字符串。 Public Function CutStr(str,strlen) Dim l,t,i,c ...

一个ASP字符串截取函数,自动切割超出指定长度的字符串。函数两个参数:str 待切割的字符串内容,strlen要显示的长度,函数内部自动判断字符串长度,当不超出的时候,不会截断字符串。函数会输出带有省略号的字符串。

Public Function CutStr(str,strlen)
Dim l,t,i,c
  If str="" Then
     cutstr=""
    Exit Function
  End If
  str=Replace(Replace(Replace(Replace(Replace(str,"&nbsp;"," "),"&quot;",Chr(34)),"&gt;",">"),"&lt;","<"),"|","|")
     l=Len(str)
     t=0
     For i=1 To l
     c=Abs(Asc(Mid(str,i,1)))
     If c>255 Then
    t=t+2
     Else
    t=t+1
     End If
     If t>=strlen Then
    cutstr=Left(str,i) & "..."
    Exit For
     Else
    cutstr=str
     End If
     Next
     cutstr=Replace(Replace(Replace(Replace(replace(cutstr," ","&nbsp;"),Chr(34),"&quot;"),">","&gt;"),"<","&lt;"),"|","|")
End Function

文章出自:游戏琅琊榜www.yxlyb.cn,尊重版权是美德,转载请保留原地址,感谢合作!

联系我们 | 广告服务 | 诚聘英才 | 友情链接 | 版权声明 | 关于我们 | 网站地图
游戏琅琊榜 - 聚焦最火爆的游戏、分享最实用的攻略 - 惟翔资讯
吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。
Copyright @ 2012-2015 游戏琅琊榜 保留所有权利