截取文字长度函数，支持UTF-8 ,这样就可以满意大部分截取字符串的朋友了。

代码如下:‘************************************ ‘截取文字长度函数，支持UTF-8 ‘输入参数： ‘ 1、文字内容 ‘ 2、文字最大长度 ‘************************************ Public Function Cut_Title(Title,TLen) Dim k,i,d,c Dim iStr Dim ForTotal If CDbl(TLen) > 0 Then k=0 d=StrLen(Title) iStr=”