悠悠博客 关注Ajax技术与web开发

'----------------------------------------------------------------'
'    getStrValue
'    截取指定长度字符串
'    参数：
'        str 需要被处理的字符串
'        i    需要保留的字符串长度(一个中文算两个字符长度)
'        str_2 用来表示省略的字符串，例如“…”
'    返回值：字符串 (按要求截取后的字符串)
'----------------------------------------------------------------'
Function getStrValue(ByVal str, ByVal i, ByVal str_2)
    If getStrLen(str) <= i Then
        getStrValue = str
    Else
        Dim j, n, k, chrA
        j = i - getStrLen(str_2)
        n = 0
        k = 0
        Do While n < j
            k = k + 1
            chrA = Mid(str, k, 1)
            If Asc(chrA) < 0 Or Asc(chrA) > 255 Then
                n = n + 2
                If n > j Then k = k - 1
            Else
                n = n + 1
            End If
        Loop
        getStrValue = Left(Trim(str), k) & str_2
    End If
End Function
本函数需要配合 getStrLen 函数使用.参见