服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - ASP UTF-8编码下字符串截取和获取长度函数

ASP UTF-8编码下字符串截取和获取长度函数

2019-09-11 10:26asp之家 ASP教程

截取文字长度函数,支持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="" 
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

延伸 · 阅读

精彩推荐