复制代码代码如下所示：
************************************
文本长度的拦截功能，支持UTF-8
输入参数：
1，文本内容
2，最大文本长度
************************************
公共功能cut_title（标题，TLen）
模糊的k，i，d，c
朦胧处
朦胧的理想

如果CDbl（泰力）> 0
K = 0
D = strlen（标题）
ISTR =
类型= Len（标题）

我= 1总
C = ABS（AscW（MID（标题，我，1））））
如果C＞255，那么
k＝k＋2
其他的
k＝k＋1
最后如果

ISTR = istrmid（标题，我，1）

如果CLng（k）> CLng（泰力）然后
ISTR = ISTR..
退出
最后如果
下一个

cut_title =处
其他的
cut_title =
最后如果
端功能

*******************************
检测文本长度的功能，支持UTF-8
输入参数：
1，文本内容
*******************************
公共函数的StrLen（strtext）
模糊k，i，c
朦胧的理想

K = 0
类型= Len（strtext）

我= 1总
C = ABS（AscW（MID（strtext，I，1））））
如果C＞255，那么
k＝k＋2
其他的
k＝k＋1
最后如果
下一个
strlen = K

端功能