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

关于UTF-8编码下的文本截取与长度计算

今天，我们将为您呈现两个功能强大的函数，它们可以处理UTF-8编码的文本，无论是截取还是检测长度都能轻松应对。有了这两个函数，相信能满足大多数截取字符串的朋友们的需求。

首先是我们的“截取文字长度函数”，它支持UTF-8编码。您只需提供两个参数：一是文字内容，二是期望的最大文字长度。函数内部首先会判断提供的最大长度是否大于零。如果是，就开始进行文本截取操作。我们逐字符遍历文本，对于每个字符，判断其是否为多字节字符（即是否为UTF-8编码）。如果是多字节字符，我们将其计数为两个字符长度；否则，计数为一个字符长度。当累计的字符长度超过设定的最大长度时，我们就截取当前文本并添加省略号“..”，然后退出循环。这样，您就能得到想要的截取结果。如果最大长度参数无效（小于或等于零），函数将返回一个空字符串。以下是该函数的代码实现：

```plaintext

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编码。您只需提供一个参数：待检测的文字内容。函数内部通过遍历文本中的每个字符，累加字符长度（对于多字节字符计数为两个字符长度），从而得到整个文本的长度。以下是该函数的代码实现：

现在，您只需调用这些函数即可轻松处理UTF-8编码的文本。无论是截取还是检测长度，都能得到准确的结果。希望这两个函数能满足您的需求，为您的工作带来便利。