兄弟的博客-【兄弟波段趋势操盘】-ASP如何计算中英文混合字符串长度和截取字符串 -

海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大中小】
用ASP做网站的时候经常会碰到要截取字符串的情况。ASP中的Len函数不管是中文字符，还是英文字符，统统按一个单位来计算，由于一个中文字符的宽度是一个英文字符宽度的两倍，在中英文混合的情况下字符串实际占用的宽度就不好计算了，如果按照Len函数计算的长度来截取字符串截出来的效果也会长短不一，下面是按照一个汉字相当于两个英文字符来计算字符串长度和截取字符串的代码

计算中英文混合字符串的长度：

程序代码： [ 复制代码到剪贴板 ]

function getStringLen(str)
on error resume next
    dim l,c,i,t
    l=len(str)
    t=l
    for i=1 to l
        c=asc(mid(str,i,1))
        if c>=128 or c<0 then t=t+1
    next
    getStringLen=t
    if err.number<>0 then err.clear
end function

程序代码：

[ 复制代码到剪贴板 ]

function getSubString(str,Length)
on error resume next
    dim l,c,i,hz,en
    l=len(str)
    if l<length then
        getSubString=str
    else
        hz=0
        en=0
        for i=1 to l
            c=asc(mid(str,i,1))
            if c>=128 or c<0 then
                hz=hz+1
            else
                en=en+1
            end if

            if en\2+hz>=length then
                exit for
            end if
        next
        getSubString=left(str,i) & "…"
    end if
    if err.number<>0 then err.clear
end function

暂时没有评论

发表评论 - 不要忘了输入验证码哦！

作者：

用户：密码：我要注册验证码：
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!

评论：

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布？


最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!