一个好用的字符串截取函数（汉字一个算两个字符，英文算一个字符）

2. '**************************************************
3. '函数名：gotTopic
4. '作 用：截字符串，汉字一个算两个字符，英文算一个字符
5. '参 数：str ----原字符串
6. ' strlen ----截取长度
7. '返回值：截取后的字符串
8. '**************************************************
9. Function gotTopic(ByVal str, ByVal strlen)
10. If str = "" Then
11. gotTopic = ""
12. Exit Function
13. End If
14. Dim l, t, c, i, strTemp
15. str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "l = Len(str)
16. t = 0
17. strTemp = str
18. strlen = CLng(strlen)
19. For i = 1 To l
20. c = Abs(Asc(Mid(str, i, 1)))
21. If c > 255 Then
22. t = t + 2
23. Else
24. t = t + 1
25. End If
26. If t >= strlen Then
27. strTemp = Left(str, i)
28. Exit For
29. End If
30. Next
31. If strTemp str Then
32. strTemp = strTemp & "…"
33. End If
34. gotTopic = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "End Function
35. ?>

复制代码