关闭

Asp截取字符长度函数

347人阅读 评论(0) 收藏 举报
提供你一个超级好用的函数,使用方法 
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 
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1100490次
    • 积分:15510
    • 等级:
    • 排名:第692名
    • 原创:866篇
    • 转载:4篇
    • 译文:0篇
    • 评论:13条
    最新评论