ASP UTF-8编码下字符串截取和获取长度函数
2009-05-18 00:00
751 查看
'************************************ '截取文字长度函数,支持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="" ForTotal = Len(Title) For i=1 To ForTotal c=Abs(AscW(Mid(Title,i,1))) If c>255 Then k=k+2 Else k=k+1 End If iStr=iStr&Mid(Title,i,1) If CLng(k)>CLng(TLen) Then iStr=iStr".." Exit For End If Next Cut_Title=iStr Else Cut_Title="" End If End Function '******************************* '检测文字长度函数,支持UTF-8 '输入参数: ' 1、文字内容 '******************************* Public Function StrLen(strText) Dim k,i,c Dim ForTotal k=0 ForTotal = Len(strText) For i=1 To ForTotal c=Abs(AscW(Mid(strText,i,1))) If c>255 Then k=k+2 Else k=k+1 End If Next StrLen=k End Function
相关文章推荐
- 真正根据utf8编码的规律来进行截取字符串的函数(utf8版sub_str )
- PHP截取字符串,获取长度,获取字符位置的函数
- asp 获取字符串长度函数
- 截取UTF-8编码下字符串的函数
- PHP截取字符串,获取长度,获取字符位置的函数
- C#获取中英文混合字符串长度和截取函数
- PHP截取字符串,获取长度,获取字符位置的函数 中文字符截取
- ASP获取字符串长度的自定义函数
- Java精确截取字符串/获取字符串前指定长度字符函数
- 按一定长度截取utf-8编码的字符串
- 截取UTF-8编码下字符串的函数
- ASP获取字符串长度的自定义函数
- 真正根据utf8编码的规律来进行截取字符串的函数(utf8版sub_str )
- ASP获取字符串长度的自定义函数
- PHP 字符串编码截取函数(兼容utf-8和gb2312)
- 兼容UTF-8和GBK编码的ASP文字截取函数
- 一个案例讲解获取字符串长度的函数mb_strlen()和字符串截取函数mb_substr()
- PHP 字符串编码截取函数(兼容utf-8和gb2312)
- MySQL CHAR_LENGTH 获取字符串长度函数