网络Online

程序,电脑,生活,股票

Asp截取字符长度函数
提供你一个超级好用的函数,使用方法 
response.write FixString(需要截取的字符串,字符串字节长度汉字算2个,如果被截取添加省略点的个数) 

Function FixString(ByVal strWord, ByVal intByteLength, ByVal intPadDotAmount) 
        If strWord > "" Then 
                If Length(strWord) <= intByteLength Then 
                        FixString = strWord 
                Else 
                        Dim i 
                        Dim intLength 
                        Dim strChar 
                        Dim bytChar 
                        intLength = 0 
                        For i = 1 to Len(strWord) 
                                strChar = Mid(strWord, i, 1) 
                                bytChar = Asc(Mid(strWord, i, 1)) 
                                If bytChar < 0 or bytChar > 255 Then 
                                        intLength = intLength + 2 
                                Else 
                                        intLength = intLength + 1 
                                End If 
                                If intLength > intByteLength Then Exit For 
                                FixString = FixString & strChar 
                        Next 
                        FixString = FixString & String(intPadDotAmount, ".") 
                End If 
        Else 
                FixString = "" 
        End If 
End Function 
 
阅读更多
文章标签: asp
个人分类: 程序
想对作者说点什么? 我来说一句

ASP截取固定长度字符

2010年03月21日 642B 下载

没有更多推荐了,返回首页

不良信息举报

Asp截取字符长度函数

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭