elva

判断中英文结合的字段串长度的小函数

Function Strlen(txt)
    txt=trim(txt)
    x = len(txt)
    y = 0
    for ii = 1 to x
        if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
            y = y + 2
        else
            y = y + 1
        end if
    next
    Strlen = y

End Function

posted on 2007-05-28 19:39 叶子 阅读(162) 评论(0)  编辑 收藏 引用 所属分类: ASP


只有注册用户登录后才能发表评论。
【推荐】超50万行VC++源码: 大型组态工控、电力仿真CAD与GIS源码库
网站导航: 博客园   IT新闻   BlogJava   知识库   博问   管理