您正在使用IPV4(35.153.166.111)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年74元       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
虚位以待
2021年 冬至节 14
2021年 圣诞节 18
2022年 元 旦 25
2022年 春 节 56
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    字符串长度切割,超过显示省略号
    内容摘要: '****************************************************'函数名:CutStr'作用:字符串长度切割,超过显示省略号'参数:str----字符串内容'strlen------要显示的长度'返回值:切割后字符串内容'************************************************......
    '****************************************************

    '函数名:CutStr

    '作用:字符串长度切割,超过显示省略号

    '参数:str----字符串内容

    'strlen------要显示的长度

    '返回值:切割后字符串内容

    '****************************************************

    PublicFunctionCutStr(str,strlen)

    Diml,t,i,c

    Ifstr=""Then

    cutstr=""

    ExitFunction

    EndIf

    str=Replace(Replace(Replace(Replace(Replace(str,"&nbsp;",""),"&quot;",Chr(34)),"&gt;",">"),"&lt;","<"),"|","|")

    l=Len(str)

    t=0

    Fori=1Tol

    c=Abs(Asc(Mid(str,i,1)))

    Ifc>255Then

    t=t+2

    Else

    t=t+1

    EndIf

    Ift>=strlenThen

    cutstr=Left(str,i)&"..."

    ExitFor

    Else

    cutstr=str

    EndIf

    Next

    cutstr=Replace(Replace(Replace(Replace(replace(cutstr,"","&nbsp;"),Chr(34),"&quot;"),">","&gt;"),"<","&lt;"),"|","|")

    EndFunction

    上一篇:产生在1到50内的10个随机数 下一篇:恢复特殊字符
    发布日期:2021/11/22
    手机扫二维码直达本页
    发布时间:18:28:12
    点击:169
    录入:壹家怡园
    相关文章
    Baidu
    YiJiaCMS 6.0.9.10888 Build 21.11.30(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
    ©2000-2021